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A második kiadás előszava 


Könyvem első kiadása kedvező fogadtatásra talált a Maple-fölhasználók körében. 
A Maple V legfrissebb, 4-es verziója annyi új matematikai érdekességet és a 
fölhasználói felületen végrehajtott javítást tartalmaz, hogy a Waterloo Maple 
Inc. a , Power Edition" szlogennel dobta piacra. Ez a két tény tette szükségessé, 
hogy az első után nem sokkal egy második kiadás is elkészüljön. Kijavítottam 
a sajtóhibákat, néhol átfogalmaztam a szöveget, az új és átdolgozott példákon 
kívül több új anyagrészt is fölvettem. Alig maradt érintetlen fejezet. Új vagy 
lényegesen megváltozott részek: az assume ismertetése, az input/output, az 
approximáció-elmélet, az integrálás, az összetett adattípusok, az egyszerűsítés, 
a grafika, a differenciálegyenletek és a mátrixalgebra. A gyors referenciaként 
használható táblázatok a különböző sajátosságokat, a parancsok opcióit stb. 
összegzik. A keresés megkönnyítését szolgálja a gondosan válogatott, kibővített 
index. Számos új példa mutatja be, hogyan használható a Maple problémák 
megoldására, hogyan segíthetünk a rendszernek a számítások közben, és hogyan 
terjeszthetjük ki a beépített lehetőségeket. 


A könyvben fölhasznált Maple verzió 


A könyv második kiadását teljesen átdolgoztam a Maple V Release 4-nek megfe- 
lelően. Egész pontosan ez a kiadás a Maple V Release 4 egy SUN SPARCstation 
20 71-es modellen futó 3. béta változatával készült. Nem valószínű, hogy a vég- 
leges változat ettől eltérne, bár a fölhasználói felület még kissé változhat.! A 
Maple V Release 4 ugyan sok platformon elérhető, de a könyv legnagyobb része 
platformfüggetlen, mivel a rendszer matematikai sajátosságaira koncentrál. 


14 Linuxon futó Release 4-gyel készült magyar fordítás ábrái és outputjai valóban más 
formátumúak néhol. (A Fordító megjegyzése.) 
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A második kiadás előállításának technikai részletei 


A kézírat kiszedésére a EÉTpX-et használtam. A Waterloo Maple Inc. egy módo- 
sított Maple változattal segített a Maple szekciók ETFX kóddá alakításában. A 
Waterloo Maple Inc. munkatársa, Stan Devitt által rendelkezésemre bocsátott 
eszközök lényegében ugyanúgy működnek, mint a Maple , Export to LaTeX" 
menüpontja. Így könnyű volt a Maple munkalapokból, az őket kísérő kom- 
mentárokból, megjegyzésekből és magyarázatokból álló szöveget összeállítani. 
Továbbá abban is biztos lehet az Olvasó, hogy reprodukálni tudja ezeket az 
eredményeket akár a terminál képernyőjén, akár papíron. 


A Maple szekciók forráskódja. 


Az Internet-eléréssel rendelkező olvasók az összes Maple szekció forráskódját 
letölthetik ftp-vel az ftp.can.n1 gépről vagy a http://www. can.n1 WWW 
szerverről. 


Jelölések 


A Maple kulcsszavait írógép, a Maple eljárásokra való hivatkozásokat félkövér 
betűtípussal szedtük az egész könyvben. 


Köszönetnyilvánítások 


Sokaknak hálás vagyok a könyv elkészítésében nyújtott közreműködésükért. Kö- 
szönet illeti elsősorban a Maple feljesztőit. Nagyszerű eszközt hoztak létre a tu- 
dósok és a mérnökök számára. A Release 4 mind matematikai képességeit, mind 
könnyű használatát illetően jelentős előrelépés. Az új kiadás elkészítése ezen új 
lehetőségek közti izgalmas fölfedezőút volt. Nem készültem volna el ilyen hamar 
a Waterloo Maple Inc. munkatársai, Chris Howlett és Stan Devitt támogatása 
nélkül. Elláttak a program korai verzióival, a könyv írásához szükséges segéd- 
programokkal. Bátorítottak, mindig szívesen vették észrevételeimet, válaszoltak 
kérdéseimre. Külön köszönet illeti Gaston Gonnet-t, aki a zürichi ETH-n hoz- 
záférést biztosított a Maple fejlesztői változatához, hogy lépést tudjak tartani a. 
szoftver fejlesztésével. 

Köszönöm az első kiadás olvasóitól kapott javításokat, hasznos ötleteket és 
elismerő szavakat. Leveleik és e-mailben küldött megjegyzéseik bátorítottak a 
javított és bővített kiadás megírására. 

Köszönetet kívánok mondani a Springer kiadó munkatársainak, Rüdiger Ge- 
bauernek és Betty Sheehan-nek érdeklődésükért és a könyvhöz nyújtott segítsé- 
gükért. Hálás vagyok a CAN Foundation támogatásáért, amely lehetővé tette, 
hogy egy időre megszabaduljak a CAN napi ügyeitől, és csak az új kiadáson 
dolgozzam. 
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Végül, de nem utolsósorban megköszönöm Rudi Hirschfeldnek a CWI-ből, 
CAN-beli kollégáimnak, Leendert van Gastel-nek és Roderik Lindbergh-nek, 
hogy gondosan és alaposan átolvasták a kézirat korai változatait. Értékes meg- 
jegyzéseik sokat javítottak a könyvön. Dick Verkerk a CAN Diensten-től szintén 
bátorított és támogatott. 

Mindezen segítség ellenére könyvem olvasói bizonyára további megjegyzések- 
kel, javaslatokkal és korrekciókkal fognak előhozakodni. Észrevételeiket az aláb- 
bi címen várom: 


University of Amsterdam 
CAN Expertise Center 
Attn. André Heck 
Nieuwe Achtergracht 170 
1018 WV Amsterdam 
The Netherlands 


E-mail címem 


heckOcan.nl 
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Az első kiadás előszava 


A számítógépekkel végzett szimbolikus számításoknál (számítógépes algebrának 
is szokás nevezni) a matematikai számítások hagyományos eszközeit, a papírt 
és a ceruzát, a billentyűzet és a képernyő helyettesíti. A számítógépes algeb- 
rai rendszereknek nevezett interaktív programok fölhasználói a számokon kívül 
szimbolumokkal, formulákkal, egyenletekkel stb. is dolgozhatnak. Sok mate- 
matikai feladat, így például a differenciálás, integrálás, függvények sorfejtése, 
szimbolikus elemeket tartalmazó mátrixok invertálása különösebb emberi erőfe- 
szítés nélkül gyorsan, nagy pontossággal megoldható. 


A számítógépes algebrai rendszerek hathatós segédeszközei a matematiku- 
soknak, fizikusoknak, vegyészeknek, mérnököknek, technikusoknak, pszicholó- 
gusoknak, szociológusoknak — vagyis mindenkinek, aki matematikai számítá- 
sokat végez. A számítógépes algebrai rendszerek nélkülözhetetlenek a modern 
elméleti és alkalmazott tudományos kutatásokban, valamint az oktatásban. 

Ez a könyv az egyik modern számítógépes algebrai rendszert, a Maple-t ismer- 
teti. Elsősorban arra tanít meg, hogy a Maple mire képes, és miként használható 
(alkalmazott) matematikai problémák megoldására. A könyv sok példát és gya- 
korlatot tartalmaz (elemiektől a bonyolultabbakig). Ezek a Maple használatára 
ösztökélnek, és a rendszerben való eligazodást segítik. Azt tanácsolom, hogy a 
könyvet a Maple rendszerrel együtt olvassák, próbálják ki a példák különböző 

A hangsúlyt a Maple alapvető elveinek és ötleteinek megismertetésére helyez- 
tük, hogy az Olvasót fölkészítsük matematikai problémáinak a rendszer segít- 
ségével történő effektív megoldására. A Maple egyes beépített lehetőségeiről 
az online súgó vagy a szoftverrel adott dokumentáció részletesen tájékoztat. 
Matematikát sem akarunk tanítani: ismertnek tételezzük föl a példák elméleti 
hátterét. A sokféle probléma és a Maple által nyújtott megoldások megismerése 
képet adhat a rendszer lehetőségeiről. 

A könyvben nem tárgyaljuk kimerítően a Maple programozási nyelvét, csak 
egyszerű eljárásokat és alapvető nyelvi konstrukciókat használunk. Az adat- 


struktúrákat azonban részletesen ismertetjük, mivel alapos megértésük nélkü- 
lözhetetlen a kifejezések hatékony kezeléséhez és egyszerűsítéséhez. Ez jó kiin- 
dulópontot jelent a pogramozási nyelvvel való további ismerkedéshez is. 


A fölhasznált Maple verzió 


A Maple V Release 2 verziója a nagyszámítógépektől a munkaállomásokon át a 
Macintosh, Next, Amiga, IBM PC és velük kompatibilis rendszerekig mindenütt 
elérhető. Ennek használatát tételezzük föl, bár a könyv nagyrésze platformfüg- 
getlen. 


ze 


A könyv előállításának technikai részletei 


A könyv egy Silicon Graphics Indigo szerveren futó Maple V Release 2-vel 
készült. A Waterloo Maple Inc. által módosított program lehetővé tette az 
egyes Maple parancsok outputjának Postscript formátumú elmentését. Ezeket a 
Postscript eredményeket a TFX-hel végzett szedéskor illesztettük be a kéziratba. 
Így , valódi? Maple szekciókat, az őket kísérő kommentárokat, megjegyzéseket és 
magyarázatokat tartalmazó szöveget állítottunk össze. Ennek következtében az 
Olvasó is biztosan reprodukálni tudja ezeket az eredményeket akár a terminál 
képernyőjén, akár papíron. A Maple inputot és outputot Courier fonttal szed- 
tük, hogy könnyen megkülönböztethető legyen a többi szövegrésztől. A Maple 
eljárások neveit félkövérrel írtuk. A. könyv nyomdakész formátuma a CWI 1200 
pont /inch fölbontású fényszedőgépén készült. 


A könyv eredetéről 


A szerző 1987-ben a Nijmegeni Egyetemen kezdett hozzá bevezető Maple kurzu- 
sok kidolgozásához. Azóta a kurzusok anyagának több átdolgozott és korszerű- 
sített változata jelent meg. A legfontosabb a szintén nijmegeni Ernic Kamerich- 
hel közösen írt 1990-es Introductte in het gebruik van maple című könyv. Ebben 
a meglévő részeket kiegészítettük, átdolgoztuk, kibővítettük. A jelen könyv 
alapját is ez képezi, bár a Maple V Release 2 megjelenése miatt a szöveget sok 
helyen meg kellett változtatni és ki kellett bővíteni. Továbbá számos, a Map- 
le gyakorlati használatát bemutató példát is fölvettem. Mindemellett Ernic 
Kamerich munkája döntően hozzájárult a könyv olvashatóságához és használ- 
hatóságához. 


Köszönetnyilvánítások 


Sokan közreműködtek a könyv elkészítésében. Elsősorban a, Waterloo-i Egyete- 
men a Symbolic Computation Group-ban valamint a Waterloo Maple Software- 
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nél dolgozó barátaimat és kollégáimat illeti köszönet támogatásukért, bátorítá- 
sukért és az elmúlt néhány évben megválaszolt kérdéseimért. Rüdiger Gebau- 
ernek, a Springer kiadó munkatársának meg szeretném köszönni a könyv iránti 
érdeklődését és hozzám való türelmét. Hálával tartozom Darren Redfernnek és 
Bruce Barbernek a kézirat gondos és alapos átolvasásáért, továbbá, angoltudá- 
som és stílusom javításáért. Felbecsülhetetlen értékűek voltak Michael Monagan 
megjegyzései, javaslatai és kritikai észrevételei. Köszönet Ron Sommerlingnek 
a Maple-ről és a kurzus anyagáról folytatott beszélgetésekért. Nancy Blach- 
man és Bert Ruitenburg a könyv egyik korai változatáról tettek megjegyzése- 
ket. Nagyra értékelem Jan Schippernek a kézirat nyomdakész alakra hozásában 
nyújtott segítségét. Marc van Leeuwen a TEX használatához adott nélkülöz- 
hetetlen tanácsokat. Végül, de nem utolsósorban meg szeretném köszönni a 
CAN Foundation-nél és a CAN Expertise Center-ben dolgozó kollégáimnak, ne- 
vezetesen Arje Cohen-nek, Jan Sanders-nek és Leendert van Gastel-nek, hogy 
emlékeztettek arra, hogy a könyveket meg kell jelentetni, és intézték a CAN 
napi ügyeit, míg a könyvön dolgoztam. Mindezen segítség ellenére könyvem ol- 
vasói bizonyára további megjegyzésekkel, javaslatokkal és korrekciókkal fognak 
előhozakodni. Észrevételeiket az alábbi címen várom: 


University of Amsterdam 
CAN Expertise Center 
Attn. André Heck 
Nieuwe Achtergracht 170 
1018 WV Amsterdam 
The Netherlands 


E-mail címem 


heckOcan.nl 
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Bevezetés a számítógépes 
algebrába, 


A fejezetben röviden ismertetjük a számítógépes algebrai rendszereket! , néhány 
szót ejtünk történetükről, példákat mutatunk a, számítógépes algebra fölhaszná- 
lására, majd megvizsgáljuk ezen új technológiai eszközök előnyeit és korlátait. 
A fejezetet a Maple tervezésének rövid vázlatával zárjuk. 

A fejezet példái néhány esetben komoly matematikai ismereteket igényelnek. 
A második fejezettel kezdődően részletes, lépésről lépésre haladó bemutatását 
adjuk a Maple rendszernek, mint szimbolikus kalkulátornak. A könyv hátralévő 
része különösebben nem tételezi föl a jelen fejezet ismeretét, így aki már annyi- 
ra szeretné a Maple-t megismerni, hogy egy percet sem tud várni, nyugodtan 
átugorhatja, és később ismét visszatérhet ezekre a lapokra. 


1.1. Mi a számítógépes algebra? 


Történetileg a számítani (compute) igét leginkább a , számokkal számolni" érte- 
lemben használták. Numerikus számítások alatt azonban nemcsak a számokon 


1A Computer Algebra? szakkifejezés magyar megfelelőjeként a ,számítógépes algebra", 
ezzel összhangban a , Computer Algebra System" fordításaként a, , számítógépes algebrai rend- 
szer" terminust használjuk (A Fordító megjegyzése.) 
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végzett alapvető aritmetikai műveleteket (mondjuk az összeadást vagy a SZor- 
zást) kell érteni, hanem bonyolultabb számítási eljárásokat is, mint például ma- 
tematikai függvények értékeinek numerikus kiszámítását, polinomok gyökeinek 
meghatározását és mátrixok sajátértékeinek numerikus közelítését. Az ilyen tí- 
pusú számítások lényege, hogy aritmetikai műveleteket hajunk végre számokon 
és csak azokon. Továbbá a numerikus számítások az esetek nagy részében nem 
pontosak, mivel az alkalmazásokban majdnem mindig lebegőpontos számokat 
használunk. Egyszerű számításokat végre lehet hajtani papírral és ceruzával 
vagy zsebszámológéppel; nagy numerikus számításokra a nagy teljesítményű 
(mainframe) számítógépek szolgálnak. Az utóbbi ötven év a számítógépekkel 
végzett numerikus számítások virágkora volt; olyannyira, hogy sok tudományos 
kutató számára a számítógépen végzett matematikai számítás és a numerikus 
számítás szinonimákká váltak. 


A matematikai számítások között azonban más jellegűek is előfordulnak, eze- 
ket szimbolikus és algebrai számításoknak nevezhetnénk. Röviden azt mond- 
hatjuk, hogy itt matematikai objektumokat reprezentáló szimbolumokon vég- 
zett számításoról van szó. A szimbolumok reprezentálhatnak (egész, racionális, 
valós, komplex vagy algebrai) számokat, de ugyanúgy jelenthetnek más ma- 
tematikai objektumokat, például polinomokat, racionális függvényeket, egyen- 
letrendszereket; vagy még absztraktabb módon matematikai struktúrákat, így 
csoportokat, gyűrűket, algebrákat, illetve ezek elemeit. A szimbolikus jelző azt 
hangsúlyozza, hogy a matematikai problémamegoldás végső célja sok esetben 
a válasz zárt alakban történő előállítása vagy valamely szimbolikus közelítésé- 
nek meghatározása. Az algebrai alatt pedig azt értjük, hogy a számításokat 
a közelítő lebegőpontos aritmetika használata helyett az algebra szabályainak 
megfelelően pontosan hajtjuk végre. Szimbólikus algebrai számításokra példa a 
polinomok szorzattá alakítása, a differenciálás, az integrálás, a függvények sor- 
bafejtése, a differenciálegyenletek analitikus megoldása, az egyenletrendszerek 
pontos megoldása és a matematikai kifejezések egyszerűsítése. 


Az utolsó huszonöt év jelentős fejlődést hozott a szimbolikus és algebrai al- 
goritmusok elméleti alapjainak kutatásában, továbbá a matematikai számítások 
számítógépeken való végrehajtására szolgáló eszközöket dolgoztak ki (19, 46, 79, 
195]. Mindez egy új diszciplina létrejöttéhez vezetett, melyet számos névvel il- 
letnek: szimbolikus és algebrai számítások, szimbolikus számítások, szimbolikus 
manipuláció, formula-manipuláció vagy számítógépes algebra, hogy csak néhá- 
nyat említsünk. A számítógépeken végzett matematikai számításokat támoga- 
tó eszközöket is legalább annyiféleképpen nevezik, mint magát a diszciplinát: 
szimbolikus számításokat végző programok, szimbolikus manipulátorok, számí- 
tógépes algebrai rendszerek. Sajnos a szimbolikus számítás szakkifejezés számos 
különböző kontextusban használatos a logikai programozásban, a mesterséges 
intelligenciában stb. Az ott használatos értelemben azonban a, szimbolikus szá- 
mításoknak alig-alig van köze a matematikai számításokhoz. A félreértések el- 
kerülése végett a továbbiakban a számítógépes algebra kifejezést használjuk, és 
számítógépes algebrai rendszerekről fogunk beszélni. 
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1.2. Számítógépes algebrai rendszerek 


Ebben a fejezetben a. teljesség igénye nélkül nagyon röviden és szubjektíven 
áttekintjük a jelenleg létező számítógépes algebrai rendszereket. Alaposabb is- 
mertetést találhatunk [42]-ben és a számítógépes algebrával foglalkozó WWW- 
szervereken (lásd [199]). A számítógépes algebrai rendszereket célszerű két ka- 
tegóriába sorolni: a. speciális célú és az általános célú rendszerek csoportjába. 


A speciális célú rendszereket a, fizika vagy a matematika egy adott területén 
fölmerülő speciális problémák megoldására tervezték. A fizikában használato- 
sakk közül a legismertebbek a SCHOONSCHIP ([178], nagy energiájú fizika), 
a CAMAL (/9], égi mechanika), valamint a SHEEP és STENSOR, rendszerek 
([65, 104, 134], általános relativitás). A matematika területéről vett példák: a 
Cayley és a GAP ([28, 31, 165], csoportelmélet), a PARI, a SIMATH és a KANT 
([12, 85, 103, 156], számelmélet), a CoCoA ([34, 78], kommutatív algebra), a Ma- 
caulay ([86, 173], algebrai geometria és kommutatív algebra) és a LIE ([31], Lie 
elmélet). Bár bennünket elsősorban az általános célú Maple rendszer [38, 39, 40, 
187, 188] érdekel, a speciális célú rendszerek jelentőségét sem szabad alábecsülni, 
mivel rendkívül fontos szerepet játszanak a tudományos kutatás számos terüle- 
tén [19, 30, 106]. A speciális célú rendszerek gyakran hatékonyabbak és jobban 
kezelhetők az általános célúaknál. Ez az általuk használt speciális jelöléseknek 
és adatstruktúráknak, valamint annak a következménye, hogy algoritmusaikat 
többnyire alacsony szintű programozási nyelveken implementálták. 


Az általános célú rendszerek változatos adatstruktúrákkal és sok matematikai 
függvénnyel kényeztetik fölhasználóikat, így próbálják a lehető legtöbb alkalma- 
zási területet lefedni. (V. ö. [95].) A ma használtak közül a legrégebbi általános 
célú számítógépes algebrai rendszerek a MACSYMA. [136] és a REDUCE [97]. 
Mindkét rendszer a hatvanas évek végén született, a LISP programozási nyelven 
implementálták őket. A MACSYMA teljes számítógépes algebrai rendszer kie- 
gészítő csomagok széles skálájával, de számítógépes erőforrásigényei igen nagyok, 
és kevés platformon érhető el. A MACSYMA. 1992-es PC-s verziójának megjele- 
nésével újjászületett a rendszer. A REDUCE a nagy energiájú fizikában haszná- 
latos speciális célú rendszernek készült, de fokozatosan általános célú rendszerré 
vált. A MACSYMA-val összehasonlítva a REDUCE szerényebb lehetőségeket 
kínál fölhasználóinak, másrészről azonban rendkívül nyitott rendszer (a teljes 
forráskód elérhető!), ami könnyen kiterjeszthetővé és módosíthatóvá teszi. A 
REDUCE-t továbbra is aktívan fejlesztik: a 3.6-os verziója 1995 októberében 
látott napvilágot. Számítógépek széles skáláján fut, és jól dokumentált. 

A nyolcvanak években a PC típusú számítógépekre kifejlesztett nem progra- 
mozható szimbolikus kalkulátorok első példái voltak a MuMATH [197] és köve- 
tője, a DERIVE [176]. A DERIVE grafikus és numerikus lehetőségei barátságos 
menüvezérelt interfészen keresztül érhetők el. Kis méretét és a DOS korlátait 
figyelembe véve azt mondhatjuk, hogy a DERIVE a felhasználónak rendkívül 
izgalmas lehetőségek tárházát kínálja. Az 1994-ben kiadott 3-as verzió korláto- 
zott programozási lehetőségeket is tartalmaz. A DERIVE sok lehetőségét beé- 
pítették a TI-92 tudományos kalkulátorba, ezzel a számítógépes algebra egészen 
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kicsiny gépeken is elérhetővé vált. 

A legtöbb modern számítógépes algebrai rendszert a C programozási nyelven 
implementálták. Ezzel olyan hatékony, portábilis számítógépes programokat 
készíthetnek a fejlesztők, amelyek ténylegesen kihasználják a célbavett platform 
tulajdonságait. A számítógépes algebrai rendszerek nagy része gépek széles 
skáláján futtatható, a szuperszámítógépektől egészen az asztali gépekig. 


Az 1.6. alfejezetben röviden összefoglaljuk a Maple [38, 39, 40, 187, 188] 
rendszer tervezését. Egy másik figyelmet érdemlő modern általános célú rend- 
szer a Mathematica [196]. A Mathematica az első olyan rendszer, amelyben a 
szimbolikus és a numerikus számításokat, valamint a, grafikai lehetőségeket úgy 
ötvözték egybe, hogy együttesen kellemes, felhasználóbarát környezetet kínál- 
janak a matematikai feladatok megoldására. A programot bizonyos gépeken (a 
Macintosh-on, a NeXT-en és az MS Windows-t futtató PC-ken) a jegyzetfüzet- 
nek nevezett felhasználói felülettel látták el, amelynek segítségével közönséges 
szöveget, formulákat, számításokat és grafikát is tartalmazó strukturált szöve- 
geket hozhatunk létre. A Mathematica másik említésre méltó tulajdonsága a 
jól strukturált fölhasználói szintű programozási nyelv. A megjelenését övező 
publicitás és marketing-stratégia (lásd [175]) kétségtelenné tette, hogy a számí- 
tógépes algebra területére is betörtek az üzleti szempontok, amelyek a rendszer 
képességeiről szóló kevéssé realisztikus állításokat szültek. (V. ö. [175].) Po- 
zitív kicsengésként megemlíthetjük, hogy mindez sok kutató figyelmét felhívta 
a számítógépes algebrára és a számítógépes algebrai rendszerek használatára a 
tudományos kutatásban és az oktatásban. További előnyt jelentett a fejlesz- 
tők növekvő érdeklődése a barátságosabb felhasználói felületek tervezése, a jól 
használható dokumentáció és a felhasználók megfelelő támogatása iránt. 


A fent említett általános célú rendszerek csak a számítógép memóriájában 
tárolt formulák kezelésére képesek. Így a rendelkezésünkre álló memória, jelen- 
ti a formula nagyságára az egyetlen korlátot. A FORM [99, 148, 184] nevű 
szimbolikus manipulációkat végző programot úgy tervezték, hogy , virtuálisan 
végtelen" nagyságú formulákat is kezelni tudjon. A rendszerben rendelkezésre 
álló utasítások halmaza viszont eléggé korlátozott. 


A Cayley leszármazottja az 1994-ben elkészült Magma [17, 18, 32], melynek 
tervezését olyan algebrai fogalmakra alapozták, mint a struktúrák és a morfiz- 
musok. Algebrai, számelméleti, geometriai és algebrai kombinatorikai számítá- 
sok támogatására szánták. Ennek eléréséhez bőséges eszköztárral látták el a 
rendszert a csoportok, gyűrűk, modulusok, algebrák, geometriai struktúrák és 
véges véletlen struktúrák (kódok, gráfok) kezelésére. Két tervezési alapelvük a 
modern algebrából kölcsönzött szigorú típusolási séma (melyben a, típusok al- 
gebrai struktúráknak felelnek meg) és az algoritmikus valamint az adatbázisokra 
vonatkozó ismeretek integrációja volt. 

A MuPAD [67,68] neve a , Multi Processing Algebra Data Tool" kifejezésből 
származik. Szimbólikus és numerikus számításokat, párhuzamos matematikai 
programozást és matematikai vizualizációt támogató rendszer. Nem üzleti jelle- 
gű fölhasználásra szabadon terjesztik. A Paderborni Egyetemen most is aktívan 
fejlesztik, a rendszer matematikai tudása gyorsan növekszik. Az 1.2.2 verzió 
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1995 júliusában jelent meg. 

Létezik párhuzamos szimbolikus számításokat végző, a Maple-re épülő por- 
tábilis rendszer is. Neve IIMapleli (vagyis ,párhuzamos Maple"), lásd [168]. A 
rendszer a Strand [64] párhuzamos deklaratív nyelv és a Maple szekvenciális 
számítógépes algebrai rendszer közti interfészként működik, s ezzel a Strand 
eleganciája mellett a Maple-ben megírt hatékony szekvenciális algoritmusokat 
is elérhetővé teszi. 

Végül, de nem utolsósorban megemlítendő az AXIOM [54, 55, 108, 109, 179]. 
Ezt a hatékony általános célú rendszert a nyolcvanas években az IBM Thomas J. 
Watson Kutatólatoratóriumában , Scratchpad" néven fejlesztették ki. A legtöbb 
általános célú rendszerrel ellentétben, amelyek csak előre meghatározott algebrai 
tartományokban, például a racionális számtestben vagy az egészek fölütti poli- 
nomok gyűrűjében végzett számításokat engednek meg, az AXIOM fölhasználói 
különféle típusú új algebrai struktúrákat definiálhatnak és ezekben is számol- 
hatnak. Az 1995-ös 2.0 verzió csak nagy IBM RS/6000, SUN és HP9000/700 
gépeken érhető el. 
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Az egyes számítógépes algebrai rendszerek természetesen különbözőek, de ugyan- 
akkor számos közös tulajdonságuk is van. A közös tulajdonságokat a Maple-ből 
vett példákkal illusztráljuk. 

A számítógépes algebrai rendszerek olyan interaktív programok, amelyek a 
numerikus számítógépes programokkal szemben szimbolikus kifejezésekkel való 
matematikai számításokat is megengednek. Tipikus használatuk: a felhasználó 
beír egy matematikai kifejezést vagy utasítást, melyet azután a számítógépes 
algebrai rendszer megpróbál végrehajtani. A számítás eredményét megkapva a 
fölhasználó újabb parancsot adhat ki. Ez a folyamat egy termékeny számítógé- 
pes algebrai szekció? létrejöttéhez vezethet. A Maple fölhasználásának egyszerű 
példájaként kiszámoljuk az 


27? —1 
27 SAZEGEZTTET 
racionális függvény stacionárius helyét és a függvény értékét ebben a pontban. 
A fejezet későbbi részében látni fogjuk, hogy a Maple maga is ki tudja számíta- 
ni a függvény minimumát. A példát csupán a számítógépes algebrai rendszerek 
néhány jellemző tulajdonságának bemutatására használjuk. Az 1.1. ábrán lát- 
ható a számításokat tartalmazó munkalap, amelyet a Maple V Release 4 Unixos 
gépen futó munkalapos felhasználói felületű változatával futtatunk. 

Vegyük közelebbről szemügyre ezt a példát. Amikor a Maple-t az X Window 
rendszer alatt az xmaple paranccsal indítjuk el, a képernyőn egy üres munkalap 
jelenik meg. Első sorában a Maple a , 5" karakterrel jelzi, hogy parancsra vár. 
Ezt a, 5" jelet a továbbiakban Maple promptnak nevezzük. 


2A session?" kifejezést jobb híján szekciónak fogjuk mondani. (A Fordító megjegyzése.) 


6 1. Bevezetés a számítógépes algebrába 


Az első paranccsal f képletét adtuk meg. Az input sort pontosvesszővel fe- 
jeztük be, utána megnyomtuk a RETURN? gombot. A két utolsó karakter jelzi 
a Maple-nek, hogy kezdheti a munkát. A beírt képlet kétdimenziós matema- 
tikai jelöléssel, a tankönyvekből ismert formában és minőségben jelenik meg. 
Leginkább az lepheti meg az Olvasót, hogy a rendszer megengedi az r-hez ha- 
sonló szimbolumok használatát. A legtöbb numerikus programozási nyelvben ez 
azonnali hibaüzenetet okozna; nem így a szimbolikus számításokat végző rend- 
szerekben! 


E ő 
aretan(  (25"x"2-1)-/7 (2"xS2F1) s 


ge 1 
/: arctani 
2x 41 
5 derivative :zm diff( É, x ); 
2 
2x —1)x 
2x" 41 2 
iát Am (2x 41) 
derivative :z B) 
HA 
2x -1 
ga EB ? 
2 
(2x2 41) 
5 derivative :— normal(i derivative ); 
derivative : 4 
4x 41 
5 plot( signun(i deriívative ), 
x z -8..5, -2..2, axeszboxegd, 


thickness — 3 ); és 
5 minimum value :z subs( xz0, £ ); 
minimum value :z arctanf-1) 
5 minimum value; 


5 approximation :- evalí( minímum value ); 


1.1. ábra: Egy Maple munkalap 


A Maple minden utasítás végrehajtása után új prompt jelet ír ki, jelezvén, hogy 
a következő parancsra vár. Az f-et függvényként kívánjuk fölfogni, differenciál- 
tatjuk a diff paranccsal, és az eredményt a derivative nevű változóhoz rendeljük 
hozzá. A Maple válasza meglehetősen bonyolult kifejezés, így normalizáljuk a 
racionális függvényt a normal parancs segítségével. A válasz olyan egyszerű 
kifejezés, amelynek előjele könnyen kirajzoltatható. Az ábra alapján azonnal 
látható, hogy az eredeti függvénynek minimuma van az z — 0 helyen. A mi- 
nimum értékét, —5-et, az z — 0 érték f-be való behelyettesítésével, vagyis a 
subs parancs alkalmazásával kapjuk. Az evalf parancs ezen érték lebegőpontos 
közelítését adja. Az evalf elnevezése (az , evaluate using floating-point arith- 


3A PC billentyűzetén ehelyett általában az ENTER-t találjuk. (A Fordító megjegyzése) 
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metic" kifejezés rövidítése) immár a negyedik példáját adja a Maple névadási 
filozófiájának: válasszunk rövid, könnyen megjegyezhető, az eljárások funkci- 
ójára utaló neveket. Saját változóinkat mi is , értelmes", használatukra utaló 
nevekkel láttuk el. 

A Maple láthatóan nem törődik azzal, hogyan ismerjük ki magunkat az el- 
végzendő számítás részletei között. A. második eredmény alapján nekünk kell 
eldönteni, hogy megpróbálunk kevésbé bonyolult formulát találni a függvény 
deriváltjára. Az Olvasó megkérdezhetné, hogy a rendszer vajon miért nem hajt- 
ja végre ezt a többé-kevésbé nyilvánvaló egyszerűsítést. De ne feledjük, nem 
mindig nyilvánvaló, mit és hogyan egyszerűsítsünk. Sokszor több lehetséges 
egyszerűsítés közül a matematikai környezet dönti el, hogy melyik a megfelelő. 


Például az 
(32 —1(22— 2314 1)(2? r-t 1) 


(z— 1)" 
racionális kifejezés a kompaktabb 

r§—-1 

(z— 1)" 


alakra hozható, de integráláshoz célszerűbb így fölírni: 


í 6 15 20 15 4 6 
V-IE "ma DK) úrak 4a— TŐ " m-L 

Az automatikus egyszerűsítéssel kapcsolatos másik probléma az, hogy sok szá- 
mításnál nem lehet előre megjósolni az eredmény nagyságát és alakját, ezért 
bármikor képesnek kell lennünk a beavatkozásra. Egy olyan eljárás, amely az 
egyik esetben kiválóan működik, máskor még nagyon rossz választásnak bizo- 
nyulhat. Például azt gondolhatnánk, hogy a kifejezések szorzattá alakítása min- 
dig jó ötlet. Az 


38 4 8r7 4 282" 3- 567? 4 701" -- 567? 1 2827 4 82-41 
formula szorzattá alakításának eredménye 
(z-4 1)". 


Ugyanakkor azon kívül, hogy mennyire költséges, még igencsak meglepő is az 
aránylag egyszerű 
25 pr 41 


formula szorzattá alakításának eredménye: 
(224 — 323 4 221 — 220 4 z18 17 4 15 szd ze tegez 
2-2 a43?—zi1 (371711) 
Ezen megfontolásokból a Maple csak akkor alkalmaz automatikus egyszerűsítési 


szabályokat, ha a keletkező kifejezés kétségtelenül egyszerűbb. Az z -- 0 kife- 
jezést nyilván x-re kell egyszerűsíteni, a 37 egyszerűbb, mint T-4HT7-tz, az x3 
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jobb kifejezés, mint T x z x z és sin(r) is 0-ra egyszerűsítendő. Bármely más 
egyszerűsítés a felhasználó feladata. A Maple mindössze az eszközöket biztosítja 
az ilyen feladatok elvégzéséhez. 


Az automatikus egyszerűsítés bizonyos esetekben a matematikai korrektség 
, elvesztésével jár. Például a 0 x f(1) kifejezés automatikus egyszerűsítése 0-ra 
nem mindig helyes. Ilyen kivételes esetek, amikor f(1) definiálatlan vagy vég- 
telen. Az automatikus egyszerűsítés végrehajtását csak akkor kívánnánk, ha 
f(1) véges, de nehéz kiszámítani. Hasonló esetekben a számítógépes algebrai 
rendszerek tervezőinek választani kell a szigorú matematikai helyesség, valamint 
a rendszer használhatósága és hatékonysága között. (V. ö. [60].) A Maple és 
sok más rendszer esetében a mérleg nyelve néha kicsit elbillen a hatékonysági 
okokból alkalmazott, nem 1007-ig biztonságos egyszerűsítési eljárások irányába. 

Az első példánkból látható másik említésre méltó tény az, hogy a Maple az 
origóban a függvény pontos értékét, —2T-t veszi, nem pedig valamilyen közelítő 
értéket, mondjuk 0.785398-ot. Ez a, számítógépes algebrai rendszerek második 
fontos aspektusa: a pontos aritmetika hangsúlyozása. A számítógépes algebrai 
rendszerek képesek a fölhasználó által meghatározott pontosságú lebegőpontos 
aritmetikában számolni. Így például a Maple-ben a tan?(r/12) kifejezés értékét 
pontosan meghatározhatjuk, de megkaphatjuk 25 tizedesjegy pontosságú valós 
lebegőpontos alakú közelítését is: 


s: real number :-— tan(Pi/12)72; 
real. number :— (2 — V3)? 

5 real number :— expand( real number ); 
real-number — 7— 473 

5,  approximation :- evalf( real number, 25 ); 


approgimation :— .071796769724490825890216 


A Maple-höz hasonló számítógépes algebrai rendszerek jelentős mennyiségű be- 
épített matematikai tudásanyaggal bírnak. Ez teszi őket hasznos matematikai 
segítőtársakká. Az analízisben elvégzik a függvények differenciálását, határér- 
tékeket és sorfejtéseket határoznak meg. A számítógépes analízis egyik fontos 
területe a (határozatlan és a határozott) integrálás. A Maple elemi függvények 
integrálására nem a klasszikus algoritmusokat, hanem az ún. Risch algoritmust 
[76] használja, szemben a legtöbb matematikai kézikönyvben ismertetett heu- 
risztikus integrálási eljárásokkal. 

A rendelkezésre álló függvénytani eszközökkel könnyen felderíthetjük a függ- 
vények tulajdonságait. A következő Maple szekcióban az előzőleg definiált f 
függvényt vizsgáljuk. A ,3§" karakterrel kezdődő sorokat a rendszer kommen- 
tároknak tekinti; a jól megválasztott változónevekkel és a Maple által használt 
,kifejező" eljárásnevekkel együtt így általában könnyen elmagyarázható a mun- 
kalap tartalma. Ha az input sort pontosvessző helyett kettősponttal zárjuk, 
akkor a Maple nem nyomtatja ki a kapott eredményt. Szóközök használata a 
parancssorban opcionális, de a jobb olvashatóság kedvéért néhol érdemes hasz- 
nálni őket. 

5 f :— arctan( (2rx72-1) / Gzszkb ); $ enter formula 
27 —1 


f Iz arctanl TT) 
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s df :5 normal( diff( f, x ) ); t differentiate f 


x 
df — 4 ———— 
JT 41-31 
5 F :-— integrate( df, x ); it integrate derivative 


F :— arctan(2 2?) 


s normal( diff( F - f, x ) ): t verify F — f 4 Pi/4 
0 


5  eval( subs( x-0, F - f ) ); 
1 


errül 


4 


s readlib( extrema ): it load library function 
s  extrema( f, (d), x, stationary points ); 


1 
tejel 
5  stationary points; 
(1-0) 


s dt this value was assigned by the call of "extrema" 
s  solve( f-0, x ); tt compute the zero?s of f 


11 1 
5v2Tzv2 


5 § compute the Taylor series approximation of f 
5 series( f, x50, 15 ); 


1 8 32 128 
áz údasl ál ékes HMS Bi 
5 it load package for numerical approximation of functions 
s  with( numapprox ): 
s pade( f, x, [6,4] ); 
1 —15 7 3120 2? — 36 7 z! 4 128 ző 


12 54127! 
5 it compute the Chebyshev-Pade approximation of f 
5  chebpade( f, x, [2,2] ); 
—.007904471007 T(0, x) -- .4715125862 T(2, r) 
T(0, z) — .4089934686 T2, x) 


ax 4 0(z15) 


5 $t compute limit of f when x goes to infinity 
s limit( f, xsinfiníty ); 

1 

megt 

4 
5 it compute the asymptotic form of f 
s series( f, x-infinity ); 

1 1 1 


1 
rúlektiukári 
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. tö? finally, draw the graphs of f and df 

5 f plot :— plot( f, xzs-5..5, linestyle-0 ): 
5 df plot :— plot( df, x--5..5, linestyle-4 ): 
5  plots[display]( ff plot, df plotb, 

5 title-ígraph of f and f£?" ); 


A függvények grafikonja az 1.2. ábrán látható. 


graph of f and £" 


1.2. ábra: Az (T,y) FR arctan ( zi) függvénynek és deriváltjának grafikonja 
A számítógépes algebra más látványos területei a polinomkalkulus, a, lineáris 
és nem lineáris egyenletrendszerek megoldása, a rekurrens és a differenciále- 
gyenletek megoldása, műveletek numerikus és szimbolikus komponensekből álló 
mátrixokkal, végül a tenzorkalkulus. Számos formula-manipulációs eszköz áll 
rendelkezésünkre például részkifejezések kiválasztására és helyettesítésére, kor- 
látozott egyszerűsítésre, egyszerűsítési szabályok megadására, mintaillesztésre 
és így tovább. A számítógépes algebrai rendszereket olyan matematikai szak- 
értői rendszereknek is nevezhetnénk, amelyekkel a matematikai problémákat 
hatékonyabban és pontosabban oldhatjuk meg, mint papírral és ceruzával. 


Azon túl, hogy szimbolikus és algebrai kalkulátorként használjuk őket, a leg- 
több számítógépes algebrai rendszert programozási nyelvként is alkalmazhatjuk 
új matematikai algoritmusok implementálására. Ezt illusztrálandó írunk egy 
olyan Maple programot, amely az yn(z) Bessel polinomok értékeit számítja ki. 
Idézzük föl [90]-ből a megfelelő rekurzív definíciókat: 


yolz) — 1, 
yi (2) z-1, 
yn(z) — (2n—1rTyn-1(7) tyn-2(m), han5 1. 


II 
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s Y :— proc( n::nonnegint, x::name ) 

s if n5-0 then 1 

pa elif n — 1 then xti 

. else Y(n,x) :— expand( (2rn-1)kxrY(n-1i,x) t Y(n-2,x) ) 
pl fi 

5 end: 

5 Y(5,2); 


945 z" 3945 2" 3 42027 3105224152 41 


A Maple programozási nyelve a deklarációk nélküli Algol68-ra emlékeztet, de 
több funkcionális programozási paradigmát is tartalmaz. 


1.4. A számítógépes algebra előnyei 


A számítógépes algebra hosszú távú célja a matematikai problémák megoldási 
folyamatának minél nagyobb arányú automatizálása. Bár a mai számítógépes 
algebrai rendszerek még messze nem képesek a problémák automatikus megoldá- 
sára, így is hasznos, sőt talán elengedhetetlen kutatási és oktatási segédeszközök. 
Természetesen a számítógépes algebrai rendszerekkel való megismerkedéshez idő 
kell, de ez az idő jól kamatozik. Ebben a részben a Maple-t használó példákkal 
illusztráljuk az ilyen rendszerek megismerésének és alkalmazásának néhány fon- 
tosabb indítékát. Némelyik példa mélyebb matematikai ismereteket igényel. Az 
összes számolást 75 Mhz-es Super SPARC II processzoros, 64 Mbyte memóriá- 
val és 128 Mbyte swap területtel ellátott, SunOS 4.1.3 operációs rendszerű SUN 
SPARCsStation 20 M71 típusú munkaállomáson végeztük.! Ez nem azt jelen- 
ti, hogy sokkal kisebb gépen nem lehetett volna ugyanezeket az eredményeket 
megkapni; legföljebb több lett volna az elhasznált gépidő. 


A számítógépes algebrai rendszerek fő előnye, hogy terjedelmes szimbolikus 
számítások végzésére képesek. Bár sokszor papírral és ceruzával kiszámolható 
triviális standard átalakításokról van szó, minél nagyobbak a formulák, annál 
nehezebb a feladat, és annál kisebb a sikeres végrehajtás esélye. Az ilyen jellegű 
problémáknál nagyszerű segédeszköz egy számítógépes algebrai rendszer. 


Első példánk az R. Pavelle által [154]-ben fölvetett problémák egyike, melye- 
ket a számítógépes algebrai rendszerek számára kihívásként fogalmazott meg. 
A feladat a következő: bizonyítsuk be, hogy 
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4A fordításban szereplő eredményeket a Maple V Release 4 Linuxos gépen futó változatával 
nyertük. Ezen készült a fordítással kapcsolatos összes szerkesztési, grafikai munka is. A gép 


paraméterei: 166 Mhz-es Intel Pentium processzor, 32 Mbyte memória, 128 Mbyte swap, 
Redhat 5.0 disztribució 2.0.33 kernellel. (A Fordító megjegyzése.) 
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megoldása a következő negyedrendű parciális differenciálegyenletnek 


sat JE MEA at Te. sát PB Ha e f-0 
0x2 t 932  "9y2- "02? 032  90y? 84 
A Maple egyszerűsítési eljárásai elég hatékonyak ahhoz, hogy ezt a problémát 
másodpercek alatt megoldja: 
5 settime :— time(): it start timing 


5 f :z sin( nizisgrt(x72ty72tz72) / sgrt(y72tz72) ) / 
4; sart(x"2ty72-tz72); 


v 


simplify( dirff( diff(f,x$2) t diff(f,y$2) t diff(f,z$2), 
x$2 ) 1 n72 x ( diff(f,x$2) 1 diff(f,y$2) ) ); 


0 
5 cpu time — (time()-settime) $ seconds; it computing time 
cpu.time — 11.460 seconds 


Vv 


Második példánk célja a G2 típusú Lie csoport reprezentációjának dimenzi- 
óit előállító generátor-függvény meghatározása. (V. ö. [43, 44].) Tehát olyan 
F(z,y) racionális függvényt próbálunk találni, amelyre 


F(x,y) ke bég G2(k, Day, 


k120 


ahol G2(k,1) a következő kifejezés: 


s G2 :5 (k,1) -3 1/5! ax (kt1) r (141) x (kt1t2) x 
3-3 (kt2r1lt3) x (kt3r144) x (2rkt3r145); 


G2 ta(kejl) - öz 
(k-H1)(141)(k-H13-2)(k3-213-3)(k3313-4)(2k1- 31-45) 


Itt a Maple nyíl jelölését használtuk a függvényoperátorokra. Ily módon G2 
argumentumainak segítségével megadott értékeket fölvevő függvény, nem pedig 
egyszerű formula. Racionális generátorfüggvények a Maple genfunc csomagjá- 
val kezelhetők. Ezt használjuk problémánk megoldására is: 

5 with( genfunc ): it load genfunc package 

5: settime :— time(): it start timing 

5 F :- rgf encode( rgf encode( G2(k,1), k, x), 1, y ): 

s o F sort( factor( F ) ); 


F :— (3tyta8aty h r3yt 3 8x!y? — 2623 y? 4 zty— 4127 y? 
31522y?—6z23yrt7812y —6ry?31517y—4lxy? 4 y? 
— 2Z6ryt8y-trt8y41/((z— 1)" (y—1)") 
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5 cpu time — (time()-settime) $ seconds; $ computing time 
cpu.time — .709 seconds 


A tudományos életből is említünk egy olyan példát, melyben a Maple a ma- 
tematikai segédeszköz szerepét játszhatta, volna, (lásd [198]). Ebben a cikkben a 
A Laplace-Beltrami operátor meghatározására, volt szükség hiperszférikus ko- 
ordinátarendszerben. Ehhez ki kellett számolni a koordinátafüggvények Jacobi- 
mátrixát, a metrikus tenzort és ennek inverzét. Idézünk néhány mondatot a 
cikkből: 


MESA 4 ő 
, Nem nehéz kiszámítani —-t és szintén nem túl nehéz, de elég unal- 


i 
mas számolással adódnak a, (32B) egyenlet nyomai. Némi algebra 
bevetése után azt kapjuk, ..." 


,Á g függvény invertálása is elég fáradságos munka. Néhány oldalon 
kiszámolva a minorokat, kijön, hogy . .." 


Ezek a megjegyzések valóban igazak, ha, a számításokat papírral és ceruzával 
végezzük; más a helyzet, ha a Maple-re bízzuk a feladat végrehajtását. Az alábbi 
Maple számításokban a lehetőségek határai között megtartottuk a [198] cikk 
eredeti jelöléseit. Ne zavarjon, ha nem értjük minden egyes parancs jelentését, 
a részleteket megtalálhatjuk a könyv későbbi fejezeteiben. 

A számítás első lépése az Y koordináta-leképezés definiálása és a G metrikus 
tenzor megkonstruálása. Kiderül, hogy ez a számítás legidőigényesebb része: 

s  settime :— time(): it start timing 
s with( linalg ): ii load linear algebra package 


Warning, new definition for norm 
Warning, new definition for trace 


s  R[z] :5 x -: array( [ [ cos(x), -sin(x), 0 ], 
5 ( sin(x), cos(x), 0 J, 
5 I Oo 0 apmg- ]/ ): 
s  "R[z](phi)? - R[z1](phi); 
cos(é) —sin(é) 0 
R($)—] sing)  cos(ó) 0 
0 0 1 
s R[y] :— x -2 array( LIL ( cos(x), 0, -sin(x) 1], 
5 E 05 4 0 IS 
s [ sin(x), 0, cos(x) ] ] 2): 
s  :Rly](phi)? - R[y](phi); 


cos(d) 0 —sin(d) 
R.($9—-[ 0 1 0 


sin(d) 0  cos(d) 
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T :— x -5 array( [ [ cos(x) 4 sin(x), 0, 0], 
[ 0, cos(x) - sin(x), 0], 
Lo, 0,017]): 
"T(phi)? - T(phi); 
cos(d) -- sin(d) 0 0 
T($) — 0 cos($) —sin(6) 0 
0 0 0 


t define macros for greek characters 
macro( a-alpha, b-beta, c-gamma, f-phi, t-theta ): 
$t coordinate mapping Y is a product of matrices 
Y :- evalm( r/sgrt(2) x ( R[z](a) £x Rly](b) £r R[z](c/2) 

$x T(t/2) £x RIz](£/2) ) ): 
ft compute the metric tensor G 
Y1 :5- map( diff, Y, r ): Y2 

:- map( diff, Y, b ): Y4 

Y5 :- map( diff, Y, t ): Y6 : 
4$ build the metric tensor 
G :5- array( symmetric, 1..6, 1..6 ): 
for i to 6 do for j Íromi to 6 do 

Gli,j] :- simplify( trace( transpose(Y.i) £r Y.j ) ) 
od od: 
intermediate cpu time — (time() - settime) r seconds; 


map( diff, Y, a ): 
map( diff, Y, c ): 
map( diff, Y, f ): 


na 
u 
110 ! 


4 [HR 1 


intermediate cpu.time — 6.120 seconds 


A [198]-ban található formulák eléréséhez most néhány egyszerűsítő eljárást al- 
kalmazunk. A szekció outputjának lerövidítése végett továbbra is elnyomjuk a 
legtöbb részeredmény kiíratását. Amit látni fogunk, már egy , polírozott verzió", 
nem a, problémát megoldó legelső első interaktív szekció. 


MINKÉT NONE A 


G :- subs( cos(t/2)72 — 1/2 4 1/2rcos(t), 
cos(c/2)72 - 1/2 1 1/2rcos(c), sin(t/2) -— sin(t) / 
( 2rcos(t/2) ), sin(c/2) — sin(ce) / ( 2rcos(c/2) ), 
eval(G)) : 

G :5- map( normal, G ): ítt normalize each matrix entry 

G[2,2] :- normal( subs( -1/2xkr72kcos(c) xr sin(t) - 
-1/2rr72xr(cos(b)72 4 sin(b)72) $ cos(c) $ sin(t), 
CEZ SZTJ A 

G :- map( factor, G ): $ this the formula in the paper! 

G[2,2]1 :— subsop( 1--op(1,G[2,21), 3--op(3,G[2,21), 
G[2,2] ): tt get nice signs for entry 2,2 

print(G); $ this the formula in the paper! 


[1.0,0,0,0,0 
[0 ar (cos(8)? -- 1 — sin(0) cos(m) sin(8)?) , 


5 r? sin(9) sin(6) sin(0) , s cos(8) , 0 , 5 r? cos(6) cos(0) 
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b 3 27 sin( sin(y) sin(8) sin(4) , 5 , —r? (sin(0) cos(y) 41), 0, 0, oj 
1 2 j 2 
0, 57 cos(8) , 0, 2 0, -r? cos(0) 
o. 0,0,0, gr 


o. 21 cos(8) cos(0) , 0 , zr 2 cos(0) , 0 ar] 


A véges képernyőméret és a hosszú kifejezések miatt a Maple outputja nem 
túl szép, de a kapott kifejezések automatikusan lefordíthatók például a ETEX 
szövegformázó rendszernek megfelelő formátumra. (V. ö. [124].) 


s latex( G, "metric tensor? ): 


Az outputot ítt sem írattuk ki, a ETKX által kiszedett végeredmény: 


1 0 0 0 0 0 

0 r?(cos(8)?--1—sin(9) cos(y) sin(8)?) r? sin(9) sin(8) sin(0) r? cos(8) fe r? cos(8) cos(9) 
2 2 2 2 

0 r? sin(y) sa (ő) sin (0) alk GJ eben 0 0 0 

0 r? cos(8) 0 Tr 0 r? cos(0) 
2 4 4 

0 0 0 0 § 0 

0 r? cos(8) cos(9) 0 r? cos(0) 0 Tr 
2 4 4 


Számoljuk ki a Jacobi mátrix determinánsát. 
5  determinant :— simplify( det( G ) ): 
determinant :- normal( subs( cos(b)72 - 1 - sin(b)72, 
cos(t) 74 - cos(t)72 x (1 - sin(t)"72), determinant) ): 
assume( 0£zr, 0£-t, tc5Pi/2, O0czb, bcezPi ) 
Jacobian :-— subs( cos(t) — sin(2rt) / (2rsin(t)), 
sart( determinant ) ); 


Jacobian :— 33 r"5 sin(297) sin(8") 


veg vágáb ldle ORA 


Ez a cikkben szereplő (33) formula. A hiperszférikus koordinátákra tett föltéte- 
lekre amiatt volt szükség, hogy a Maple automatikusan elvégezze a négyzetgyö- 
kös kifejezések egyszerűsítését. A változónevek utáni tilde karakterek azt jelzik, 
hogy valamely föltételeket tettünk az illető változóra. 
Határozzuk meg a metrikus tenzor inverzét: 

5  GINV :- map( simpliíy, inverse( G ) ): 
GINV :- subs( cos(t)72 — 1 - sin(t)72, 

cos(b)72 - 1 - sin(b)72, eval( GINV ) ): 
cpu.time — (time()-settime) x seconds; t computing time 
cpu.time — 7.509 seconds 


AG údlb VA 
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A metrikus tenzor inverzét nem írattuk ki, GINV[4.4] kivételével minden kom- 
ponense a cikk (34) formulájának megfelelő alakú. A GINV[4,4]-et is könnyen 
a kívánt alakra hozhatnánk, de a számolás ezen utolsó fázisát inkább átugor- 
juk. Végül is néhány másodpercnyi gépidő fölhasználásával már publikálható 
eredményeket kaptunk. 

A [45] cikkben egy másik olyan példát találunk, amikor a számítógépes algeb- 
ra használatával tudtak a kutatók egy olyan bizonyítást befejezni, amely renge- 
teg triviális, de fáradságos számítást igényelt. Az említett cikkben egy tisztán 
algebrai problémát, nevezetesen véges Lie csoportok bizonyos véges részcsoport- 
jainak létezését visszavezették egy 240 egyenletből álló lineáris egyenletrendszer 
megoldására, melynek együtthatói egy 1831 elemű testből kerültek ki. Számí- 
tógép segítségével könnyen meg tudták mutatni, hogy ennek a lineáris egyen- 
letrendszernek van megoldása. Míg kézzel ez szinte lehetetlen, számítógéppel 
könnyedén kivitelezhető. A Maple segítségével végrehajtott számításokról lásd 
a [131]-et. 

Utolsó két kidolgozott példánkban a Maple-lel a generátorfüggvényt, illetve a 
metrikus tenzort és inverzét határoztuk meg. Lehet, hogy az Olvasó nem túl sok- 
ra tartja a számítógépes programokkal kapott matematikai eredményeket, de ne 
feledje, hogy számos független módszer létezik a válaszok ellenőrzésére. Az egyik 
út az lehet, hogy magát a Maple-t használjuk a számítások ellenőrzésére, meg- 
növelve ezzel az eredménybe vetett bizalmunkat. Így például kiszámíthatjuk a 
Taylor-sor első néhány elemét, és összehasonlíthatjuk az eredeti együtthatókkal, 
a válaszok további ellenőrzéseként pedig összeszorozhatjuk a metrikus tenzort 
inverzével. 


A szimbolikus és algebrai számítások gyakran megelőzik a numerikus számí- 
tásokat. A matematikai formulákat gyakran azért alakítjuk át, hogy a később 
elvégzendő numerikus számításoknak megfelelő alakra hozzuk őket. A számí- 
tógépes algebrai rendszerek fontos tulajdonsága, hogy jó kapcsolódási felületet 
kínálnak a számítások két típusa között. A Maple FORTRAN és C kifejezésekké 
tudja alakítani a saját nyelvén fölírt kifejezéseket. Opcionális dupla pontossá- 
gú aritmetikát és kódoptimalizálást is tud végezni. Például FORTRAN kóddá 
transzformálható az előző példánkban szereplő G metrikus tenzor első két so- 
rából álló részmátrix is. Két technikai apróság: nem hivatkozhatunk az Euler- 
konstansra a y szimbolummal, és a mátrixokat nem adhatjuk meg egymásba 
skatulyázott listákkal. 


5  "evalf/constant/gamma" :- proc() args end: 
5 "H :- submatrix( G, 2..3, 1..6 ); 


H 
0, a r? (—cos(8)? -- sin(0) cos(9) sin(6)? — 1) , 


r? sin(9) sin(6) sin(0) , 2 r? cos(8) , 0, 5 r? cos(8) cos(0) ] 


pg] et eg 


0, 2 sin(y) sin(6) sin(0) , Bi (sin(0) cos(y) 4 1) , 0, 0, ol 
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5 fortran( H, ?"optimized? , precision — double ); 


t2 - sin(theta) 


t4 - t2rcos(gamma) 

t5 - sin(beta) 

t6 — t5xrr2 

t8 - cos(beta) 

t9 — t8rx2 

t15 - tixrsin(gamma) xt5rt2 
ti6 — tirt8 

H(1,1) - 0.DO 

H(1,2) - t1x(-t4rt6t1.DOtt9) /2.DO 
H(1,3) - t15/2.DO 

H(1,4) - t16/2.DO 

H(1,5) — 0.DO 

H(1,6) - ti6xcos(theta) /2.DO 
H(2,1) - 0.DO0 

H(2,2) - t15/2.D0O 

H(2,3) - tixr(t441.DO)/2.DO 
H(2,4) - 0.DO 

H(2,5) - 0.DO 

H(2,6) - 0.DO 


A számítógépes algebrai rendszerekkel nyert eredmények vagy egzaktak, vagy 
a fölhasználó által meghatározott pontosságúak. A kézzel végzett számítások- 
nál pontosabbak is lehetnek (v.ö. (116]); ami gyakran az integrál-táblázatok 
korrekciójához vezet. Az alábbiakban két olyan integrált említünk példaként, 
amelyek hibásan szerepelnek a. legnépszerűbb táblázatokban. (V.ö. Gradshtein 
és Ryzhnik, [84].) 
1. A 2.269 képlet 


fi 1 da — 2 4 , de BÚ 1 
zr/(tr-rcr2) 31 bi b? b? / sgrt(bz- cz?) 
2. A 3.828(19) képlet 


ri sin? (ax) sin? (br) sin(2cx) da — 
[ 


x 
78 (1 7- sgn(e — a -t b) 4 sgn(c — b 4 a) — 2sgn(c — a) — 2sgn(c — b)) , 
ahol a, b,c 5 0. 


Mint alább látható, a Maple nemcsak a helyes válaszokat adja meg, hanem a 
paraméterekre vonatkozóan további információkat is nyújt. A példában a " 


kettős idézőjellel hivatkozunk az előző eredményre. 
s Int(1/ (x £ sgrt(( bix 4 crx72 )73)), x ); 


1 
IT 48 
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s value("); 


2 
zvzlcrtb(4 Vbrz-tcx2crbt5vVbzi ezé g? 
— Vbz-tcrW1 360 Vz(cz b) x?) /(z Vx3 (cx 1 b)3 b?) 


5  factor("); 
(crtb)(4crb-8c? x? — b?) 


V23 (cz b)$b? 


Tegyük föl, hogy minden változó pozitív, és egyszerűsítsük az előző eredményt 
ennek megfelelően. 


v 
3 


5.  simplify( ", assume-positive ); 


24crbt8cex? — b 


3 3382/ezibb 
Kicsit több munkával jár a táblázatban szereplő alakra hozni az eredményt: 
5  subs( btcxrx — y/x, " ); 
2 4cxb-3-8c? a? — b? 


3 13/2188 
LL 


s, simplify( ", assume-positive ); 
2 4crbt8Ó 1? —b 


3 2 /yb? 


s  expand("); 
8 c 16 16 2 1 


383 B 32/b 


5  collect( 3/2x", sgrt(y) ); 


5  subs( y — bixtcrx72, 2/3x" ); 
2 
e xc 1 
Z-s PO zt zz 
29 T B zb 
3 vbr-4 cg? 

A táblázat tehát egy hibás — előjelet tartalmaz. Az 1980-as negyedik kiadásban 
egyébként már kijavítva szerepel. Különben is a táblázatokban közölt eredmé- 
nyeket az ember vagy elhiszi, vagy nem; a, Maple-ben viszont differenciálással 
ellenőrizhetjük őket: 

5 simplify( diff(",x) - 1 / (x x sgrt(( bix t crx72 )73)), 

: assume-posítive ); 


0 
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A második példa már izgalmasabb: a táblázatban szereplő hibás eredmény he- 
lyett a Maple egy általánosabb érvényű megoldást talál. 


5 Int( sin(akxrx)72 $ sin(brx)72 trsin(2rcrx) / x, 
5 x-0..infinity ); 


00: 2: . 2 
f sin(a 1)" sin(b r)" sin(2cr) dz 
[9 


E 


5 value("); 


1 1 
ztés aasánat 16 ignum(2c— 2b) mr 


1 
ta dem 2bt$2c—2a)r-r 32 "ignum(— 2b3-2c142a)mr 
1 1 
— 16 "ignum(2 c —2a)r-k a ignum(c) Tr 
1 1 
ta signum(2b--2c-t-2a) mr — 16 ignum(2ct 29) 


1 
-§ signum(2c-t2b) mr 
A Maple tetszőleges a, b és c-re kiszámította a megoldást. Ezt specializálhatjuk 
a [84]-ben szereplő, csak a, pozitív változóknak megfelelő esetre: 


-  simplify( ", assume-positive ); $ all variables ? 0 


1 1 
— signum(2b1-2c—2a) mT — 16 jgnum(2c— 2b)r 


32 
1 1 
"ag signum(—2bt2c—2a) m-t 32 "signum(— 2b32c12a)n 
1 1 
gyz Héj3) 
Jő signum(2 c — 2 a) mr 1 — 327 


Szabaduljunk meg a. kettesektől, és állítsuk elő szorzatként az eredményt: 
5  factor( subs( signum -— (signum € primpart ), " ) ); 


az r(eignum(b - e — a) — 2signum(c — b) -- signum(—b -- c — a) 
- signum(-—b -- c - a) — 2signum(c — a) 1) 


A táblázatból tehát hiányzott egy tag, és rossz volt az egyik előjel. 


Áz integrálásnál sokszor csak akkor kaphatunk helyes eredményeket, ha meg- 
felelő kikötéseket teszünk a paraméterekre. Vizsgáljuk az alábbi improprius 


integrált: 9 
09 11/3 In(at) 
/ (3422) dt, a,b s 0. 

5  assume( a20, b20 ): 
5:  normal( integrate( t7(1/3) : In(art) / (b 4 2rt72)72, 
s t - 0..infinity) ); 

1 r24/? (21n(a") V34r— 343 — V31n(2) -- V31n(b")) 

36 p1/8 
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Az a és b utáni tildék azt jelzik, hogy ezekre a változókra valamilyen föltételek 
vannak érvényben. Szükség esetén a Maple tájékoztat is ezekről a föltételekről. 


5  about( a ); 


Originally a, renamed a": 
is assumed to be: RealRange(Open(0) , infinity) 


Az integrálás jól illusztrálja a számítógépes algebra további előnyeit: könnyen 
elérhetővé válnak a bonyolultabb matematikai technikák és algoritmusok is. Ha 
a Maple-lel kiszámíttatjuk a következő két integrált 


[7 exp(r?) dx és fa exp(z?) dx, 


különböző jellegű eredményeket kapunk: 


5 exp?) és fs exp(x?) dx. 


Ez nem csak azt jelenti, hogy a rendszer nem tudott megbirkózni a második 
integrállal. A Maple a Risch algoritmus (lásd [(76]) segítségével azt is el tudja 
dönteni, hogy az integrál nem fejezhető ki zárt alakban az elemi függvények se- 
gítségével. Ez ellentétes a zárt formájú megoldást kereső, szokásos heurisztikus 
algoritmusokkal. A heurisztikus megközelítések esetében soha nem lehetünk 
bizonyosak abban, hogy tényleg nem létezik zárt forma. Előfordulhat, hogy 
csupán nem elég ügyesen próbálkoztunk. A Risch algoritmus azonban igen bo- 
nyolult; mély matematikai eredményekre és algoritmusokra támaszkodik, és sok 
olyan lépésből áll, amelyek nehezen reprodukálhatók kézi számolással. A számí- 
tógépes algebrai rendszerek fölhasználói anélkül alkalmazhatják ezeket a mély 
matematikai eredményeket és algoritmusokat, hogy minden részletet ismerniük 
kellene. 


Ha számítógépes algebrai rendszert használunk, a matematikai feladat elem- 
zésére koncentrálhatunk, a, számolás részleteit a gépre bízhatjuk. A számí- 
tógépes algebrai rendszerek , matematikai kísérletekre" buzdítanak bennünket. 
Megkönnyítik a matematikai hipotézisek ellenőrzését, és számitásainkon alapuló 
újabb sejtésekhez vezetnek. (V.ö. [15, 130].) Az ilyen matematikai kísérletek 
példája lehet az alábbi n x n-es Anmátrix determinánsára vonatkozó sejtésünk 
megfogalmazása: 

An(i,j) xScd(i,j) 


Az első lépés, hogy kiszámolunk néhány determinánst, és megvizsgáljuk őket. 


: numex :— 8: tt number of experiments 
5 dets :— array( 1..numex ): 
5: for n to numex do 
Aln] :— array( 1..n, 1..n, symmetric ): 
for i to n do 

for j to i do 

Alni][i,j] :5— xrigcd(i,j) 

od od: 


VVVYVV 
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pl dets[n] :- factor( linalgl[det]( Aln] ) ): 
s print( detsl[n] ) 
5 od: 

7 


z (z—1) 
2? (z41)(2—1)? 
2" (41) (z— 1)? 
25 (22 41)(241(z— 1)" 
z7 (3231 (29tz—1)(z31)t(z— 1)" 
2 (27 31) (22 t231)(22—z-1)(z3hr—1) (2-1) (z— 1)" 
22 (2 4241 (22—211) (34 z—1) (22 12(r4Df(r—1)7 
Első látásra nem sok jóval biztat. De nézzük csak az egymás utáni determinán- 


sok hányadosát! 


5 for i from 2 to numex do 
pj guo( dets[i)], dets[i-1], x ) 


5 od; 
3 -x 
93 
at — g? 
35 g 
35-33 3 ig 
3 -g 
8 — gt 


Az n-dik polinomban csak olyan z hatványok fordulnak elő, amelyek kitevője 
n osztója. Ha még egy kicsit kísérletezünk a Maple-lel, és egy Möbius-szerű 
formulával próbálkozunk, könnyen eljuthatunk a következő sejtéshez: 


Sejtés. det An — II $j(T), ahol a $5(x) polinomokat az x" — ba ba(z) egyen- 
j71 din 

lőség definiálja. 

Néhány tulajdonság: 


(i) Ha p prím, akkor 
dol) — a? — z 


és tetszőleges r természetes számra 
r—1 
dpr(z) —dplz?  ). 


(ii) Ha a p prím nem osztója n-nek, akkor 


$pn(z) — dn(z?) — dn(7). 
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(iti) Ha az n természetes szám prímtényezős fölbontása n — pf" . . .p5", akkor 
pi17!..prs7i 
dalt erga TR]; 


(iv) A következő formula érvényes: 


da(z) — (5) Ez) 


din din 


ahol u a Möbius-függvény, azaz u(1) — 1, u(pai . . .ps) — (—1)" ha pi, ...Ds 
különböző prímek és u(m) — 0, ha m valamely prímszám négyzetével oszt- 
ható. 


Az érdeklődő Olvasók kedvéért megjegyezzük, hogy 56a(a) a g elemű véges test 
fölötti egyváltozós d-ed fokú monikus irreducibilis polinomok számával egyenlő. 


Bármilyen sok matematikai ismeretet tartalmaznak is a számítógépes algeb- 
rai rendszerek, fontos, hogy a gyakorlott fölhasználók személyes érdeklődésüknek 
megfelelő eljárások megírásával is bővíthessék a, rendszert. A könyv szerzője az 
[59]-ben kifejlesztett módszerek alapján polinomiális leképezések invertálására 
néhány Maple algoritmust implementált. Ezekkel a programokkal eldönthető, 
hogy egy polinomiális leképezésnek van-e polinomiális inverze, és ha igen, ki is 
számolható az inverz. Ezt alátámasztandó, definiáljuk a következő háromválto- 
zós invertálható leképezést: 

5 read "invpol.m"; í load user-defined package 
s P :— ( x74 4 2x(ytz)sxx73 t (ytz)72xx72 4 (yt1)rx 
5 t.y72 tt ysz, x3 F (ytzdsx2 ty, xtytzl; 


P:- [7932 r zt (yt2e ty Dzty th yz, 
23 4(yt2)zty,zty- 2] 
5 settime :— time(): t start timing 
5  invpol( P, [x,y;z] ); t compute inverse mapping 
[0—y2z,y—33242y2z—y? 2, 
2—3:—ytyztrz—2yzőzty 2] 


5 cpu time - (time()-settime) $ seconds; ? computing time 


cpu.time — .430 seconds 


A polinomiális leképezések inverzét papírral és ceruzával szinte lehetetlen ki- 
számolni. Számítógépes algebrai rendszerre van szükség a rengeteg szimbolikus 
számításhoz. Azt azonban nem várhatjuk el a rendszerek tervezőitől, hogy az 
összes fölhasználó minden jövőbeli igényét figyelembe vegyék. Csak arra szá- 
míthatunk, hogy olyan hatékony programozási eszközökkel látnak el bennünket, 
amelyekkel új algoritmusokat implementálhatunk. 


1.5. A számítógépes algebra korlátai 23 


1.5. A számítógépes algebra korlátai 


A számítógépes algebrai rendszerekről eddig elmondottak azt a benyomást kelt- 
hetik, hogy ezek a rendszerek korlátlan lehetőségeket kínálnak, és univerzális 
eszközként használhatók matematikai problémák megoldására. Ezek azonban 
túl rózsás elképzelések, nem árt néhány előzetes figyelmeztető megjegyzés. 

A számítógépes algebrai rendszerek gyakran komolyan megterhelik az őket 
futtató számítógépeket, mivel rengeteg memóriát és számítási időt igényelnek. 
A pontos aritmetika ára a kifejezések méretének exponenciális növekedése és 
óriási nagy számok megjelenése. Ez még akkor is előfordulhat, ha a végső válasz 
egyszerű , igen" vagy , nem". Vegyük a jólismert euklideszi algoritmust, amely két 
polinom legnagyobb közös osztóját adja meg. A , naív" algoritmus hatékonysága 
nem túl jó. Tekintsük a következő polinomokat 

s f(1] :— 74x77 4 2xx76 - 34x75 - 341x73 4 x 1 5; 
fh Ta" 3295 —395—3974rt5 


5 fí2] :— 94x75 - 34x74 - 44x72 1 7xx 4 7; 
fo-997-391—439 347147 


Az euklideszi algoritmussal megkeressük a két polinom racionális számok fölötti 
legnagyobb közös osztóját, gcd( fi, f2)-t. Az első osztás elvégzésével olyan g2 
és fz3 polinomokat kapunk, amelyekre fi — g2fa 4 fs teljesül, továbbá vagy 
degree(f3) c degree(f2) vagy fs — 0. Ezt a lépést a következő maradékos 
osztással végezzük: 

s .fI3BRror5ót( tente il VEG2T, x; ala Is 

70 iz - Ü76 gs. ö77Olvezi "94 503 
ösze szeszet 2) LT fögzet ze ÉGLNÉZT TT 


s g[21; 


pr segyersa 
Ezután olyan g3 és fa polinomokat határozunk meg, amelyekkel fa — g3 fs -k fa 
teljesül, és vagy degree(fa) c degree(fs3) vagy fa — 0. Az osztásokat addig 
ismételjük, míg fn — 0 nem lesz, ekkor gcd( fi, f2) — fn-1. A következő Maple 
program a maradékpolinomok sorozatát számítja ki: 


s  Euclid gcd :— proc( f::polynom, g::polynom, x::name ) 
5 local r: 

5 if g - 0 then sort( f ) 

5 else 

ös r :5— sort( rem( f, g, x ) ); 

faj if r CG 0 then print( r ) fi; 

5 Ejelúd $Edl B; FT, XI 

5 fi 

5 end: 

5  Euclid gcd( f[(11, f[2], x ): 


27 rjasbáátállbe :: vágzállátat :r iisákááké 
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100881 sp apo af] 14139 Es 98037 
1225 2450 2450 
16726864175 , — 5255280625 19754564375 
—101769761617 " 10176976161" " 10176976161 
35171085032244648729 6605604895087335357 
456796710414528050. " Ü 456796710414528050 
240681431042721245661011901925 
121549387831506345564025862481 
Azt az eredményt kaptuk, hogy fi és fa relatív prímek, mivel legnagyobb közös 
osztójuk egység. Figyeljük meg az együtthatók méretének óriási növekedését, 
az egyjegyű egészektől egészen a harmincjegyű racionális számokig (még úgy is, 
hogy a racionális együtthatók mindig egyszerűsített alakban szerepelnek). A 
[76, 117]-ben olvashatunk kifinomultabb algoritmusokról, melyek a legnagyobb 
közös osztót úgy számítják ki, hogy közben a lehetőségekhez mérten elkerülik 
az együtthatók ilyen mértékű növekedését. 


A számítógépes algebrai számítások során gyakran előforduló jelenség, hogy 
a részszámításokban szereplő kifejezések mérete rendkívüli módon megnő, ez az 
,intermediate expression swell" (kb. , részkifejezések felfúvódása"). Bár általá- 
ban nehéz megbecsülni a számítások idő- és memóriaigényét, mindent meg kell 
tennünk annak érdekében, hogy számításainkat alkalmas matematikai modellek 
használatával és hatékony programozással optimalizáljuk. Annak bizonyítására, 
hogy megéri a fáradságot, tekintsük azt a 8 x 8-as mátrixot, melynek (z, j)-dik 
komponense (tu 1 x 4 y-t 2). Ennek inverzét a Maple 1125 másodperc alatt 
3900 Kb memória fölhasználásával számolta ki egy SUN SPARCstation 20 M71 
típusú munkaállomáson. A nyilvánvaló z -- y 4 z - v helyettesítés a számítási 
időt 6 másodpercre, a memóriafölhasználást 750 Kb-ra csökkentette. 

A számítógépes algebrai rendszerek használatával kapcsolatos második prob- 
léma pszichológiai jellegű. Hány soros output-ot lehet könnyedén áttekinteni? 
Ha nagy méretű kifejezésekkel találjuk magunkat szemben, hogyan lesz elegendő 
rálátásunk az egyszerűsítésükhöz? Ha például csak a, kifejtett alakját látjuk a, 
képernyőn, nehéz lenne azt az 


f(xz,y) — g(u(z,y) v(z,y)), 


polimon-kompozíciót fölfedezni, amelyben 


g(uw) — uváb uh uviő, 
ulm,y) — 3ytry Hz tyil, 
vígy) — vá zyá e. 


Bár igaz, hogy a számítógépes algebrai rendszerekben tetszőleges pontosságú nu- 
merikus számításokat végezhetünk, ennek negatív oldala is van. Mivel a hardver 
által kínált aritmetika helyett szoftveres lebegőpontos aritmetikát használunk, 
az így végrehajtott numerikus számítások 100 1000-szer lassúbbak például a 
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FORTRAN programozási nyelven megírtaknál. Numerikus problémák esetén 
ezért mindig föl kell tenni magunknak a kérdést: ,, Valóban szükségünk van-e 
a racionális számokkal dolgozó egzakt vagy a nagy pontosságú lebegőpontos 
aritmetikára? Nem lenne jobb valamelyik numerikus programozási nyelvet hasz- 
nálni?? 

A számítógépes algebrai rendszereket enyhe túlzással szokás matematikai szak- 
értői rendszereknek is nevezni. Bármennyire impresszív is a rendszerekbe épített 
matematikai tudásanyag, ez csak napjaink matematikai ismereteinek tört része. 
Számos olyan területe van a matematikának, ahol a számítógépes algebra még 
nem sokat tud segíteni, és ahol további kutatások szükségesek. Ilyen területek a 
parciális differenciálegyenletek megoldása, a Bessel függvényekhez hasonló nem 
elemi függvényeket tartalmazó határozott és határozatlan integrálok kiszámítá- 
sa, a vonalmenti és a felületi integrálás, a speciális függvények kalkulusa és a 
nem kommutativ algebra, hogy csak néhányat említsünk. 

További súlyos probléma, s talán ez a legnehezebb, ha absztrakt szinten akar- 
juk specifikálni azt a számtestet, amelyben számolni kívánunk. Például vég- 
telen sok számtest létezik, de a testek aritmetikai műveleteinek tulajdonságait 
fölhasználó olyan algoritmusokat szeretnénk írni, ahol nem kell előre megadni 
azt a testet, amelyben a számításokat végezzük. Továbbá elképzelhető, hogy az 
Olvasó saját maga által definiált matematikai struktúrákat akar használni. A 
Scratchpad II/AXIOM [54, 55, 108, 109, 179] rendszer tette meg az első lépé- 
seket ebben az irányban. A Maple-ben a Gauss csomaggal hozhatunk létre az 
AXIOM-hoz hasonló módon új doméneket. 

Ami a számítógépes algebrai rendszerek szintaxisát és a szemantikáját ille- 
ti, programozási nyelvként való használatuk bonyolultabb, mint a FORTRAN- 
szerű numerikus programozási nyelveké. A számítógépes algebrai rendszerekben 
számos olyan beépített függvénnyel találkozunk, amelyek váratlan eredmények- 
a belső adatábrázolásról, az adatok gazdaságos kezeléséről stb. A matemati- 
kai problémák alapos vizsgálatára és az algoritmusok gondos implementálására 
van szükség, hogy mind az időigény, mind a memória-használat szempontjából 
hatékony algoritmusokat kapjunk. Ha például a Bessel polinomok kiszámítását 
végző eljárásban (lásd az 1.3. alfejezetet) elfelejtettük volna az expand eljárás 
segítségével kifejteni a részeredményeket, szükségtelenül terjedelmes kifejezése- 
ket kaptunk volna. Az Y függvény eléggé szerencsétlen alábbi implementációja 
Y5(2)-re ezt adja: 


5 Y :- proc( n::nonnegint, x::name ) 

b if n-0 then í 

5 elif n- 1 then xt1 

s else Y(n,x) :— (2rn-1) rxrY(n-i,x) t Y(n-2,x) 
5 fi 

5 end: 

s Y(5,2); 


9z(7z(52(32(zt1)41) 4211) 437(211) 4-1) 
t15z(32(zt1)41)4zt1 
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A hatékony programozást, valamint a szimbolikus számításoknál gyakran elő- 
forduló számos csapda elkerülését megkönnyíti a számítógépes algebrai rendszer 
alapvető tulajdonságaiban való jártasság, például az elemi adatstruktúrák és a 
beépített lehetőségek ismerete. Valamely probléma vizsgálata során a rendelke- 
zésünkre álló rendszerek alapos megértése a helyes rendszer kiválasztásának is 
előfeltétele. Például a FORM [184] formula-manipulációs rendszer nem kommu- 
tatív algebrákban való számítások elvégzésére alkalmasabb a Maple-nél, mivel 
a nem kommutatív objektumokat alaptípusként alkalmazza, és a mintaillesztés 
szintén megfelelően támogatott alapművelet. A [46]-ban kvaterniókkal végzett 
számításokat hasonlítanak össze a két rendszerben. 

Végül megemlítjük a számítógépes algebrai rendszerek használatának tech- 
nikai nehézségeit. Néha zavaró az input és az output formátuma, a kifejezé- 
sek ismételt fölhasználása nehézkes, és túl messze esik a szokásos matematikai 
jelölésektől. A globális manipulációkhoz képest a részformulák lokális átalakí- 
tásai számos esetben nehezen kivitelezhetőek. Más programozási nyelvekhez 
való kapcsolódás gyakran teljesen hiányzik, vagy nem megfelelő. És végül, de 
nem utolsó sorban a hibákról sem feledkezhetünk meg. Az érdeklődő Olvasó- 
nak a [175]-ben található szórakoztató diszkussziót javasoljuk. Remélhetjük, 
hogy az ottani megjegyzések közül néhány hamarosan idejétmúlttá válik. De 
a Maple-höz hasonló rendszerek mindig meglepetésekkel szolgálnak; hol jó, hol 
rossz értelemben. Ezt a részt két olyan meglepő példával zárjuk, ahol a Maple 
kis segítségre szorul. 

Az első feladat egy olyan könnyű integrálás, amely számítógépes algebrai 
rendszer használata nélkül is megoldható: 

s Int( 24rxr(x72-41) 724, x ); 


[27 (22 41) dz 
A válasz világos, de mit mond a Maple? 
a value("); 


tl x?0 4 178296 2? 


10626. 40 
5 


19228 x?§ 3. 43263 x?! -- 81719 x?? 7 


-- 208012 r?§ 4. 208012 x?" -- 178296 x?? 3- 7084 x8 3. — 


2 
-k re ab 238 4 12916 4 9294 3. 50622 4 s. ő 39 4. 506 2? 


25 


E 200 4 81719 21 44. 43263 275 4. 19228 214 4. 708421 


923? 31221 7? 


Hát ez eléggé meglepő! Talán a szorzattá alakítás segít. 
5.  fáctor( 


588 22 (z3 4527 31021 4102? 4 5)(z9 - 20 28 -- 190 z?§ 


- 1140 x31 3. 4845 x?? 4- 15505 29 3 38775 328 3. 77625 x?§ 
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-4 126425 2?! -- 169325 x?? 4- 187760 x?9 3- 172975 x!§ 
-- 132450 z!€ 3. 84075 2!" 3 43975 x!2 3- 18760 z!9 3- 6425 9? 
- 1725 a? -- 350 2! -- 50 2? 4 5) 


Közben rájöhettünk, hogy az integrációs konstans választása okozta a gondokat: 
5, factor( " 4 1/25 ); 
1 2 25 
ást ti 
25 ( ) 


Túl sokat várunk el a rendszertől, ha azt hisszük, hogy az efféle problémák 
mindig elkerülhetők. 


A második példa optikai vizsgálatokból származik (lásd [14]), és 
2" sin! z cosÍ x cosh" x sinh! z 


alakú tagokból álló kifejezések integrálásával kapcsolatos (iz, j, k, I c N). Könnyen 
igazolható, hogy minden ilyen integrál kifejezhető hasonló fölépítésű tagok se- 
gítségével. Lássuk, mit csinál a Maple: 


s Int( x $ sin(x)"2 x cos(x) $ sinh(x)72 $r cosh(x), x ); 


f z sin(x)? cos(x) sinh(z)? cosh(z) da 


5 value("); 


53 6 T— 55) el82) cos(g) — 32 5 gp: TF 50) e) sin(x) 
- ÉN cos(3 7) EV] b FENÉT apyeta sin(3 2) 
E az Te? cos(m) 4 33 5 (-5 2 5E 5) e" sin(z) 
dj; 33 (2 - 25) e" cos(3 T) — 3 (55 d 56) e" sin(3 7) 
-k az zel") cos(m) 33 5-3 7 — 5) el" sin(z) 
ag 53 -gz -k De ) cos(3 7) — j7 esz — 509 sin(3 2) 
- al cos(3 1) t — 32 is a tiz 75) e 732) sin(3 7) 


Ahhoz, hogy a kívánt alakú eredményt kapjuk, az exponenciális függvényeket a 
hiperbolikus függvényekkel kell kifejezni, és át kell alakítani az előző részered- 
ményt: 

5  convert( ", "trig? ): t$ exp -2 trigonometric function 

5  expand("); 
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 AgAA a.a u ; 
ges ra h 
TB sin(z) z cosh(z) 10 cos(z) zsinh(z) 


— z ax sinh(x) cosh(x)? cos(x)? — 55 cos(r) cosh(x)? 
19... 1 zó 

TT) sin(r) sinh(r) -k 50 cosh(z) cos(z) 

fe : cos(z) x sinh(r) cosh(r)? — - sin(r) sinh(x) cosh(r)? 

— 76 sinh(r) sin(x) cos(z)? — ; z cosh(r)? sin(x) cos(x)? 


-k 5 z cosh(7) sin(r) cos(z)? -k TE sinh(z) cosh(z)? sin(r) cos(x)? 


NASA A sena 3 
mb sin(T) z cosh(r) - Tá sinh(z) cos(zT) 


Utolsó lépésként ezeket a, parancsokat egy eljárásban foglalhatnánk össze, hogy 
máskor is használhassuk őket: 


5: trigint :— proc() 

s int (args) ; 

5 convert(" , "trig? ) ; 

pe expand(") 

5 end: 

5 trigint( xtsin(x)"2rcos(x)"3, x ); 


2 1 V2 
xsin(m) cos(m)? -k Tsi sin(r) ET3j cos(g)? -k 18 cos(g) 


— 5 xcos(z)" sin(m) — 5z cos(T) 


E 
15 
5 


5 trigint( xtsin(x)tcos(x)72, x-0..Pi ); 

1 

3 TT 
Gyakran előfordul, hogy a Maple-t így szabjuk hozzá igényeinkhez. Ezért a 
könyv számos példát mutat arra, hogyan segíthetünk a rendszernek. Némelyik 
eléggé bonyolult. Azért vettük föl őket, mert pusztán a Maple parancsok elma- 
gyarázása és triviális példák fölsorolása még nem ad elegendő jártasságot ahhoz, 
hogy komolyan tudjunk dolgozni a rendszerrel. 


1.6. A Maple tervezése 


A Maple elnevezése nem a mathematical pleasure (, matematikai örömök") ki- 
fejezés rövidítéseként jött létre, csupán a termék kanadai származására utal." 
1980 novembere óta a Waterloo-i Egyetemen működő Szimbolikus Számítási 
Kutatócsoport és a Zürichi Műegyetem szakemberei óriási mennyiségű munkát 
öltek a Maple rendszer fejlesztésébe. 1992 óta a termék további fejlesztését és 


5A maple (juharfa) Kanada nemzeti szimboluma. (A Fordító megjegyzése.) 
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forgalmazását az eredeti fejlesztőkkel együttműködve a Waterloo Maple Soft- 
ware (1995 óta Waterloo Maple Inc.) nevű cég végzi. 


A Maple nyitott architectúrájú számítógépes algebrai rendszer, amely szá- 
mítógépek széles skáláján futtatható a Cray Y/MP szuperkomputertől lefelé 
kezdve egészen a Macintosh és IBM PC kompatibilis asztali gépekig. A rend- 
szer leghatékonyabban időosztásos operációs rendszert működtető nagygépeken 
futtatható, ahol számos fölhasználó dolgozhat egyidejűleg a Maple-lel anélkül, 
hogy egymást vagy más fölhasználókat zavarnának, vagy hogy a rendszert kü- 
lönösebben leterhelnék. Mindez a Maple moduláris tervezésének köszönhető. A 
rendszer négy részből áll: az Iris-nek nevezett fölhasználói felületből, az alap- 
vető algebrai műveleteket végző kernel-ből, a külső könyvtár-ból és a Maple 
fölhasználói által fejlesztett osztott könyvtár-ból (share library). 


Az Iris és a kernel a rendszer kisebbik részét alkotja. Mindkettőt a C progra- 
mozási nyelven írták meg. Ezek töltődnek be a memóriába, amikor egy Maple 
szekciót elindítunk. Az Iris kezeli a matematikai kifejezések inputját (elem- 
zés, hibaüzenetek), megjeleníti a, kifejezéseket (,prettyprinting"), kirajzolja a 
függvényeket, és a rendszernek a fölhasználóval folytatott egyéb kommunikáci- 
óját támogatja. Az X Window rendszeren (Motif alatt), továbbá VMS, Amiga, 
Macintosh, NeXT és MS-Windows operációs rendszerű gépeken használható a 
munkalapnak (worksheet) nevezett speciális grafikus fölhasználói felület. 


FR General Trees 
EE Connected Functionj 


E Alcohols 
Alcohol molecules, Cy] alx) 1 
: ] 
ar for an alkyi, ci Elliptic integrals are of the form dx , where y(x) is a poli 
TESZARNSSKSÁKYBB bix yt) J 
space. § ] 
Rk jéekssésás et 1) a ge) x) are polynomials. To beginthis worksheet, place your cursor in the ejj 
csátom ): 3 ü 
5 count( f[aikylCc(: restart; 


i B Complete Elliptic Integrals 
Thus, there are 17 diff 
them. É 
s drow( falkyl, 2 
s: árau( falkyul 


1 
Prod(C, Set(Prod(C, S] Maple V Relcase 4 supports complete elliptic integrals, such as; ESÖ ZEZ EN Ts § 
Ser(Prod(C, Ser(zz j 1-4? site)? 


n 


n 
2 


ú 7 
al 1- k sin)? dt and [ ————— dt. The corresponding Maple codci: 
(1— a sínt) 2) 4 1— 4? sine)? : 


1.3. ábra: Maple ablak több munkalappal 


A munkalapokon a Maple inputot és outputot grafikával és egyéb szöveggel kom- 
binálhatjuk. Ennek tipikus példája látható az 1.3. ábrán. A Maple munkalapos 
felületének további sajátosságai: hipertext lehetőségeket biztosít a dokumentu- 
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mokon belül és különböző dokumentumok között, bizonyos platformokon meg- 
engedi multimédia objektumok beágyazását, nyomdai minőségben jeleníti meg 
a matematikai formulákat, az outputban szereplő képletek részei kiválaszthatók 
további földolgozás céljából. A Maple munkalap régiók hierarchiájából áll, a 
régiók fejezetekbe és alfejezetekbe foglalhatók össze. Ezek , becsukhatók", ha. 
tartalmukat el akarjuk rejteni. A munkalapok szöveges vagy ETEX formátum- 
ban exportálhatók. A munkalapos interfészről pontosabb részleteket a [187, 188] 
Maple dokumentációban találhatunk. 


A Maple kernel értelmezi a fölhasználói inputot, végrehajtja az alapvető algeb- 
rai műveleteket, mint például a racionális aritmetikát és az elemi polinomiális 
aritmetikát. Hatékonysági megfontolások alapján tartalmaz bizonyos gyakran 
használt algebrai rutinokat is. Ebbe a kategóriába tartoznak például a polino- 
kernel végzi a memóriakezelést. A Maple rendszer rendkívül fontos sajátossága, 
hogy a szekció alatt használt összes (rész)kifejezést csak egy-egy példányban 
tárolja. Ily módon a kifejezések egyenlőségének tesztelése rendkívül , olcsó" mű- 
velet, egyetlen gépi utasítással elvégezhető. A rendszer a részkifejezéseket újra 
felhasználja anélkül, hogy újra kiszámolná őket. 


Részegység Funkció 

Íris elemző 
kifejezések megjelenítése (prettyprinting) 
grafika 


speciális fölhasználói felületek: 
munkalap X11-hez (Motif) , Macintosh-hoz, NeXI-hez, 
MS Windows-hoz stb. 


Kernel interpreter 
memóriakezelés 
alapvető és kritikus idejű Z , (), R, C, Zn, Olz] stb. fölötti 
eljárások 

Könyvtárak könyvtári függvények 


alkalmazási területek szerinti csomagok 
on-line help 
Osztott könyvtár a Maple fölhasználók által közreadott kód 


1.1. táblázat: A Maple rendszer komponensei 


A Maple matematikai tudásának többségét a Maple programozási nyelvén 
kódolták, és függvények formájában a külső könyvtárban helyezték el. Mikor a 
felhasználónak szüksége van egy könyvtári függvényre, a Maple az esetek több- 
ségében van olyan okos, hogy magától betölti a rutint a memóriába. Csak a 
ritkán használatos Maple eljárások betöltésére kell explicit módon megkérni a 
rendszert. A Maple-t arról is tájékoztatnunk kell, ha valamelyik különálló cso- 
magot kívánjuk elérni (ilyenek a lineáris algebra, a számelmélet és a statisztikai 
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csomag, csak hogy néhányat megnevezzünk közülük). Mindez a Maple-t kom- 
pakt, könnyen felhasználható rendszerré teszi. Ami még fontosabb, így a Maple 
csak lényeges dolgokat tárol a memóriában, semmi olyat nem, amire a fölhasz- 
náló nem kíváncsi. Ezért használhatják egy gépen egyidejűleg többen is a rend- 
szert, és ezért fut a Maple kevés memóriával ellátott gépeken is. Az 1.1. táblázat 
összefoglalja a Maple rendszer korábban tárgyalt tervezési alapelveit. 


A Maple nyelve jól strukturált, áttekinthető, magas szintű programozási nyelv. 
Adatstruktúrák széles választékát támogatja: függvényeket, sorozatokat, hal- 
mazokat, listákat, táblákat, stb. Számos, ezeken az adatstruktúrákon definiált, 
könnyen használható művelet is rendelkezésünkre áll, mint például a, típuselle- 
nőrzés, szelekció, adatstruktúrák kompozíciója stb. Ezek a lényeges összetevői 
annak a programozási nyelvnek, amelyben a Maple majdnem minden matema- 
tikai algoritmusát implementálták, és amelyet mi is használunk, amikor a rend- 
szert ,interaktív számológépként" alkalmazzuk. Továbbá ha valakit érdekelnek a 
Maple által használt algoritmusok és ezek implementálása, megnézheti a könyv- 
tárakban található Maple kódot. A könyvtári eljárások ugyanis forráskódban 
rendelkezésre állnak. Szükség esetén ezek a könyvtárak a fölhasználók saját fej- 
lesztésű eljárásaival és csomagjaival is bővíthetők. A Maple osztott könyvtára, 
amely a Waterloo Maple Inc. WWW szerverén, a http: //www . maplesoft . com 
URL-en érhető el, tartalmaz többek között egy csomó fölhasználók által közre- 
adott kódot, munkalappéldákat, dokumentációt és a Maple korábbi verzióiban 
található hibák javításait. A Maple biztosít olyan lehetőségeket is, amelyekkel 
a programok végrehajtását nyomon követhetjük, függetlenül attól, hogy saját 
magunk által írt eljárásokról van-e szó. 


A Maple előnyei közül utolsóként megemlítjük a rendszer fölhasználóbarát 
tervezését. Több számítógépes algebrai rendszernél hosszú tanulóidőre vagy 
alacsony szintű programozási nyelvi ismeretekre van szükség, ha valaki valóban 
meg akarja érteni, hogy mi is történik számítások során. Sok rendszerben vas- 
kos kézikönyveket kell átlapozni, hogy megtaláljuk a programozási kapcsolók 
és kulcszavak helyes beállításait. A Maple-ben nincs erre szükség. Először is 
használhatjuk a help lehetőségeit, ezzel alapvetően a Maple eljárások on-line 
kézikönyvét kapjuk. Másodszor, a Maple könnyű használhatóságának titka az 
a hibrid algoritmikus struktúra, ahol a rendszer maga el tudja dönteni, hogy 
melyik algoritmus végrehajtása az előnyös. Példaként vessünk egy pillantást 
a Maple simplify (,egyszerűsít") eljárására, ami pontosan azt csinálja, amit a 
neve sugall. 


5 trig formula :- cos(x)76 4t sin(x)"6 

5 4 341s5in(x) 2rcos(x)72: 

s exp ln formula :— exp( a 4t1/2r1n(b) ): 

5 radical formula :-— (x-2)7(3/2) / (x72-4rxt4)7(1/4) : 
, trig formula — simplify( trig formula ); 


cos(r)" -- sin(x)" -- 3 sin(r)? cos(z)? — 1 


5 exp.ln formula -— simplify( exp.1n formula ); 


elet1/21n(b)) sz gő Vb 
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5 radical formula - simplify( radical formula ); 
(7 — 2)9/2 re (az ess 2)3/2: 
(02-12 (a- 
Mivel a Maple nem teszi föl, hogy z 5 2, nem tudja egyszerűsíteni a négyzet- 
gyökös kifejezést. A. négyzetgyökökre vonatkozó általános egyszerűsítés végre- 
hajtása a symbolic kulcsszó megadásával kényszeríthető ki. 
5 radical formula — simplify( radical formula, symbolic ); 
(z doszt 2) /2 jen ús 
(22—41 raj" 
A lényeg az, hogy egyetlen eljárás, a simplify különböző típusú egyszerűsíté- 
seket hajt végre: trigonometrikus egyszerűsítéseket, logaritmikus és exponenci- 
ális függvények egyszerűsítéseit és racionális kitevős hatványok egyszerűsítését. 
Másrészt, a mintaillesztés és a transzformációs szabályok koncepciója jelenleg 
nem eléggé épült be a rendszerbe. A Maple-ben nehézkes a globálisan végrehaj- 
tandó matematikai transzformációk programozása. 

Számos helyen maga a Maple dönt a követendő útról. Négy példát említünk. 
Mátrix determinánsának kiszámítása kis mátrixok esetén kifejtéssel történik, 
különben a Gauss-eliminációt használja a rendszer. A Maple-nek lényegében 
három numerikus eljárása van véges intervallumon végzett határozott integrál 
kiszámítására; az alapértelmezés szerinti a Clenshaw—Curtis kvadratúra, ám ha 
(a közeli szingularitások miatt) lassú a konvergencia, akkor a, rendszer megpró- 
bálja kiküszöbölni a szingularitást, vagy átvált egy adaptív duplán-exponenciális 
kvadratúra-eljárásra. Ha kissebb pontosság is elegendő (pl. Digits CK 15), 
használhatunk adaptív Newton-Cotes módszert is. Nota bene, az általánosí- 
tott sorfejtés és a változó transzformáció két olyan technika, amit a Maple az 
evalf/int eljárásban is alkalmaz analitikus integrandus esetén a szingularitások 
kezelésére. Az érdeklődő Olvasónak [71, 75] áttekintését javasoljuk. Jelenleg 
hatféle algoritmust kódoltak az fsolve eljárásban: a Newton, a szelő, a, di- 
chotomikus, az inverz parabolikus interpolációt végző, (egyenletrendszerekre) a 
Jacobi mátrix közelítésével számoló és (ismét csak rendszerekre) egy parciális 
behelyettesítési eljárást. A Maple fölhasználójaként nem kell törődnünk ezekkel 
a, részletekkel; maga a rendszer megtalálja a helyes utat. Ez a szemléletmód 
teszi a Maple-t a számítógépen végzett matematikai számítások könnyen meg- 
tanulható és könnyen kezelhető eszközévé. 


Az első lépések: számolás 
számokkal 


Ebben a fejezetben azokat az alapvető ismereteket tárgyaljuk, amelyek a Map- 
le használatához, az on-line help eléréséhez és a számokon végzett műveletek 
végrehajtásához szükségesek. A rendszerrel való komunikációra hosszasabban a, 
4. fejezetben térünk ki. A Maple által támogatott számtestek áttekintése egyben 
, fájdalommentes" bevezetés a rendszer belső adatábrázolásába is. 


Föltételezzük, hogy az Olvasó a Maple V Release 4-nek az X Window System 
alatti munkalapos fölhasználói felületű változatát használja. A továbbiakban 
ismertetett számításokat 75 Mhz-es Super SPARC HÚ processzoros, 64 Mbyte 
memóriával és 128 Mbyte swap területtel ellátott, SunOS 4.1.3 operációs rend- 
szerű SUN SPARCstation 20 Mf1 típusú munkaállomáson végeztük. A könyv- 
ben leírtak többsége ugyanúgy igaz más gépek és/vagy más operációs rendszerek 
esetén is, de előfordulhatnak az implementációtól függő különbségek, például a. 
Maple elindítása, megszakítása vagy leállítása, fájlok írása és olvasása, valamint 
az eredmények kirajzolása területén. A rendszerfüggő jellegzetességekről olvas- 
suk el a szoftverrel adott dokumentációt. Azt is föltételezzük, hogy az Olvasó 
munkaállomást vagy X terminált használ, és tisztában van azzal, hogyan kell 
bejelentkezni számítógépére. 
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2.1. A kezdetek 


A Maple munkalapos felületű változatát a Unix shellből az xmaple paranccsal 
indíthatjuk el. Ha, ez nem működne, kérjünk segítséget a helyi szakértőktől, és 
nézzük meg a dokumentációt. Ha sikeresen betöltődött a munkalapos felületű 
Maple, a képernyőn egy üres munkalap, és ennek elején a prompt karakter (ál- 
talában , 5") jelenik meg, jelezve, hogy a rendszer parancsra, vár. Ekkorra már 
automatikusan végrehajtódtak a megfelelő inicializáló fájlokban (home könyvtá- 
runk .mapleinit fájljában és/vagy a Maple szoftvert tartalmazó könyvtár src 
alkönyvtárának init fájljában) található parancsok.! Ezek után a közönséges 
zsebszámológépekhez hasonlóan használhatjuk a Maple-t: 


5 214100 / 572 33; 
14 


3-5 ZF 2 E 
40 
7 


Az ismerős aritmetikai műveletek mind rendelkezésünkre állnak: az összeadás 
(7), a szorzás (1), az osztás (/), a hatványozás (" vagy xx), a faktoriális művelet 
(factorial vagy !) és a !! dupla faktoriális. A szokásos precedencia-szabályok 
érvényesek, de kétséges esetekben vagy a könnyebb érthetőség kedvéért kitehet- 
jük a zárójeleket. Ha a Maple-t zsebszámológépként használjuk, ügyeljünk az 
alábbiakra: 


e Mindegyik parancsot pontosvesszővel vagy kettősponttal kell lezárni. Sose 
felejtsük el ezeket, különben a rendszer további input, jelekre várakozik. A 
parancs pontosvesszővel való lezárása arról informálja a Maple-t, hogy a 
parancs beírása befejeződött, végre kell hajtani, az eredményt a képernyőn 
meg kel! jeleníteni. A kettőspontot akkor alkalmazhatjuk, ha szükségünk 
van egy részeredményre, de nem akarjuk látni az ennek megfelelő outputot. 
Az utasítás végrehajtásának folyamatát kiértékelésnek nevezzük. 


A. Maple csak akkor kezd foglalkozni egy input sorral, ha egy új sor (new 
line) karaktert kap. Ez lehet a kocsi vissza (carriage return) vagy a sor- 
emelés (line feed) karakter, amelyet a RETURN, illetve az ENTER billen- 
tyű lenyomásával adhatunk meg. A parancs kiértékelése után a Maple új 
prompt jelet ír ki a következő sor elejére, ezzel jelezve, hogy újra inputra 
várakozik. 


lAz inicializáló fájlok helye és neve erősen rendszerfüggő. (A Fordító megjegyzése.) 
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A Maple input módját szemléltetik az alábbi példák, különös tekintettel a pon- 
tosvessző és a, kettőspont használatára: 


s 2x5; 275: 100/4; 100 


5  /6 
d. a 
10 
25 
50 
3 
s 123454 
5 6789; 
123456789 


Jól látható, hogy egy sorban egynél több utasítás is megadható. A Maple ezeket 
egyesével kezeli, mintha külön-külön adtuk volna meg őket. A jobb olvashatóság 
kedvéért egy utasítást több sorba is tördelhetünk, illetve szóközöket is használ- 
hatunk. Arra azonban ügyeljünk, hogy ez nem mindenhol megengedett. Például 
az 1000000 számot így nem gépelhetjük le: 1 000 000, de hármas csoportokba 
oszthatjuk a jegyeket a következő módon: 140001000. A," fordított törtvonalat 
(backslash) a rendszer folytató karakterként használja, melyet elhagy a feldolgo- 
zás során. Ha egy utasítást kettő vagy több sorban adunk meg, az újabb sorok 
elkezdésekor a Maple figyelmeztet bennünket, hogy hiányos utasítást kapott, 
vagy elfeledkeztünk a pontosvesszőről. A parancsokat az új sor karaktereknél 
részekre bontja, kivéve, ha a sort , Vtsel zárjuk le. Ebben az esetben mind a 
fordított törtvonalat, mind pedig az új sor karaktert a rendszer ignorálja. 

Ha a Maple szintaktikus hibák miatt nem tudja értelmezni az input sort, erről 
is tájékoztat: 


5 this is a line Maple does not understand 
Syntax error, missing operator or ";" 


A munkalapos felület használatakor villogó kurzort látunk annál a jelnél, amely- 
nek beolvasásakor a rendszer a hibát észlelte. A Maple nem mond ennél többet. 
A hiba okát nekünk kell megtalálni, addig a Maple az input korrekciójára vá- 
rakozik. A munkalapos felületen az input kijavítható vagy kiegészíthető, ha a 
kurzort a megfelelő sorra visszük, majd elvégezzük az összes szükséges változ- 
tatást és/vagy pótlást. A karakteres felületű Maple, amelyet a Unix shellből 
a maple paranccsal indíthatunk el, beépített sorszerkesztőt tartalmaz, amely 
mind vi-, mind emacs-szerű módon használható, és az utoljára begépelt 100 sor 
szerkesztését teszi lehetővé. 


A Maple-ből való kilépéshez kattintsunk rá a (Filel és az [Exit] menüpontok- 
ra. A parancs végrehajtása előtt a rendszer még megerősítést kér. Alternatív 
megoldásként használhatjuk a megfelelő gyorsítóbillentyűket. Közvetlenül is ki- 
léphetünk a Maple-ből a guit, stop vagy a done utasítás és az új sor karakter 
beírásával. 
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Az éppen zajló hosszabb számításokat a Maple ablak eszközsorának Stopj 
gombjára kattintva szakíthatjuk félbe. Ekkor az operációs rendszer egy interrupt 
karaktert (általában CONTROL-C) kap. Nem mindig tudjuk azonnal félbeszakí- 
tani a számolást, de miután a rendszer fölismerte a megszakítást, beírhatunk 
újabb parancsot. 


A Maple rendszert újraindíthatjuk belülről is a restart paranccsal. 


- restart; 


Ez az utasítás törli a Maple belső memóriáját, újraolvassa az inicializáló fájlokat, 
szóval úgy működik, mintha a rendszert valóban teljesen , tiszta lappal", elölről 
indítanánk. Csak az interfész változók beállításai maradnak meg. 


2.2. A Help rendszer 


Ha a Maple munkalap gombjára kattintunk, a rendelkezésünkre álló help 
szolgáltatásokat mutató menü jelenik meg. Kiindulásul érdemes a help téma- 
köreit leíró oldalt választani, amely a menüponttal vagy egy C betű 
bevitelével érhető el. A 2.1. ábra a képernyőn megjelenő oldalt mutatja. Ha a 
function-ra kattintunk, a hiperlinket követve a standard könyvtári függvények 
leírásának tárgymutatójához jutunk. 


aság 


B Help For: Index ofhelp descriptions 
Calling Seguence: 
?index[category] or help(index, category); 
B Description: 


s The following categories oftopics are available in the help subsystem: 
: operators for forming expressions 
list of Maple functions 
miscellaneous facilities 
descriptions of Library packages 
topics related to procedures and progromning 
list of Maple statements 


jEH Help For: Index of descriptions for standard library functions 

JI Description: 

o The following are the names of Maple"s standard library functions. For more information, see ?f 
where fis any ofthese functions. 


JESS ák 
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2.1. ábra: A help témakörök és a standard könyvtári függvények tárgymutatója 
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További információkat a kiválasztott függvény nevére, a dilogaritmus esetében 
például a dilog-ra kattintva kaphatunk. A függvény használatára vonatkozó 
tényleges információt tartalmazó help ablak a 2.2. ábrán látható. Ugyanez az 
ablak jelenik meg akkor is, ha a 


5 Tdilog 


parancsot gépeljük be. A standard függvények tárgymutatója azért hasznos, 
mert lehetővé teszi, hogy a [160] , Maple Handbook" lapozgatása nélkül eliga- 
zodjunk, és megtaláljunk dolgokat. A ?ctopic5 szintaxisnak megfelelően gyor- 
sabban megkaphatjuk a. szükséges információkat, ha tudjuk, melyik parancsot 
keressük, és csak ismereteinket szeretnénk fölfrissíteni, vagy példákat akarunk 
látni. 


3 Function: dilog - The Dilogarithm Function 
Calling Seguence: 

, dilogíx) 

Parameters: 


ü x - anexpression 

1 B Description: 

s The dilogarithm functionis defined as follows: 
! dilogíx) - int(ln(t)/(1-t), t-1l..x); 
1 EB Examples: 
[ 5. dilogí1); 


5 dilog(0); 
5" dilog(172); 


] BH See Also: polylog, inifens 


2.2. ábra: A dilog Maple függvény help oldala 


A rendelkezésünkre álló on-line help konkrét példájaként kérjünk segítséget az 
egészek faktorizálásáról: 


5  ?ifactor 


A megfelelő help üzenet jól illusztrálja a szintaxist, az adattípusokat és a függ- 
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vényeket leíró Maple oldalak általános alakját. Az alábbiakban a help ablak 
tartalmát több részre vágtuk, és azt is megmutatjuk, hogyan készíthetünk ilyen 
kivonatokat egy Maple szekció során: 


5 info( ifactor ); usage( ifactor ); 
Function: ifactor - integer factorization 


Calling Seguence: 
ifactor(n) 
ifactor(n, method) 


Parameters: 
n - integer or a rational 
method - (optional) name of base method for factoring 


Először az ifactor eljárás magyarázatát kapjuk: mire való és hogyan hasz- 
nálható. Természetesen faktorizálhatunk vele egészeket, de a help oldal arról 
tájékoztat, hogy az ifactor racionális számokra is alkalmazható. Ha valame- 
lyik speciális faktorizációs módszert óhajtjuk, ezt az eljárás hívásakor egy extra 
argumentummal adhatjuk meg. A help fájlban ezután az eljárás és az opciók 
részletesebb leírása, következik. Olyan beépített eljárás azonban nincs, amellyel 
a , Description" részt kivághatnánk. Azonban rövidesen látni fogjuk, hogy a ha- 
sonló eljárások utánzásával könnyen kiterjeszthető a szoftver ezen feladat vég- 
rehajtására is: 


5  interface( verboseproc — 3 ): it enable printing of code 


5 print( usage ); it show example code 


proc(xg::findezed, string)) 

local topic; 

option 

"Copyright (c) 1995 by Waterloo Maple Software" 

if type(z, string) then topic :— T 

else topic :— traperror(convert(z, string)) 

fi; 

print(INTERFACE HELP( display", "topic" — topic, "section" — "usage")) 
end 


Ebben a szellemben definiálunk egy synopsis eljárást, és ki is próbáljuk az 
ifactor eljáráson?: 


2 Az angol eredetiben szereplő , Synopsis? helyett a Maple Linuxos verziójában a help oldal 
megfelelő részén található alcím , Description", de az eljárás ugyanígy használható. (A Fordító 
megjegyzése.) 


2.2. A Help rendszer 
5  synopsis :— proc( x::findexed,string) ) 
pl local topic; 
5 if type(x,string) then topic :— x 
s else topic :— traperror( convert(x,string)) 
5 1 uh He 
5 print( INTERFACE HELP( 
5 "display?, "topic? - topic, "section? — ?"synopsis? ) ) 
5 end: 
5 synopsis( ifactor ); 
Description: 


- ifactor returns the complete integer factorization of n. 


- The answer is in the form: 
u k ""((f1i)7ei x ... x ""(fn)ren such that 
n- u $ fireli k ... x fn"en where u eguals sign(n), 
f1l, ..., fn are the distinct prime factors of n, 
and el, ..., en are their multiplicities (negative in 
the case of the denominator of a rational) . 


- The expand function may be applied to cause the factors 
to be multiplied together again. 


- If a second parameter is specified, the named method 
will be used when the front-end code fails to achieve 
the factorization. By default, the Morrison-Brillhart 
algorithm is used as the base method. Currently 
accepted names are: 


"sgufof? - D. Shanks? undocumented sguare-free 
factorization; 

"pollard? - J.M. Pollard?"s rho method; 

"1lenstra? - Lenstra?s elliptic curve method; and 

"easy? - which does no further work. 


- 1f the ?7easy? option is chosen, the result of the 
ifactor call will be a product of the factors that 
were easy to compute, and a name . c.m indicating 
an m-digit composite number that was not factored. 


- The pollard base method accepts an additional optional 
integer: ifactor(n,pollard,k), which increases the 
efficiency of the method when one of the factors is 
of the form krmti. 
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A help oldalon ezután néhány példa következik. Sokszor már ezekből kiderül, 
hogyan oldható meg valamely feladat a Maple-lel. 


5  example( ifactor ); 


Examples: 
, ifactor( 61 ); 


5, ifactor( 60 ); 


, ifactor( -144 ); 


, expand("); 


, ifactor( 60, easy ); 


,) ifactor( 4/11 ); 


: n :- 8012940887713968000041 : 


5 ifactor( n, easy ); 


, ifactor(n ); 


(61) 


2 
(2) (3) (5) 


(2) (3) (5) 


(13) (457)  c19 


(13) (457) (2847639359) (473638939) 


Végül a kapcsolódó fogalmakra utal a Maple: 


5 related( ifactor ); 


See Also: ifactors, isprime, factor, typelfacint] 


Az info( ctopic5) és az example( ctopic- ) helyett használhatjuk a ?? ctopic5, 


illetve a ??? ctopic5 rövid alakot. 


A help rendszerben témakörök szerint is 


kereshetünk. Hava menüből a [ Topic SearchI-öt választjuk, a 2.3. ábrán 


látható dialógusbox jelenik meg. Az updates szót beírva azon témakörök listáját 
kapjuk, melyek neve ezzel a, szóval kezdődik. 
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2.3. ábra: Témakörök szerinti keresés 


Adott szavakat tartalmazó help témakörök között más módon is kereshetünk. A 
2.4. ábra a menü [Full Text Search] opciójának megfelelő dialógusboxot 
mutatja. A fit sztringet tartalmazó témaköröket írattuk ki. 


2.4. ábra: Szöveg szerinti keresés 


Láttuk tehát, hogy rengeteg segítséget kaphatunk a standard könyvtári függvé- 
nyekről magától a rendszertől is. A 2.1. táblázatban összegeztük a Maple help 
rendszerének lehetséges eléréseit. 
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A help kérés típusa A megfelelő parancs 


a help rendszer ismertetése ?help 

speciális téma ismertetése ? ctopic5 

speciális téma ismertetése adott kontexusban  ? ccontert5 ctopic5 
? ccontext5 [dtopico] 


az összes help kategória listája ?index 

a kifejezéseket alkotó operátorok listája ?index, expression 
a standard könyvtári függvények listája ?index function 
vegyes lehetőségek listája ?index,misc 

az összes csomag listája ?index packages 
az eljárásokra vonatkozó információk listája — ?index procedure 
a strukturált adattípusok összesítése ?typesstructured 
az alapvető adattípusok listája ?type surface 


új lehetőségek ?update 


2.1. táblázat: A Maple on-line help rendszere 


A ?index paranccsal kaphatjuk meg a help kategóriák listáját. Ez többek kö- 
zött a function, a misc és a packages kategóriákat tartalmazza. A Maple összes 
standard könyvtári függvényét fölsorolja a ?index function utasítás. A rend- 
szer ritkábban használt lehetőségeit ismerhetjük meg a ?index misc paranccsal. 
A ?packages utasítás beírásával a Maple-ben rendelkezésünkre álló csomagok 
listájához juthatunk hozzá. Ha például azt szeretnénk megtudni, hogy milyen 
eljárások vannak a lineáris algebrai csomagban, ehhez elegendő a ?linalg utasí- 
tás. Vagy ha a lineáris algebra csomag trace függvényéről akarunk ismereteket 
szerezni, használjuk a ?linalg trace vagy a ?linalgÍ[trace]l parancsot. Ha az 
első részt elhagyjuk, és csak ?trace-t írunk, a Maple standard könyvtárában 
található debug nevű nyomkövető eljárásról kapunk információt. Ha a ké- 
rés egyértelmű, mint például a mátrixok determinánsát számító det esetében, 
használhatjuk a ?det rövidítést 7linalg,det helyett. Valamely csomag betöl- 
tése után a hozzá tartozó eljárásokról már ebben a rövid alakban kérhetünk 
segítséget. Egy jótanács: 


Ismerkedjünk meg a help rendszerrel, mert ez lesz legjobb segítőtár- 
sunk a Maple megtanulásában és alkalmazásában. 


Most már készen állunk a Maple rendszeren át vezető körutazásunk megkezdésé- 
re, amely rövid Maple szekciókból és a közéjük ékelt magyarázó megjegyzésekből 
fog állni. Ha mást nem mondunk, azt tételezzük föl, hogy példáinkban a Map- 
le már elfelejtette az előző példák teljes történetét, mintha új Maple szekciót 
indítottunk volna. Alaposan nézzük át a példákat, próbáljuk ki őket a Maple se- 
gítségével, és kedvünk szerint változtassunk is rajtuk. Csak akkor szerezhetünk 
megfelelő ismereteket és jártasságot a számítógépes algebra használhatóságáról 
és korlátairól, ha közvetlenül szembesülünk magával a számítógépes algebrai 
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rendszerrel. Ugyanezen megfontolásból minden egyes fejezetet gyakorlatokkal 
zárunk. Dolgozzuk ki ezeket részletesen, hogy egyre gyakorlottabb Maple föl- 
használókká válhassunk. 


2.3. . Egész és racionális számok 


Igazi számítógépes algebrai rendszer lévén a Maple is idegenkedik közelítések al- 
kalmazásától az aritmetikai számítások során. A zsebkalkulátorokkal ellentétben 
a Maple spontán módon soha nem alakít át aritmetikai kifejezéseket decimális 
számmá. 

Két egész szám nemnulla nevezőjű hányadosát is csak egyszerűsíti. Ponto- 
sabban szólva, a racionális számokat automatikusan egyszerűsíti a számláló és a 
nevező legnagyobb közös osztójával. Ahhoz, hogy a racionális számokon pontos 
aritmetikával tudjon számolni, a Maple-nek nagyon nagy egészeket is tudnia kell 
kezelni. 

s 5 / 81491528324789773434561 


s  - 101 / 10198346916138403856439: 
—908850291802563899734274 


92342097398058352671328089792352035178332031 
5 number :-— 47(474); 


number :— 134078079299425970995740249982058461274) 
79365820592393377723561443721764030073546976801) 
87429816690342769003185818648605085375388281194) 
6569946433649006084096 


5  length( number ); tt number of digits 
155 


Figyeljük meg, hogy a Maple magától kirakja a backslash karaktert, ezzel jelezve, 
hogy az output a következő sorban folytatódik. 

Természetesen létezik olyan legnagyobb egész szám, amely még reprezentál- 
ható a Maple-ben, de ennek értéke sokkal nagyobb, mint a legtöbb programozási 
nyelvben. A jegyek számának felső korlátja 32 bites gépeken 219 — 9 — 524279. 
Ez a korlátozás megkerülhető, lásd a [83]-at. Annak titka, hogyan képes a Map- 
le 10524279 nagyságú egész számokkal számolni, az egészek belső ábrázolásában 
rejlik. A legtöbb programozási nyelv a hardver adta lehetőségeket használja 
az úgynevezett egyszeres pontosságú egészekkel való számolásnál. Ez a meg- 
közelítés az egész értékeket az egy szóban ábrázolható egészek tartományára 
korlátozza. A Maple rendszerben többszörös pontosságú egész aritmetikát imp- 
lementáltak oly módon, hogy egy-egy egész szám belső ábrázolására a memóri- 
ában több egymás utáni szót használtak föl, lásd (39, 75]. Ezt a lineáris listát 
dinamikus adatvektornak nevezzük, melynek hosszát a, felhasznált szavak szá- 
mával definiáljuk. A Maple egész számokat reprezentáló belső adatstruktúrája 
a következő 2.5. ábrán látható. 
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2.5. ábra: A pozitív egészek belső ábrázolása 


Ennek a vektornak első szava kódolja az adatstruktúra leírásához szükséges 
összes információt: jelzi, hogy a vektor pozitív egészet reprezentál, valamint, 
hogy a vektor hossza n 4-2. A következő n -- 1 szó az ig, í1, i2, . . . , in egyszeres 
pontosságú nem negatív egész számokat tartalmazza. Ha B jelöli a számítógép 
belső számábrázolásának alapszámát, akkor a fönti vektor az 


io FiiB 4 i2B? 4 izB? 3... tinB" 


egészet reprezentálja. A Maple B-ként 10-nek azt a legnagyobb hatványát hasz- 
nálja, amelyre B? még egyszeres pontosságú aritmetikában ábrázolható (32 bites 
gép esetén B — 10). Mivel a vektor hossza nem előre rögzített fix érték, ha- 
nem dinamikusan választható, ezért a Maple rendszerben nagyon nagy egészek 
reprezentálhatók. Az egyetlen megszorítást az jelenti, hogy a számot ábrázoló 
vektor szavainak számát a dinamikus adatvektor első szavában kell ábrázol- 
nunk. A Maple 17 bitet használ a vektor hosszának megadására, ebből adódik a 
219. 9 —4((217—1)— 1) — 1 , mágikus szám". A Maple elég intelligens ahhoz, 
hogy egy számról előre eldöntse, vajon ábrázolható-e: 
5 123456789 7 987654321; 


Error, object too large 


A Maple-ben több olyan eljárás is van, amelyek segítségével egészeken számí- 
tásokat végezhetünk. Nézzünk néhány példát: 
5 number :— 10729 - 10714 - 1; 
number :— 99999999999999899999999999999 


5  isprime( number ); it check whether the number is prime 


false 
A Maple prímtesztelő algoritmusának leírását [200]-ban találjuk. 
5 settime :— time(): it start timing 


5  ifactor( number ); tt factorize the integer 
( 61) ( 223) ( 13166701) ( 97660768252549) ( 5717) 
s cpu time :— (time()-settime) $ seconds; tt computing time 
cpu time :— 2.040 seconds 
5  nextprime( number ); í determine the next largest prime 


99999999999999900000000000157 


5 § integer approximation to the sguare root 
s isgrt( number ); 


316227766016838 
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Az egészek faktorizálása rendkívül időigényes feladat, ezért bizonyára ismerni 
szeretnénk a számításokhoz fölhasznált időmennyiséget. Ahogy az előbb láttuk, 
ez a Maple time eljárásával kapható meg, amely a Maple szekció kezdete óta a 
számításokra összesen elhasznált időt írja ki (másodpercekben). Írjuk be köz- 
vetlenül a számítás elkezdése előtt, illetve befejezése után a time( ) parancsot. 
A két számérték különbsége adja meg az adott számítás végrehajtási idejét. 
Másik alternatíva a time( Cexpression:) parancs használata, ezzel az argu- 
mentumában szereplő kifejezés kiértékeléséhez szükséges időt kapjuk. Például 
5  time( assign( factored number, ifactor(3!!!) ) ); 


.999 


a 31! — 6! — 720! prímfaktorizációját számolja ki, az eredményt a későbbi 
hivatkozások céljából a factored number változóban tárolja. Itt nem használ- 
ható a :— értékadó operátor, mivel a time argumentuma, nem lehet (értékadó) 
utasítás, csak kifejezés. 

Az összes előző eljárásban kulcsszerepet játszik az egészek (maradékos) osz- 
tása és a legnagyobb közös osztó meghatározása: 


5 a :- 1234: b :- 56: 
s ag :- iguo(a,b); $ guotient of integer division 
g:— 22 
5 r :- irem(a,b); $ remainder of integer division 
risül 
5 testeg( a — gib 4 r ); it check identity 
true 


5 igcd(a,b); t greatest common divisor of integers 
2 


Az igcdex eljárás egészek kiterjesztett legnagyobb közös osztóját (extended 
greatest common divisor of integers) számolja: az a és b egészekhez olyan s és 
t egészeket határoz meg, amelyekkel a s --( bt — gcd(a, b): 
z":1gedeX( a; De ös2, TE2 
2 


5 )s) — s, "t? - t, Jars t bit? — ars 1 birt; 
s—-1,t— —22,as1bt—2 


Az előző példákban az s, t és az as 4 bt körüli idézőjelek a változók kiértéke- 
lésének elnyomására szolgálnak. Ennek részletesebb magyarázata a következő 
fejezetben található meg. 

A moduláris aritmetika fontos szerepet játszik az egészek faktorizálásában és 
a prímtesztekben, lásd [117]. A mod operátor alkalmazásának eredménye a 
(nemnulla) n egész szerinti moduláris aritmetikában a O), 1, 2, . . . , In — 1 sorozat 
valamelyik tagja. Ha ehelyett inkább a 


In]— 1 BA in] a ]R] 
; e elere [515 
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közé eső, a 0 körül szimmetrikusan elhelyezkedő értékeket preferálunk, ezt előre 
meg kell mondanunk. 
5 1/2345 mod 6; 
5 


5 "mod" :— mods: 1/2345 mod 6; 
S1 


A Maple moduláris aritmetikájának egyik hátránya, hogy egy lépésben nem 
írható elő, hogy az összes további számítást valamely fix modulus szerint végezze 
a rendszer. Minden parancsnál bívnunk kell a mod rutint. 


Mint korábban megjegyeztük, a Maple a racionális számokat magától egysze- 
rűsíti egyértelműen meghatározott standard alakjukra. A rendszer automati- 
kusan egyszerűsít a számláló és a nevező legnagyobb közös osztójával, és azt is 
biztosítja, hogy a nevező pozitív legyen. A racionális számok legkompaktabb 
standard formája a, (nominator, denominator) alakú, pozitív nevezőjű számpá- 
rokkal való reprezentálás, amelyet kanonikus alaknak nevezünk. Nem valószínű, 
hogy az Olvasó az §-ot inkább a 


—41152263041152263041152263041152263041152263 
—123456789123456789123456789123456789123456789 


alakban szeretné ábrázolni. Azt gondolhatnánk, hogy a Maple a racionális szá- 
mok belső ábrázolására olyan három komponensű adatvektorokat használ, ame- 
lyekben az első komponens a, vektor fajtáját, a második a számlálót, a harmadik 
pedig a pozitív nevezőt reprezentálja. A Maple tervezői azonban más megoldást 
választottak, mivel a rendszer memória-használatát a lehető leghatékonyabbá 
akarták tenni. A következő szabályból indultak ki (lásd [36]): 


A Maple minden írész)kifejezést csak egyszer tárol. 


Ezért a racionális számot reprezentáló adatvektorban a két utolsó komponens 
nem a számlálót és a nevezőt reprezentáló többszörös pontosságú egészeket, 
hanem csak rájuk mutató pointereket tartalmaz. Így ha egy egész szám esetleg 
több törtben elő is fordul, csupán egyetlen helyen kell tárolni a memóriában. Ha 
például egy Maple szekcióban a —2 3 és a B racionális számokat használjuk, a 
belső reprezentáció a, 2.6. ábrán látható alakú lesz: 


fraction [fraction J fraction j] 
intneg] 1 intpos [5 
intpos ] 2 J intpos 3] 


2.6. ábra: A —2, § és a $ törtek belső ábrázolása 


2.4. Irracionális és lebegőpontos számok 47 


2.4.  Irracionális és lebegőpontos számok 


Az előző részben azt láttuk, hogy a Maple a racionális számokat automatikusan 
egyszerűsíti. Általában azonban a rendszer csak akkor hajt végre egy számítást, 
ha erre kimondottan utasítjuk: 
5 257(1/6); 
251/6 


s simplify("); 
51/8 


s evalf(""); 


1.709975947 


5  convert( """ float ); 


1.709975947 


Ebben a példában a simplify és az evalf eljárásokkal dolgoztattuk meg a 
Maple-t. A simplify(") parancsban az idézőjel az előzőleg kiértékelt kifejezés- 
re, esetünkben a 25!/6.ra való hivatkozást jelent. Két idézőjel az utolsó előtti, 
három az azt megelőzően kiértékelt kifejezést adja; háromnál több idézőjel nem 
használható. A fönti értelemben alkalmazott idézőjeleket ditto operátornak is 
nevezzük. 


Arra számíthattunk volna a, fenti példában, hogy a Maple rögtön a köbgyök 
közelítő értékét adja meg, ez azonban ellentmondana a pontos aritmetika, elvé- 
nek. Lehet, hogy a fönti köbgyök harmadik hatványát is ki akarjuk számolni és 
a pontos eredményt szeretnénk megkapni. Közelítő lebegőpontos aritmetikával 
eltérő eredményre jutnánk. 

s. 25.07(1/6); 
1.709975947 


ér ak 


25.00000003 


A Maple minden tizedespontot tartalmazó számot lebegőpontos számnak tekint, 
és a továbbiakban így is számol vele. Gondoskodik a szükséges automatikus 
típuskonverziókról (például egészről lebegőpontosra) is: 
5 90005£0.15; 
13500.75 
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A Maple-ben a lebegőpontos számok , megfertőzik" a további számításokat, ezért 
exp(1.) már automatikusan 2.71828. . . .-ra értékelődik ki. 


A lebegőpontos számokra többféle jelölést alkalmazhatunk. A. 0.000001 pél- 
dául megadható 0.1310-5, 1E-6 és Float (10 , -6) formában is. A. lebegőpontos 
számok Maple-beli belső ábrázolására emlékeztet a Float(mantissa, exponent) 
alakú utóbbi jelölés: ez olyan adatvektor, mely a Float fejlécből, továbbá a 
többszörös pontosságú egész számokkal megadott mantisszára és kitevőre mu- 
tató két pointerből áll. Ez a vektor a mantissa x 10e7ponent számot ábrázol- 
ja. Más szavakkal, a lebegőpontos szám szignifikáns jegyeit a mantisszában 
tároljuk, míg az általános nagyságrendjét a kitevő adja meg. A lebegőpontos 
számok belső ábrázolásának következményeként ezen számok pontossága mege- 
gyezik a Maple-ben ábrázolható legnagyobb egész szám számjegyeinek számával. 
Az egész kitevőkön végzett műveleteket (összeadás, szorzás, ...) azonban a C 
nyelven írták meg. Ez azt jelenti, hogy a kitevő-aritmetika a C egész aritmeti- 
kájára van megszorítva. 


A lebegőpontos aritmetika pontosságát a Digits nevű Maple változó beál- 
lításával határozhatjuk meg, ennek alapértelmezése 10. Több olyan függvény 
van, amelynek eredményét a Maple lebegőpontos aritmetikával számolja ki, ezek 
közül a legfontosabb az evalf (evalute using floating-point arithmetic): 

s evalf( sart(2) ); 
1.414213562 


, Digits; 
10 


, Digits :— 20: evalf( sgrt(2) ); 
1.4142135623730950488 


5 evalf( Pi, 150 ); 


3.1415926535897932384626433832795028841971693993) 
751058209749445923078164062862089986280348253421 


117067982148086513282306647093844609550582231721 
535940813 


Az evalf eljárás első argumentumát közelíti a második argumentumaként meg- 
adott számú jeggyel. Ha csak egy argumentummal hívjuk, akkor a Maple a lebe- 
gőpontos aritmetikai számításokat a Digits értékének megfelelő számú jeggyel 
hajtja végre. [188]-ban részletes leírást talál az Olvasó a Maple lebegőpontos 
számítási modelljéről és ennek következményeiről. 


A Maple természetesen ismer néhány matematikai konstanst, például a 9 
Euler-Mascheroni konstanst és a r számot. A rendszer által ismert konstansokat 
a, 2.2. táblázatban soroltuk föl. 
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A matematikai konstans Maple neve (Közelítő) értéke 
Tr, az egységkör területe Pi 3.141592654 
A C Catalan-szám Catalan 0.9159655942 
KÉM 
(na 1)? 
A y Euler-Mascheroni konstans gamma 0.5772156649 
LASER ÁLN AN 
z lim Í 6384 —]nn] 
00 A kz1 7 
a true, false, fail logikai értékek true false, FAIL 
00 infinity 


2.2. táblázat: A Maple matematikai konstansai 


A Maple konstansok nevei védettek, nehogy véletlenül fölülírjuk őket: 
3 "Pi ss 3.414 


Error, attempting to assign to "Pi" which is protected 


Definiálhatunk új védett nevű szimbolikus konstansokat is: 
5  electron rest mass :— 9.109558 x 107(-31) $ kg; 
electron-rest-mass :— .91095580000000000000 107?" kg 


s protect( ?electron rest mass? ): 
5  electron rest mass :— 5.48593 x 107(-4) 
5 x atomic mass units; 


Error, attempting to assign to "felectronuresticmass" which is 
protected 


Ha új értéket akarunk a konstanshoz rendelni, először törölni kell védettségét az 
unprotect-tel: 
5  unprotect( ?electron rest mass? ): 


s  electron rest mass :— 5.48593 x 107(-4) 
5 kk atomic mass units; 


electron rest.mass :— 
.00054859300000000000000 atomic-mass-units 


s  protect( ?electron rest mass? ): 


Másik alternatívaként a macro eljárás alkalmazásával rendelhetjük hozzá az 
electron res mass védett névhez a 9.109558 x 107?kg értéket. Ekkor az 
electron res mass csupán egy speciális érték olyan rövidítése, amelynek nem 
adhatunk véletlenül új értéket: 


50 2. Az első lépések: számolás számokkal 


5: macro( electron rest mass - 9.109558 x 107(-31) 4 kg ): 
5  electron rest mass; 


.91095580000000000000 107? kg 


Az utóbbi mechanizmus jól alkalmazható a természetes alapú logaritmus e 
alapszámára. A Maple ezt exp(1)-gyel jelöli. De elég fárasztó exp(1)-et írni 
valahányszor az e-re van szükségünk. Azon túl, hogy a munkalapjainkon inkább 
e-t szeretnénk látni, számolás közben is ezt a rövid jelölést szeretnénk használni. 
Nos, ennek eléréséhez a, következőképpen járhatunk el: 


5 protect( ?e? ): 
5 macro( e — exp(1) ): 


5 1n(e); 


A zsebszámológépeken használhatjuk az exponenciális, a természetes alapú 
logaritmus, a trigonometrikus és más matematikai függvényeket. Mindezek meg- 
találhatók a Maple-ben is, de a rendszer rajtuk kívül még sokkal több függvényt 
is nyújt. A 2.3. táblázatban található a gyakoribb matematikai függvények fölso- 
rolása a Maple-ben használatos nevükkel együtt. Részletesebb listát kaphatunk 
a ?inifens (help about initially known functions) paranccsal. 


Idézzünk föl néhány definíciót: 


fool 
a Gamma függvény Tíz) s J t71ertdt, R(2) 50 
[/ 
§ a a 1 
a Riemann-féle ( függvény  ((2) — pa E 
n7-1 
: 8 BA B ? Int 
A dilogaritmus függvény dilog(T) — Ig dt 
Hő És 
a hibafüggvény erf(2) — 1-8 [4 j e" dt 
Vr Jo 


A Maple ismeri ezek közül soknak pontos értékeit. A §, a 17 és a 15 többszö- 
röseire alkalmazott trigonometrikus függvények például pontos numerikus ered- 
ményeket adnak. A Riemann-féle ( függvény eredménye is pontos, ha 50-nél 
kisebb páros természetes számra alkalmazzuk. Nagyobb számokra az expand- 
dal explicit módon ki kell fejtetni az eredményt. Ismert, hogy Jim erf(z) —1 


és így tovább. 
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A matematikai függvény Maple neve ! 
exponenciális függvény exp 

természetes alapú logaritmus In, log 

tízes alapú logaritmus log10 

negyzetgyök sart 

abszulút érték abs 


trigonometrikus függvények 
inverz trigonometrikus függvények 


hiperbolikus függvények 
inverz hiperbolikus függvények 


hipergeometrikus függvény 
Bessel függvények 

Gamma függvény 
binomiális együtthatók 
poligamma függvény 
Riemann-féle ( függvény 
dilogaritmus 


; hiba függvény 


sin, cos, tan, csc, sec, cot 

arcsin, arccos, arctan, arccsc, arcsec, 
arccot 

sinh, cosh, tanh, csch, sech, coth 
arcsinh, arccosh, arctanh, arccsch, 
arcsech, arccoth 

hypergeom 

Bessell, BesselJ, Besselk, BesselY 
GAMMA 
binomial 
Psi 

Zeta 
dilog 

erf 


2.3. táblázat: A Maple által ismert, gyakran használt matematikai függvények 


5  sin(Pi/10), Zeta(2), limit( erf(x), xzinfinity ); 


1 
a va 


1. rad. ag 
da 51 


s  Zeta(50) - expand( Zeta(50) ); 


c(50) — 39604576419286371856998202/ 
2852587714575467644633636352523744141832543652343751?" 


Numerikus közelítéseket az evalf-fel nyerhetünk. 


5  Zeta(3); evalí("): 


c) 


1.2020569031595942854 


Még néhány elgondolkodtató példa az egzakt és a lebegőpontos aritmetika vi- 


szonyáról: 


5  sin(4) - 2rsin(2)trcos(2); combine(","trig?); evalf(""); 
sin(4) — 2 sin(2) cos(2) 


.110719 
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s  (1lItsgrt(2))72-2r(itsgrt(2))-1; simplify("); evalf(""); 
(V231)32—3—2V2 
0 
0 


Talán tudni szeretné az Olvasó, hogyan képes az evalf Maple eljárás megkülön- 
böztetni mindezeket a matematikai függvényeket. Föltárulnak a Maple titkai, ha 
a printlevel Maple változó értékét az alapföltételezés szerinti 1-nél nagyobbra 
állítjuk be: 

, printlevel :-— 5: evalf( sin(1)tln(2) ); printlevel :- 1: 


(1--2? enter sin, args — 1 
£-- exit sin (now at top level) - sin(1)) 
(1--5 enter evalf/sin, args — 1 


€ neg 


£-- exit evalf/sin (now at top level) -— .841470984807896506653 
(--2 enter evalf/1ln, args — 2 


Na Zs 


£-- exit evalf/ln (nov at top level) — .693147180559945309423 
1.5346181653678418161 


A példa azt jelzi, hogy minden olyan func matematikai függvényhez, amely- 
re numerikus értékek is meghatározhatók, létezik a Maple könyvtárban egy 
evalf/func nevű eljárás. Valahányszor az evalf eljárást alkalmazzuk egy ki- 
fejezésre, a rendszer megvizsgálja, hogy milyen függvények fordulnak elő benne, 
és automatikusan alkalmazza a megfelelő evalf/func eljárást. Így a numerikus 
közelítések kiszámításához elegendő egyetlen eljárás nevére emlékeznünk ahe- 
lyett, hogy több különböző eljárást kellene fölidéznünk. Látni fogjuk, hogy más 
területeken, például az integrálásnál, a differenciálásnál és az egyszerűsítésnél is 
hasonló technikával dolgozik a rendszer. 

A Maple-ben létezik egy evalhf (evaluate using hardware floating-point 
arithmetic) nevű eljárás is. Ezzel fölgyorsíthatjuk numerikus számításainkat 
(például függvények gráfjának kirajzolását) a hardver beépített lebegőpontos 
aritmetikájának használatával. Az eljárás argumentumait a, hardver lebegőpon- 
tos számábrázolásának megfelelő formára konvertálja, dupla pontossággal kiszá- 
mítja az eredményt (ami nagyjából a Digits-15 értéknek felel meg), végül ezt a 
Maple ábrázolásának megfelelő lebegőpontos számmá alakítja. Az evalhf hasz- 
nálatát a következő módon definiált g függvény értékeinek meghatározásával 


illusztráljuk: 
5 f :— x -5 arctan( (2rx72-1)/(2rx72-41) ): 
s g :5 (x,y) -2 f(x) Fr fly: 
5 g(x,y; 
232—1 y—-1 
arctan (51) arctan( 5 77 7) 
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Számítsuk ki a függvény értékeit azon az 50 x 50-es négyzetrácson, amelyet a 
[—3,3] x [-3, 3] négyzetben ekvidisztánsan elhelyezkedő pontok alkotnak: 


5 


VE 


DONE 


settime :— time(): tt start timing 
for i to 50 do 
for j to 50 do 
evalf( g( -3 41 6ri/50, -3 4 6xj/50 ) ) 


od od: 

cpu time :— (time()-settime) $£ seconds; tt computing time 
cpu.time :— 4.111 seconds 

settime :— time(): 


for i to 50 do 
for j to 50 do 
evalhf( g( -3 4 6ri/50, -3 t 6xj/50 ) ) 
od od: 
cpu.time :— (time()-settime) x seconds; $ computing time 


cpu.time :— .279 seconds 


evalf( g(1,1) ), evalhf( g(1,1) ); 
.10352341925454660709, .1035234192545466 


A Maple rajzoló rutinjai, például a plot3d szintén a hardver lebegőpontos arit- 
metikáját használják. Rajzoltassuk ki a g gráfját. (Lásd 2.7. ábra.) 


s  plot3d( g, -3..3, -3..3, 
s grid-[50,50], style-patchnogrid ) ; 
2.7. ábra: Az (z,y) F arctan — (3sz) : arctan (5571) függvény grafikonja 
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2.5. Algebrai számok 


Már láttunk példákat radikálokra (gyökökkel fölírt számokra), például egészek 
négyzetgyökére és köbgyökére. A Maple-nek nem okoz gondot a velük való 
számolás: 

5 ( 1/2 4 1/25sgrt(5) )72; 


de 


5  expand("); 


ör. 

2 ATA 5 VS 
s 1/"; 

1 

9. d 

2 155 
,  simplify("); 

2 

345 


5 readlib( rationalize ): i load library function 
s rationalize(""); 


9 pi 
2 275 
5  (-1-3xkPi-34Pi72-Pi-r3)7(1/3); 
(—1— 38-87? —ző)8 
5. simpiiíyt" 


5(rr1)(14IV8) 


Az utolsó példában a Maple a komplex köbgyök függvény főágát használta. A 
valós gyök a következő trükkel kapható meg. 


5 readlib( surd ): it load library function 
s surd( op(i,""), i/op(2 am ); 


—-(1437-4372 4 79)1/8 
5  simplify("); 
-r—1 
A /ridroevn alakú egymásba skatulyázott négyzetgyökök, ahol n E N és 
r1,T2 € 0, az sart és a simplify parancsokkal lebonthatók, ha. ez lehetséges: 
5 sgrt( 4 4 2ksart(3) ); 
V3-41 


3 (4 § 23 TÁZT) I (I/A: 


V432v3 
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5 simplify("); 
V3-41 
Bonyolultabb skatulyázott radikálokat a radnormal eljárással egyszerűsíthe- 
tünk: 


5 readlib( radnormal ): ti load library function 
s  sgrt(25t5rsgrt(5)) - sgrt(5tsagrt(5)) - 2ksgrt(5-sgrt(5)); 


Va áyó salsa Va nb 


5  radnormal("); 


0 


A radikálok az ún. algebrai számok speciális esetei. Általánosabban az algebrai 
számokon a racionális számok fölötti egyváltozós polinomok gyökeit értjük. Így 
például V2 az x? — 2 polinom egyik a gyöke, V2 4 V3-4 V5 az r8 — 4076 3 
35221 — 9607? -- 576 polinom egyik a gyöke, a V1rvV2 skatulyázott radikál az 
3 — 23 —1 polinom egyik a gyöke. Az x? 4-3--1 polinom a gyökei nem írhatók 
föl radikálokkal (lásd (170]-ben a megoldható ötödfokú egyenletek jellemzését). 
Figyeljük meg, hogy ezekben a példákban a az illető polinom bármelyik gyökét 
jelentheti, mint ahogy a 2 négyzetgyöke lehet (közelítőleg) 1.4142 vagy —1.4142. 

Az algebrai számokkal végzett számítások bonyolultak és időigényesek; ez 
alól a Maple sem kivétel. Az algebrai számokat a , helykitöltő" RootOf eljárás 
segítségével reprezentálja a rendszer. Például 

5 alpha :— Root0f( z72 -2, z ): 
a :— RootOt( 2? — 2) 

a 2 tetszőleges gyökét jelenti (radikál jelöléssel a v2-t vagy a —v/2-t). Ebből 
az is kiderül, hogy a Mapleaz — 7 belső változóval számol. A simplify eljárás 
az a-t tartalmazó kifejezések egyszerűsítésénél kihasználja azt a tényt, hogy 
assg 


5  simplify( alpha72 ); 


: simplify( 1/(italpha) ); 
RootOf(.2? —2)-1 
Sokkal áttekinthetőbbé válnak ezek a, számítások, ha, a négyzetgyökre egy álne- 
vet használunk: 


s; alias( beta — RootOf( 272.- 2,1zv) d: 
5 1/(1itbeta) 1 1/(beta-1); simplify("); 
1 1 


elezámántőts - seg szzetest 
148 8-1 
2 B 
Az algebrai számok radical-os és Root0f-os reprezentációi minden lehetséges 
esetben könnyen átkonvertálhatók egymásba: 
5  convert( (-8)7(1/3). Rooto0f ); 
RootOf(.2? 4-8) 
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5  convert( ", radical ); 
(—8)1/8 
A fönti példában tehát a és ő a 2 bármelyik négyzetgyöke lehet; az allvalues 
eljárás igyekszik is mindegyiküket megmutatni. 
s  allvalues( beta ); 
Va, -Vő 


Az allvalues alapföltételezés szerint valamely RootOf kifejezés összes előfor- 


taig 


szereplő RootOf-ok egymástól független kiértékelését i is: 
5 beta 4 1/beta; 


ük 
- — 
vé 
s  allvalues("); 
3 3 
572 -5v2 


s  allvalues( "", "independent? ); 
3 1 1 3 
Sad ad ez fh ó 
a V2, 5 V2, 5 V2, a V2 


A Maple-ben algebrai számtestek fölötti polinomokkal is számolhatunk. Az 
alábbiakban hill a IENEtŐSÉBEL Heszatákjtókó föl annak ellenőrzésére, hogy 4 AV 2-k 
Fstskág az 33 —4025-3-35231—960x?1-576 polinom gyöke és V2 — siz GE Lake 
sz Tt §C. A (C-t definiáló polinom kiszámítására rezultánsokat használunk. 

(v. ö. [132].) 
s polynomial :— resultant( 
5 resultant( x72-5, (x-y)"72-3, x ), (y-z)72-2, y ); 
polynomial :— —960 2? -- 352 21 — 40 27 4 28 4.576 


5  expand( subs( z-sgrt(2)tsart(3)tsgrt(5), polynomial ) ); 


A V23- 437 V5 tehát valóban gyök. Vezessük be a ( algebrai számot, és 
faktorizáljuk az xr? — 2 polinomot (KC) fölött: 

, alias( zeta - Root0f( polynomial, z ) ): 

5 "fáctor( x "2-2, zeta ); 


1 
960(— 560? — 286 4 (T 
meggázlítánt (— 566 6 re) 


(—576 24 960(— 5603 — 2865 4.7) 


Az x? — 2 két OXC) fölötti gyökét a roots eljárással is megkereshetjük: 
5 roots( x72-2, zeta ); 


1 13) T 
TÁR sál de ral 1], 
3 5 
ező 4 tsz ző, 11] 
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A roots eljárás a polinomok gyökeit és multiplicitásukat számolja ki. A jelen 
esetben sz ("4 50— 50 — íz a 2 egy multiplicitású gyöke abban a OXC) 
testben, ahol (C a (8 — 40(" - 352ct — 960(? -- 576 — 0 összefüggést elégíti ki. 

A RootoOf fönti leírása a polinom bármelyik gyökének manipulálására vo- 
natkozik, anélkül, hogy megmondanánk, melyik gyökre gondoltunk. De létezik 
egy szelekciós mechanizmus is a gyökök kiválasztására. Néhány példa: 

5  Rootof( x72 t 9/10, x ); 
RootOf(10 2? 4-9) 


5 evalf("); 
—.9486832981 I 


5  Root0úf( x72 4 9/10, x, 1.OxI ); 
RootOf(10.2? 49, 1.07) 


5 evalf("); 
.9486832981 I 


s  RootOof( x72 4 9/10, x, -1.OxI .. 1.OxI ); 
RootOf(10. 2? 3-9, —1.0I..1.0 I) 


s evalf("); 
—.9486832981 I 


A. RootoOf-ban szereplő két szelektor jelentése a 2.4. táblázatban látható. 


Szelektor A kiválasztott gyök 


a t brI aza t b$I-hez abszolút értékben legközelebb eső gyök 
a t bxrI..c 4 drI az fsolve rendezése szerinti első gyök az adott tarto- 
mányból 


2.4. táblázat: A RootoOf szelektorai 


2.6. Komplex számok 


Az algebrai számokkal ellentétben a komplex számok a Maple alaptípusai között 
szerepelnek. Az ií képzetes egységet (i? — —1) a Maple az I szimbólummal 
reprezentálja. A komplex számokkal végzett numerikus aritmetikai műveleteket 
a rendszer automatikusan végrehajtja: 
5 (264 3I) x (471 51); 
—7322I 


s  Re("), Im("), conjugate("), abs("), argument("); 
22 
—7, 22, —7 — 22 I, V533, —arctan(- ) km 


a A YAH § 99 


533 533 
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A Maple sok matematikai függvényt komplex függvénynek tekint. Többértékű 
komplex függvények esetében a Maple a főágat használja: 


5  cos(1), 1ln(I), arccoth(0), sagrt(-8); 
cosh(1), Tr, 21, 2IV2 


s. sagrt( (1.04I)72 - 1.0 ); 
.7861513778 -- 1.272019650 I 


5 Zeta( 0.5 4 I ), GAMMA( 0.5 4 I ); 
.1439364271 — .7220997435 I, .3006946173 — .4249678794 I 


Komplex függvények abszolút értékéről közlünk két ábrát az alábbiakban: 
5  plot34( abs( GAMMA(xryrI) ), x--Pi..Pi, y--Pi..Pi, 
5 view-0..5, grid-[30,30], orientation-[-120 , 45] , 
az axes-íramed, style-patchcontour ); 


A 2.8. ábrán a komplex síkon értelmezett gamma függvény abszolút értékének 
felületi ábrázolása látható. 


2.8. ábra: A gamma függvény abszolút értékének grafikonja 


Az előző plot3d parancsba beírtuk a kép generálásához szükséges összes op- 
ciót. Miután a Maple kirajzolta a felületet, ezek közül sokat manuálisan megvál- 
toztathatunk. Részleteket a, grafikáról szóló 15. fejezetben találhat az Olvasó. 

A 2.9. ábra a Riemann-féle zéta függvény abszolút értékét mutatja az R(2) — 
5 kritikus egyenesen. Látható a Riemann függvénynek erre az egyenesre eső 
első néhány zérushelye is. A híres Riemann hipotézis szerint minden komplex 
zérushely ezen a kritikus egyenesen található (lásd [107]). A Riemann hipoté- 
zist sokszor numerikusan vizsgálták; újabb keletű eredményeket tartalmaz [133, 
147]. 

5 plot( abs( Zeta(i1/2tyrI) ), y-0..36, numpoints-1000 ) ; 
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2.9. ábra: A Riemann-féle ( függvény abszolút értéke a kritikus egyenesen 


A Maple szimbolikus kifejezésekben szereplő komplex számokra vonatkozó tu- 
dásanyagát az evalc (— evaluate using complex number arithmetic) eljárással 
aktivizálhatjuk. Az evalc föltételezi, hogy a kifejezésben szereplő minden vál- 
tozó valós értékű, a komplex számokat pedig az a -- bI kanonikus alakba írja át, 
ahol a és b valós számok: 


5 1/ (254 p- gr); 


1 
24p-Ig 
5 evalc("); 
EL. lesz: KÖRRNÉRE NK... RRNNR 
2 orat 2-toiakeei 
s abs(""); 
1 
124 p—Ial 
s evalc("); 
1 


V4át4p3-p? he 


A következő példában látni fogjuk, hogy a föltételek miként segíthetnek hozzá 
egyszerűbb eredmények eléréséhez bennünket. 


vptIg 


s sgrt( pt grIl ); 
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5 evalc("); 
1 1 
3V2v24942p-r 2 1 csgn(g— Ip) 2 Vp? 193? —2p 


A csgn komplex előjelfüggvényt így definiáljuk: 


f 1 ha R(2) 5 0 vagy (R(z) — 0 és $(2) 5 0); 

csalása -Envsignumo haz-0Oés Envsignumo-nak van értéke; 
0 haz -O0és EnvsignumoO-nak nincs értéke; 
El egyébként. 


Ahogy a következő példák is mutatják, csgn(0)-t az  EnvsignumO környezeti 
változó határozza meg. 
s — EnvsignumO :— 13: csgn(0); 


13 

5: — EnvsignumO :— 1: csgn(0); 
1 

5 — EnvsignumO :— ?" Envsignum0?: csgn(0); 
0 


Miért vezették be ezt a speciális változót? És miért hívják . Envsignumo-nak? 
Az utóbbi kérdés könnyen megválaszolható: ez az ún. környezeti változó szabá- 
lyozza signum(0) értékét. A signum eljárás természetesen a valós számokon 
és kifejezéseken értelmezett előjelfüggvényt jelenti, azaz 


Í 2/abs(z) haz / 0; 
—§ — Envsignumo haz-—0Oés EnvsignumoO-nak van értéke; 
I 0 haz- 0 és EnvsignumoO-nak nincs értéke; 


signum(2) 


A kifejezések egyszerűsítésének helyességét befolyásolhatja, hogyan definiáljuk 
ezt a függvényt a 0 helyen. Például a 


signum(abs(z)) o 1 


transzformáció az z — 0 helyen hibás eredményt ad, ha signum(0) — 0. Hason- 
lóan, valós x és y esetén a 


signumíz y) — signum(7z) signum(y) 


transzformáció sem korrekt az z c 0 és y — 0 esetben, ha signum(0) — 1. A 
Maple-nek nem kellene végrehajtani ezt az egyszerűsítést; valóban nem is végzi 
el automatikusan. 
s — EnvsignumO :- 1: signum(0); 
1 


5  signum(xty); 
signum(r y) 
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Az Envsignumo változó értéke a következőképpen szabja meg az alkalmazható 
transzformációkat és egyszerűsítéseket: 


e Az EnvsignumO-nak nincs értéke. 
Ekkor az összes olyan transzormáció végrehajtható, ami a 0 hely kivételé- 
vel mindenütt biztosan érvényes. 


e Az Envsignum0O-nak van értéke. 
Ebben az esetben csak azok a transzformációk alkalmazhatók, amelyek a 
signum(0)-hoz rendelt értéket figyelembe véve is mindenütt érvényesek. 


Az automatikus egyszerűsítés eléggé szövevényes terület, de látható, hogy a 
fölhasználó is vezérelheti bizonyos határok között. 

Folytassuk az sgrt-vel kapcsolatos példánkat. Ha megfelelő föltételeket te- 
szünk, a Maple tovább tud egyszerűsíteni: 


5  assume( p?0O, a?0 ): 
s evalc( sart( p t grI ) ); 


TA 1 
5 2/o2r rap aira p7?ag97—-2p 


A p és a g utáni tilde karakterek azt jelzik, hogy ezekre a változókra bizonyos 
kikötések érvényesek. A változók tulajdonságairól a Maple about parancsa 
tájékoztat bennünket. Az assume részletesebb ismertetése a 13. fejezetben 
található. 

s about(p ); 


Originally p, renamed p": 
is assumed to be: RealRange(Open(0) , infinity) 


Befejezésül vizsgáljuk meg a —1 négyzetgyökével kapcsolatos jelöléseket. A 
villamosmérnökök jobban szeretnek j-t vagy J-t írni, a nagy I betű ugyanis 
inkább az elektromos áramkörökben folyó áram jelölésére használatos. A Maple- 
ben ezt így oldhatjuk meg: mivel I csupán az sgrt(-1) álneve, először ezt 
töröljük: 

s alias( I-II): 
Azután helyette J-t veszünk: 
5 alias( J — sgrt(-1) ): 


Innen kezdve a komplex számok standard alakja a t bJ: 


2 JJ 2 
—1 
s 1/(13J); 
ü 1 
3 a 
5  1/(xtysxJ); 
1 
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5  evalc("); 
ű Jy 


z-ry2 2323 y2 


5  solve( x74—i, x ); 


1, —1, J, —J 


Az alias( I — I ) és az alias( J — sgrt(-1) ) parancsok egyetlen utasí- 
tásként is megadhatók: alias( I - I, J - sgrt(-1) ). Ha ezt beírjuk a 
Maple inicializáló fájlunkba, már kezdettől fogva használhatjuk a, J jelölést. 


2.7. . Gyakorlatok 


1. Tekintsük a következő Maple szekciót. 
2. 2 


5) 472; 
16 


p.d h" E 8 "u" 1 


Van az utolsó utasításnak értelme? Ha igen, mi az eredménye? Ha nincs, miért? 


2. Magyarázzuk meg a következő Maple parancsok eredménye közötti különb- 
séget: 


(a) x:y; 
(b) x/y; 
(c) xy; 


3. Ebben a gyakorlatban a Maple help rendszerének használatában való jártas- 
ságunkat fejleszthetjük. 


(a) Tételezzük föl, hogy egy egyenlőségből, például az 1 — cos? x -k sin? r- 
ből csupán a bal vagy a jobb oldalra van szükségünk. Hogy tudjuk ezt 
könnyen elérni a Maple-ben? 


(b 


ke 


Tételezzük föl, hogy ki akarjuk számolni az exponenciális függvény lánctör- 
tekkel való közelítését Meg tudja-e ezt a Maple csinálni? Ha igen, hajtsuk 
végre a számítást. 


(c) Tegyük föl, hogy az 29 --zf 31071 107? -t 87? - 22 --8 polinomot modulo 
13 akarjuk szorzattá alakítani. Meg tudja-e ezt a Maple csinálni? Ha igen, 
hajtsuk végre a szorzattá alakítást. 


(d 


eszt 


Tételezzük fel, hogy a (1,2,3,4,5) halmaz összes részhalmazát akarjuk 
meghatározni. Hogyan hajtható ez végre a Maple segítségével? 
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4. A with(numtheory) paranccsal töltsük be a numtheory csomagot. Néhány 
ismerős számelméleti függvényt is látni fogunk. A csomag rutinjai hasznosak 
lehetnek a következő kérdések megválaszolásánál. 


(a) Konstruáljuk meg 9876543210123456789 összes osztójának listáját. 


(b) Keressük meg a 9876543210123456789-hez legközelebb eső prímszámot. 


5 
(c) Mi az 55" prímtényezős fölbontása? 


(d) Fejtsük 10 mélységű lánctörtbe a természetes alapú logaritmus E alapszá- 
mát. 


5. Mi a különbség az 1/3 - 1/3 -- 1/3 és az 1.0/3.0 -H 1.0/3.0 -- 1.0/3.0 között 
Maple-ben? 
6. Keressük meg es7V163 tíz, húsz, illetve harminc jegy pontosságú lebegőpontos 
közelítését. 


7. Számítsuk ki xr7" -t kilenc tizedesjegyre. 


8. Ezt a gyakorlatot nyolc tizedesjegy pontosságú lebegőpontos számítással 
oldjuk meg. Mennyi a, 


310.0 x 320.0 x 330.0 
—/310.0 x 320.0 x V320.0 x 330.0 x V310.0 x 330.0 

kifejezés számértéke? 

9. Emlékszünk arra, hogy a 2, a a és a 5 közül melyik adja a mr elég jó 
racionális közelítését? Használjuk a Maple-t a legjobban közelítő szám meg- 
határozására. Keressük meg Tr legjobb olyan a/b alakú racionális közelítését, 
ahol a és b 1000-nél kisebb természetes számok. (Útmutatás: nézzük meg a T 
lánctört kifejtését.) 


10. Ellenőrizzük, hogy V2419549 -- 286 egyenlő-e V113 4- V173-mal. 


1 
11. Hozzuk az Ji kifejezést a -- bV3 alakra, ahol a és b racionális számok. 


V3- 


12. Legyen 9 a 9? — 0 — 1 polinom egyik gyöke, és vegyük a racinális számtest 
0-val való kiterjesztését. Tehát a -£ 58 -3- c9? alakú kifejezéseket tekintünk, ahol 
a,b,c E 0 és a kifejezésekkel való számolás során alkalmazzuk a 9? — 941 


-et a Maple segítségével a -t b8 -t- c9? alakra, ahol 


azonosságot. Hozzuk az 
a b,ce 0. 


1 
0923-1 
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13. Legyen a — V/2, 8 — 43 és y — V5. A Primfield eljárás segítségével 
számoljuk ki a O(a, 8, y) testbővítés egyik ( primitív elemét, és hasonlítsuk 
össze az eredményt a 2.5. alfejezet utolsó példájával. 


14. Mutassuk meg, hogy a Maple föl tudja írni a komplex számok e alapú hatvá- 
nyait a valós és a képzetes részek koszinuszának és szinuszának fölhasználásával. 
Számítsuk ki eri/!? értékét ebben a formában. 


15. A Maple fölhasználásával igazoljuk, hogy minden z — Tt iy alakú komplex 
számra teljesül a 
inh : sinh 
tánhíz/9j c sinh T 4-2 sinh y 
cosh zt cos y 


egyenlőség (r,y e R). 


9. 


Változók és nevek 


Egy Maple szekció rendszerint utasítások sorozatából áll, melyek végrehajtása 
során értékeket számolunk ki, majd ezeket az értékeket elnevezzük, hogy fölhasz- 
nálhassuk őket későbbi számításaink során. Ebben a fejezetben azt vizsgáljuk, 
hogy melyek az érvényes Maple nevek, hogyan lehet egy névnek értéket adni, és 
hogyan lehet egy változót újra értékteleníteni, vagyis értékkel nem rendelkezővé 
tenni. Elmondjuk azt is, hogyan tehető védetté egy változó, hogyan szüntethető 
meg a védettség, végül hogyan társíthatunk változókkal attributumokat és tu- 
lajdonságokat. Az olyan programozási nyelvekkel szemben, mint a FORTRAN, 
az Algol és a C, a Maple-ben nem szükséges a változók típusát deklarálni. A 
Maple a kifejezések típusát belső ábrázolásuk, illetve használatuk alapján hatá- 
rozza meg. Ebben a fejezetben röviden áttekintjük az alapvető adattípusokat. 
Ezenkívül leírjuk a szimbolikus kifejezések szokásos kiértékelését, nevezetesen a 
teljes kiértékelést. 


3.1.  Értékadás és értéktelenítés 


A számítógépes algebrai rendszerek tudományos számításokban való sikeres al- 
kalmazásának titka abban rejlik, hogy ezekben a rendszerekben formulákkal 
dolgozhatunk, és megoldhatunk olyan matematikai problémákat is, melyekben 
ismeretlenek és paraméterek szerepelnek. A változók használatának példájaként 
kérdezzük meg a Maple-től az általános másodfokú egyenlet megoldóképletét. 
Egyenleteket általában a Maple solve eljárásával oldhatunk meg: 


5  solve( axrx72 t bix tc — 0, x ); 
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1 -bi34 Vb2—4ac 1 -b—Vb2—4ac 
2 a 19 a 


Az a, b és c változók paraméterek, z pedig az ismeretlen, a rendszer mindegyikü- 
ket szimbólumként kezeli. A számítógépes algebrai rendszerek jellemző vonása 
a szabad vagy nem kötött változók használata. (Ezek a változók nem mutatnak 
semmilyen értékre sem a saját nevüket kivéve.) 


Másrészt a változókhoz hozzáköthetünk vagy hozzárendelhetünk valamely ér- 
téket. Az értékkel rendelkező változók (assigned variables) használata kettős: 
gyakran szükségünk van a kiszámított eredmény vagy egy bonyolult kifejezés 
megcimkézésére a későbbi hivatkozás céljából. Amikor a Maple-t programozási 
nyelvként használjuk, az algoritmusainkban szereplő adatokra nevükkel hivatko- 
zunk ahelyett, hogy közvetlenül magukat az adatokat használnánk. Ha az adat 
valamely rögzített speciális érték, akkor szimbolikus konstansnak nevezzük. A 
2.4. alfejezetben már láttuk, hogy a Maple eredendően milyen szimbolikus kons- 
tansokat ismer, valamint új konstansokat fölvételének és a meglévők törlésének 
módjait. Ha értékkel rendelkező változókra van szükségünk, a két karakter- 
ből álló ,, :—" jelet (értékadási operátor) használhatjuk az értékadó utasításban. 
Másik lehetőség az assign eljárás alkalmazása, erre még visszatérünk a fejezet 
során: 

5  polynomial :— 9rx73 - 37$rx72 t 47rx - 19; 
polynomial :— 9 1? — 37132 34477 — 19 


5 roots( polynomial ); 


Mt, 2, EZ, 11] 


5  subs( x-19/9, polynomial ); 
0 


5  polynomial, x; 
939—37224472—19, 2 
A fenti példában az első utasítással a 9rx"3 - 37r72 41 47rx - 19 polinomot 
rendeltük értékként a polinomial változóhoz. Valahányszor a polinomial vál- 


tozóval találkozik a Maple, ezt az értéket veszi. Ezt a folyamatot kiértékelésnek 
nevezzük. [gy a 


roots( polinomial ) 
utasítás azzal ekvivalens, mintha a 
roots( 9rx73 - 371x72 t 47xrx - 19 ) 


utasítást adtuk volna a Maple-nek. Az z változónak saját nevén kívül továbbra 
sincs értéke. A 


subs( x-19/9, polinomial ) 
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utasítással az x változót a 19/9 értékkel helyettesítettük a polynomial változó- 
val megcimkézett polinomban, vagyis 9rx73 - 37kx72 41 47rx - 19-ben. Az 
x maga azonban változatlan maradt, továbbra is önmagára mutat. Ugyanez 
érvényes a, polinomra is, a helyettesítés hatására a polinomial változó nem ka- 
pott új értéket. A 19/9 gyök ellenőrzését az x változónak való értékadással is 
elvégezhetjük: 

5 x :— 19/9; 


5  polynomial; 


A Maple a fenti utasítás végrehajtásánál a következő módon jár el: 


e veszi a polimomial változót, és 9kx73 - 37$rx72 41 47rx - 19-re értékeli 
ki, 


e ezután a kifejezésben szereplő minden x-et 19/9-re értékel ki, 


e végül az eredményt 0-ra egyszerűsíti, tehát elvégzi a szükséges aritmetikai 
műveleteket. 


A gyök értékadással való ellenőrzésének a helyettesítéssel szemben az a hátránya, 
hogy x most valamilyen számra mutat. Ha azt akarjuk, hogy x más értékre 
mutasson, ezt egy új értékadással érhetjük el: 


5 X :— unknown: 
5  polynomial; 


9 unknown? — 37 unknown? -k 47 unknown — 19 


Ha az unknown változóhoz például a 7 értéket rendeljük 
5 unknown :— 7; 
unknown :— 7 


akkor x unknown-ra, ez pedig 7-re értkelődik ki. 
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Vj 


Látható, hogy a Maple a kiértékeléseket a számítás pillanatnyi helyzetében a 
változókhoz rendelt értékek alapján addig végzi, amíg csak lehetséges. Ezt az 
általános szabályt nevezzük teljes kiértékelésnek: 


5  polynomial; 


1584 


Kifejezések teljes kiértékeléséről még a 3.2. alfejezetben lesz szó. 
o TA EXE s 
ös e 
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Az utolsó utasítás x-nek értékként saját nevét adja vissza. Az aposztróf ka- 
raktert használjuk arra a célra, hogy változók értékét megszüntessük. Ha egy 
kifejezést aposztrófok közé zárunk, a Maple nem alkalmazza a kiértékelési algo- 
ritmust a kifejezésre. Ebben a speciális esetben az x kiértékelése maradt el. 
Időzzünk el még egy kicsit az indexelt és a konkatenációval képzett nevek 
kiértékelésénél: 
s § sz 16 ATi] ss 25 Alil — 35 Bliúl 3 34; 


ts 1 
Ai: 2 
Ai 3 
B:i:ss4 


Látható, hogy az :— értékadó operátor baloldalán álló kifejezés egy névre ér- 
tékelődik ki. Az indexelt nevek indexe kiértékelődik, de maga az indexelt név 
már nem: a harmadik értékadásnál a bal oldalon A[f)] értéke A[(1] lesz, de ez már 
nem értékelődik ki 2-re. 


Az aposztrófokkal végzett értéktelenítés! az indexelt és a konkatenált nevekre 
nem működik: 


s A[Cil :— ?A[i)]?; tt no unassignment of ALil 
Ai — A; 
s ft Alil; but infinite recursion occurs 


Error, too many levels of recursion 


A Unix operációs rendszer esetében végtelen rekurzió föllépésekor a Maple egy 
bizonyos ponton a fönti hibaüzenettel abbahagyja a kritikus utasítás végrehaj- 
tását. Mást platformokon akár maga a Maple program is leállhat. 


Néha a Maple figyelmeztet a rekurzív névdefiníciókra is. Ha föltesszük, hogy 
x szabad változó, akkor a következő utasítás az xt1 értéket rendeli hozzá: 
2 IX S xÜEl 
Warning, recursive definition of name 
:::—2-t41 
5 it x; infinite recursion occurs 


Error, too many levels of recursion 


Az utolsó parancsban azt kértük a Maple-től, hogy értékelje ki az 


1oar34t1—5(z41)4156((z41)41)-41— --: 


kifejezést. A teljes kiértékelés miatt a Maple ismételten megpróbálja x-et kiér- 
tékelni, míg csak el nem éri a rekurziószámra előírt, korlátot. 


1 Az , unassigment? szakkifejezés magyarításaként ezt fogjuk használni. (A Fordító meg- 
jegyzése.) 
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Az indexelt és a  konkatenált nevek értéktelenítése az evain (evaluate to a 
name) eljárással érhető el: 
s A[il :— evaln( AL[i] ); Alil; $ unassignment of A[il 
Ai — Ai 
Ai 


Az evaln argumentumának kiértékelése szintén speciálisan történik: csak az 
indexet értékeli ki a Maple, és eredményként egy nevet ad vissza. Az evaln 
eljárás természetesen olyan , közönséges" változókra, mint az x, y vagy z is al- 
kalmazható, ez az értéktelenítés , bombabiztos?" módszere. 

Mivel nehéz észben tartani, hogy mely változókhoz rendeltünk értéket és me- 
lyekhez nem, a számítógép-algebrai rendszer néhány segédfüggvényt biztosít 
ilyen célra. (Lásd a 3.1. táblázatot.) 


Eljárás Eredmény 


anames az értékkel bíró (kötött) változókat mutatja meg 
unames az összes érték nélküli nevet (szabad változót) 


sorolja föl 
assigned azt vizsgálja, hogy egy változóhoz van-e (nevétől 
különböző) érték hozzárendelve 


3.1. táblázat: A nevek használatával kapcsolatos segédfüggvények 


A következő mintapélda ezen Maple eljárások használatát illusztrálja: 
5  unames(); 


Embed, identical, eguation, anyfunc, endcolon, Factors, cubic, positive, 


nonnegint, terminal, unknown, laurent, anything, Irreduc, Berlekamp, 
Sprem, Limit, setpath, Coeff , algnum, Discrim 


5  nops( ("b ); t number of unassigned names 


209 


Az unames outputjának nagy részét elhagytuk, de a néhány névből, ami látha- 
tó, valamint a nevek számából már világos, hogy az eljárás kevéssé használható, 
mivel túl részletes outputot ad. Nemcsak a fölhasználó által definiált nevek lis- 
táját, hanem a Maple által generált, de eleddig még értéket nem kapott nevek 
listáját is megkapjuk. Az alábbiakban a select paranccsal kiválasztjuk az érték 
nélküli változók közül a három karaktereseket: 


5 select( s -2 length(s)-3, í unames() ) ); 


(all, row, not, and, set, Add, Det, Gcd, Int, Lcm, One, 0uo, Rem, Sum, 
Svd, odd) 
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Az s-:lenght(s)-3-hoz hasonló anoním függvények használatára a 8.8. alfe- 
jezetben visszatérünk. Másik példánk: válasszuk ki a listából az összes olyan, 
con-tól különböző nevet, amely tartalmazza a con részsztringet. 


5  select( s -: SearchText(con,s)?0, (í unames() ) ) 
5 minus fconb; 


(constant, Ratrecon, realcons) 
Vizsgáljuk meg részletesebben az anames eljárást (kezdjünk előtte új Maple 
szekciót). 
5: restart; 
2 p: g; r :z gi5; 


5  anames(); 


Az anames eljárás azon nevek listáját adja eredményül, amelyekhez pillanat- 
nyilag nevüktől különböző érték van rendelve. Az előző példában ezek mind a 
fölhasználó által definiált változók. Ha azonban olyan neveket adunk meg, ame- 
lyekhez értékként egy bizonyos Maple típus van rendelve, akkor az output már 
a Maple által definiált és inicializált ilyen típusú neveket is tartalmazni fogja: 


5 anames( "xr" ); tt variables whose value is a product 
T 


5  anames( name ); it variables whose value are a name 
D, sysinit, integrate, mod 


5  anames( integer ); it variables with integer value 
Digits, printlevel, Order 


A példában előforduló fordított aposztrófok és adattípusok jelentését a 3.3. és 
a 3.4. alfejezetben fogjuk elmagyarázni. 


Az assigned eljárással megkaphatjuk az egyes változók státuszát: 
5 assigned( a ), assigned( r ); 
false, true 


Eddig négy kivételt láttunk a teljes kiértékelés általános szabálya alól: 
e az aposztrófok közé zárt kifejezések nem értékelődnek ki, 


e a :-— értékadó operátor baloldalán álló kifejezés csak a megfelelő névre 
értékelődik ki, továbbá 


e az evaln eljárás argumentuma és 


e az assigned eljárás argumentuma 
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szintén csak a megfelelő nevet kapja értékül. 

Ezt az alfejezetet az assign és az unassign Maple eljárások egyik lehetséges 
alkalmazásának bemutatásával zárjuk. A nevük sugallja funkcionalitásukat, egy 
ponton azonban eltérnek a korábban tanultaktól. Az 


assign( name, expression) 
utasítás hatása megegyezik a 
name :— expression 
utasításéval, azzal a kivétellel, hogy az assign eljárás első argumentuma, tel- 
jesen kiértékelődik, míg ugyanez nem teljesül az értékadó operátor baloldali 
operanduszára. Az assign eljárást érdemes alkalmazni a solve függvény ál- 


tal visszaadott egyenlőségek halmazára, ha arra van szükségünk, hogy az egyes 
változók a megoldásként kapott értéket vegyék fel: 


5 egns : ( xty-a, brx - 1/3ry — c b: 
5 vars :zí1x,yl 
5 sols :— solve( egns, vars ); 
ba— c 3cta 
ls — (y— 3 ——— , 1 — 
mihez erez gi 
5 Háj 


7, gy 


s assign( sols ); 

vesztik cBöb 21 
3cta ,ba-—c 
3b41 35-41 


Ahogy a 3.6. alfejezetben látni fogjuk, az assign parancs jól alkalmazható (sőt 
szinte nélkülözhetetlen) olyan változóknak történő értékadásnál, amelyekhez bi- 
zonyos tulajdonságokat rendeltünk. 

Az unassign eljárást fölhasználhatjuk változók egyidejű értéktelenítésére, 
vagy egy változó értéktelenítésére anélkül, hogy a hozzá rendelt tulajdonságokat 
is törölnénk. 

s readlib( unassign ): it load library function 
; ünassigni 9x?7, iyt )r XI 
ty 


Könnyen kísértésbe eshetünk, hogy ezt az eljárást az anames paranccsal kom- 
binálva megpróbáljuk az összes olyan változót törölni, ami eddig értéket kapott. 
Figyeljük meg, hogy ennek milyen drasztikus hatása lehet a Maple viselkedésére: 
5 tt compute some integral 
5, integral :-— integrate( 1/(x7241), x ); 
integral :— arctan(m) 
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: unassign( anames() ): it unassign variables 
5 integrate( 1/(x7241), x ); $ recompute the integral 


Error, (in int) type "intargs" does not exist 


A Maple hibás működésének oka az, hogy nemcsak a fölhasználó által definiált 
neveket, például az integral változót, hanem a rendszer által definiáltakat, így 
az int/type változót is értéktelenítettük. Használjuk inkább a restart utasí- 
tást a memória törlésére és a Maple újraindítására anélkül, hogy a rendszerből 
kilépnénk. 

A 3.2. táblázat az értékadás és az értéktelenítés különböző lehetőségeit sorolja föl: 


Minta A. bal oldal kiérté- A jobb oldal kiérté- 
kelése kelése 

x : y névre normális 

assign( x — y ) normális normális 

Xx :— evaln( y ) névre névre 

x :zs )y? névre egy lépésben 

assign( x - evaln(y) ) normális névre 

assign( x — 9y? ) normális egy lépésben 

unassign( x ) normális zi 


3.2. táblázat: A kiértékelés módja az értékadás és az értéktelenítés során 


3.2. Kiértékelés 


Ha a Maple valamely utasításban egy névvel találkozik, akkor általában meg- 
keresi azt az objektumot, amelyre az adott név mutat. Azt mondjuk, hogy a 
Maple kiértékeli a nevet. Ha a név egy másik névre mutat, akkor a rendszer azt 
az objektumot keresi, amelyre az újabb név mutat, és így tovább, mindaddig, 
amíg egy olyan objektumhoz nem ér, ami nem név, vagy ami már önmagára 
mutat. Az utolsó objektumot úgy használja a rendszer, mintha közvetlenül ezt 
helyettesítenénk az utasításba. Kifejezések esetében az általános eljárás tehát a 
teljes kiértékelés. Ez magyarázza a következő Maple szekció eredményeit: 


3" ra sz bi b sz 65 €:s 3; 
ússb 
Üsö 
T eler — 


5 a; $ evaluation of a 
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A teljes kiértékelés jobb megértéséhez megnézzük az értékadás hatását a bel- 
ső adatstruktúrákra. A Maple a változókat háromdimenziós adatvektorokkal 
reprezentálja. Az első komponens jelzi, hogy a vektor egy változót reprezentál, 
a második komponens a változó aktuális értékére mutat, a harmadik komponens 
pedig magának a változónak a nevét tartalmazza. Amikor egy változónak érté- 
ket adunk, csupán a hozzárendelt értékre mutató pointert állítjuk be az illető 
adatvektorban. Az előző példa a 3.1. ábrán látható belső ábrázolást eredmé- 
nyezi. Az a változót reprezentáló adatvektor második komponense a értékére 


intpos 


3.1. ábra: Az értékadások utáni belső reprezentáció 


mutat, tehát a értéke b. Hasonlóan látható, hogy b értéke c-vel egyenlő. Ezt a 
belső ábrázolást az eval eljárás segítségével ellenőrizhetjük: 


5 eval(a,1); tt value of a 


b 
5 eval(b,1); tt value of b 

c 
5 eval(c,1); it value of c 

3 


5 eval(a,2); tt two-level evaluation of a 


c 


5 eval(a,3); $ three-level evaluation of a 


3 
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Amikor a-t teljesen kiértékeljük, az a-t reprezentáló adatvektorból indulva, vé- 
gigmegyünk a pointereken addig az objektumig, amelynek típusa , pozitív egész" 
és értéke 3. Ezt úgy mondjuk, hogy , a 3-ra értékelődik ki". Ha ezután a c vál- 
tozónak valamilyen új értéket, mondjuk 5-öt adunk, akkor az a változó 5-re 
értékelődik ki. Ugyanakkor az a változó értéke továbbra is b marad. Ezt csak 
értékadással változtathatjuk meg: 


zo o G z 5t 
5 a; tt a now evaluates to 5 
13) 
5 eval(a,1); tt but the value of a remains the same 
b 
s a :— 4: 
s a, eval(a,1); 
4, 4 


A kifejezések teljes kiértékelése során az egyes változók a legutóbbi értékadással 
hozzájuk rendelt értékekkel helyettesítődnek. A következő példa ezt illusztrálja: 
2. KZT: 
5 eval(x,1), x; 


9: 
the value and evaluation of x remain unchanged 


7 


Md 
stl 


Az x :7- x utasítás azt sugallja, hogy x ezután ismét saját nevére mutat. De- 
mint azt már korábban láttuk—nem erről van szó! Ehhez az x :— evaln(x) 
vagy az x: — )x? parancsot kellett volna megadnunk. Itt az aposztrófok meg- 
akadályozzák az x teljes kiértékelését. 

Amennyiben egy nevet akarunk átadni argumentumként egy Maple eljárás- 
nak, ezt a legkönnyebben úgy érhetjük el, hogy a nevet aposztrófok közé zárjuk 
a teljes kiértékelés elkerülésére. Például a rem eljárás negyedik paraméterének, 
amely a hányadost tartalmazza, névnek kell lennie: 

5  tsuppose that guotient has been assigned some value 
5  guotient :— 0: 
5 rem( x73 t x.t 1, x72 txt 1, x, "guotient? ); 


2-2 


5: guotient; ft value has been set in previous command 


:—1 
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Ha valóban biztonságra akarunk törekedni, akkor először a változónak újra saját 
nevét kell értékül adni a variable :— evaln(variable) utasítással. 


De mi történik, ha elfelejtjük kitenni az aposztrófokat a fenti példában? 
5 guotient :— 0: 
5 rem( x73 tx 41, x72 t x 1 1, x, guotient ); 


Error, (in rem) Illegal use of a formal parameter 


Mi romlott el? Az első utasítás hatására a guotient változó a 0 értéket kapja. 
A második utasítás végrehajtásakor a Maple először kiértékeli az argumentu- 
mokat, ami a rem( x73txti, x72txt1, x, 0 ) eredményre vezet. A Maple 
hibaüzenetet ad, mivel negyedik argumentumként egy nevet várt, amihez hoz- 
zárendelheti a kiszámított hányadost. Ha a guotient változó az x-re mutat, 
akkor egy végtelen rekurzív struktúra keletkezik: 

5 guotient :— x: 

5 rem( x7"3 tx t1, x72 t x1ŰÍi, x, guotient ); 


242 


5  eval(guotient,1), eval(guotient , 2) ; 


:,:—1 


Tehát a belső ábrázolásbanazx :-— x-1értékadás került végrehajtásra, ez pedig 
hibát fog eredményezni, ha később x-re hivatkozunk. 


Más esetekben is kívánatos vagy éppenséggel szükséges lehet a kifejezések 
vagy részkifejezések teljes kiértékelésének elnyomása. Példaként számoljuk ki az 
első 5 prímszám összegét a sum eljárás segítségével: 


5 i :— 0: it assume i has been assigned some value 
s sum( ithprime(i), i-1..5 ); 


Error, (in ithprime) argument must be a positive integer 


A fenti függvényhívásban az ithprime(i) argumentum kiértékelésekor a Maple 
észreveszi, hogy hibás argumentumot kapott (természetes szám helyett az i-t), 
ezért hibaüzenetet ad. Következő próbálkozásunknál aposztrófokat alkalmazunk 
a túl korai kiértékelés elnyomására: 


a, sun( "ithprime(i)?, 1-1. .5 13 


Error, (in sum) summation variable previously assigned, 
second argument evaluates to, 0—-1..5 


Ez még mindig nem működik, de a hibaüzenet megmagyarázza a problémát. 
Azt is biztosítanunk kell tehát, hogy az összegzési index névre értékelődjön ki: 
2 -pani "ithpráimeti]?, "ireket a 


28 
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Egy jótanács: 


A sum-hoz hasonló utasításokban mindig tegyük aposztrófok közé az 
összeadandót és az összegzési indezrxet, kivéve, ha teljesen biztosak 
vagyunk benne, hogy az aposztrófok elhagyhatók. 


Aposztrófok közé zárt kifejezés kiértékelésének eredménye legjobban azzal írható 
le, hogy a kiértékelés egy idézőjelpár , lehámozását? jelenti. 


5 x : 1: tH in this example x always has the value 1 
a :xri 
2 
s )x?41; 
:t1 
S o ág zt BEKE 
231 
b. ád érdz an Údlét 
"egi 
ba 14 
"41 
16 ie 
25$1 
3 Te 
2 


3.3.  Változónevek 


A Maple-ben a változók és konstansok nevének legegyszerűbb fajtája a sztring 
(karakterlánc), vagyis olyan betűkből, számokból és alulvonásból álló sorozat, 
amelynek első karaktere betű vagy alulvonás. A sztringek belső ábrázolása az 
egész számokéhoz hasonló dinamikus adatvektor, amelyben az első szó az összes 
szükséges információt kódolja (a sztring típusjelzőt és a vektor hosszát), a to- 
vábbi szavak pedig a sztring karaktereit tartalmazzák (32 bites gépen maximum 
négy karaktert szavanként). Hasonló a sztringekre kiszabott méretkorlátozás is: 
a maximális hossz 219 — 9 karakter. (V.ö. a 2.3. alfejezettel). Néhány példa: 

5 restart: it make sure that a fresh start is made 

5 x, a long name containing ünderscores, H2O; 

x, a long name. containing. underscores, H2O 


5 unknown, UNKNOWN, UnKnOwN; 
unknown, ?, UnNKnOwN 
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Figyeljük meg, hogy a Maple megkülönbözteti a kis- és a nagybetűket, és 
UNKNOWN helyett a munkalapos interfész esetén kérdőjelet ír ki. A matemati- 
kai konstansok Maple-beli neveinek használatánál sem feledkezzünk meg erről. 
A x kostanst a Maple-ben a Pi és nem pi jelöli: 


5 evalf(l Pi, pil ); 
[3.141592654, r] 


A görög betűk megjelenítése a munkalapokon és ezek TEX formátumba kon- 
vertált változatában szintén félrevezető lehet: 


2 EL pi de 


Ím, 7] 


s latex( [ Pi, pi] ); 
Lypi ,Wpil 


Ehelyett talán a [II, 7], illetve a (NPi,Mpi] outputot várta az Olvasó: 


5 [ Zeta, zeta] ; 


Id, 6] 


A [Z, €] szerencsésebb jelölés lenne, ezt a megoldást valószínűleg a Riemann-féle 
(-függvény Maple jelölése inspirálta. 

Ügyeljünk arra is, hogy —1 komplex négyzetgyökének Maple-beli neve I, és 
nem i. A Maple által a természetes alapú logaritmus alapszámára használt 
jelölés is eléggé zavaró: nem e, nem is E, hanem exp(1). A következő példából 
látható, mennyire óvatosaknak kell lennünk: 

s  [ erx, exp(x) )] ; 


le", e") 


A munkalapos felületen csak a választott font különbözteti meg az outputot. 


s latex("); 
l[eríx), e7ifx3] 


A Maple szerint valójában az első kifejezés az e név x kitevős hatványa (tehát 
nem a természetes alapú logaritmus alapszámának hatványa), a második pedig 
az x-re alkalmazott exponenciális leképezés. A különbség rögtön föltűnő lesz, 
ha behelyettesítünk egy lebegőpontos számot, és kiértékeljük az eredményt: 


s  eval(subs( x-0.5, " )); 
le", 1.648721271] 
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and by do done elif 
else end fi for from 

if in intersect local minus 
mod not od option options 
or proc guilt read save 
stop then to union while 


3.3. táblázat: A Maple foglalt szavai 


A Maple maga is használ alulvonással kezdődő neveket (emlékezzünk vissza 
a 2.5. alfejezetben a RootOf eredményére). Vannak olyan foglalt szavak is, 
amelyeknek speciális jelentése van a Maple programozási nyelvében, s emiatt a 
rendszer közvetlenül nem fogadja el érvényes nevekként őket. A 3.3. táblázatot 
a ?reserved paranccsal kaphatjuk meg. 

Továbbá vannak olyan nevek is, amelyekhez már valamely jelentést társít a 
Maple. Ilyenek a matematikai függvények nevei (például sin, cos, exp, sart, 

..), a Maple eljárások neve (például copy, indices, lhs, rhs, type, coeff, 

degree, order, . . . ) és Maple adattípusok neve (például set, list, matrix, . . . ). 
Ezek többsége védett név a Maple-ben, tehát véletlenül nem adhatunk nekik új 
értékeket. Ha új védett neveket kívánunk fölvenni, vagy a meglévőket át akarjuk 
definiálni, használjuk a protect és az unprotect eljárásokat. 

A következő példában az unames beépített eljárást terjesztjük ki oly módon, 
hogy outputja nevek rendezett listája legyen: 


unprotect (unames) : 

unames :— subs( old unameszeval(unames) , 

procO sort( [old unamesO] ) end ): 

protect (unames) : 

whattype( unames() ); $ check whether it is a list 


list 


VVVYVV 


Az indexelt nevek védetté tétele egy kicsit speciálisan történik. Amikor egy 
indexelt névnek értéket adunk, egy táblát hozunk létre. A tábla neve megegyezik 
az illető névvel. (Lásd a 12.5. alfejezetet.) Az értékadások megelőzésére tehát 
az indexelt név helyett ezt kell védetté tenni: 

5  protect(A): Al[1] :— 2; 


Error, 
attempting to assign to array/table "A" which is protected 


A környezeti változók alkotják a nevek harmadik olyan csoportját, amelyekhez 
nem rendelhetünk tetszőleges értéket. A ?environment parancs a beépített 
környezeti változók következő listáját adja: 


Digits, Normalizer, Testzero, mod, printlevel, ", "9, """ 
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A printlevel környezeti változóval például a számolás közben a képernyőn 
megjelenő információk szabályozását és testreszabását végezhetjük el. Default 
értéke 1, de nem tehetjük fele olyan bőbeszédűvé a rendszert egy ilyen értéka- 
dással: 


5 printlevel :— 1/2; 
Error, printlevel must be a word size integer 


A Maple környezeti változói a MuPAD, a Reduce vagy a Lisp rendszerekben 
,fluid változókként" ismertekkel analóg módon viselkednek: ezek a változók glo- 
bálisan elérhetők eljárásokon belül, és az eljárás végrehajtása után automati- 
kusan fölveszik korábbi értéküket. Egy példával megvilágítva: olyan eljárást 
definiálunk, amely 30 jegy pontossággal végzi el a numerikus kiértékeléseket: 

5 Digits; $ the current value 


10 


evalf30 :- proc(expr) 

Digits :— 30; § Digits temporarily set to 30 

evalf( expr ) 

end: 

evalf30( Pi ); $ Pi in 30 digits 
3.14159265358979323846264338328 


5 Digits; tt Digits is bound to old value 
10 


A Maple némely környezeti változójának neve . Env-vel kezdődik. Ilyen példá- 
ul a solve eredményében az algebrai számok és függvények jelölésére szolgáló 
. EnvExplicit vagy a signum(0) értékét megadó  EnvsignumO. Definiálhatunk 
saját környezeti változókat, is, ehhez csupán . Env-vel kezdődő neveket kell vá- 
lasztanunk. Ügyeljünk arra, hogy a Maple is több helyen használ alulvonással 
kezdődő neveket. Egy jótanács: 


VVYVYVY 


Ha nem föltétlenül szükséges, kerüljük az alulvonással kezdődő neve- 
ket! 


Különben könnyen zavarba hozhatnak az alábbihoz hasonló Maple hibaüzenetek: 


5, Z:5 sgrt(2): 
5 Rootüf(x72-x,x); 


Error, (in Root0Of) expression independent of, 27(1/2) 


Ha az olvashatóság érdekében a neveket szóközökkel kívánjuk tagolni, vagy 
speciális karaktereket (pontot, kettőspontot, ,,/" jelet) akarunk használni, az 
egész nevet fordított aposztrófok (más néven fordított idézőjelek) közé kell zárni. 
Ezek a jelek csupán a nevek határait mutatják, ők maguk nem részei a nevek- 
nek. A sztringek megjelenítésekor a rendszer nem is mutatja őket. Két egymás 
után előforduló fordított aposztróf magát a fordított aposztróf karaktert jelöli. 
Néhány további példát mutatunk érvényes Maple nevekre: 
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5 "exercise 1", "/usr/local/lib/maple/lib/C.m" ; 
exercise 1, / usr /local/tib/ maple/tib/ C.m 
s  "Answer:"; tt the colon is part of the name 
AÁnswer : 


5 o"; tt the null string or empty name 


5. §t"t/usr/local/lib/maple/lib/C.m""" ; 
"/ usr / local / lib / maple/lib/ C.m" 
A fordított aposztrófok közé zárt Maple neveket nem úgy kell elképzelnünk, 


mint a hagyományos programozási nyelvek, például a FORTRAN sztringjeit. A 
következő példa ezt mutatja: 


5  miscellanea :— "apparent text"; 
miscellanea :— apparent text 


5 apparent text :— cos(Pi); 
apparent text : —1 


5 miscellanea, "miscellanea"; 
—1, —1 
Jól látható, hogy a fordított aposztrófoknak nincs hatása. Alkalmanként meg- 


lehetősen furcsa dolgok történhetnek ezekkel az aposztrófokkal: 
5 "Here starts a name which is 


Warning, string contains newline character. Close strings 
with " guote. 


5  concatenated" :- 0; 


Here starts a name which isN 
concatenated :— 0 


Ha beírunk egy fordított idézőjelet, de a további inputot elfelejtjük egy újabb 
fordított aposztróffal lezárni, úgy tűnik, mintha a Maple egyáltalán nem volna 
hajlandó inputot elfogadni. Ebből a csapdából úgy mászhatunk ki, ha követjük a, 
Maple tanácsait: gépeljünk be egy fordított idézőjelet, utána egy pontosvesszőt, 
és a rendszer újra helyesen fog dolgozni. 

Sokszor — különösen ha a Maple-t programozási nyelvként használjuk — jól jön 
a nevek konkatenációjának lehetősége. A következőkben néhány példát adunk 
a cat eljárás és a ,, .. konkatenációs operátor használatára. 

5  libname, cat(libname, "/C.m") ; 


/ usr / local/ maple/ update, / usr /local/ maple/ lib, 
/ usr / local/ maple/ update/ usr / local / maple/tib/ C.m 


206, "Zúsr/locaizlíiozmaáplezlib" s. SZT o. S 
/ usr / local /tib/ maple/ lib / C.m 


regetlec 
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sült, 6050 4ES ér E 
XY, XI 


5 X.(GY,1); 
XY, XI 


5. ix (LBJ 
X1, X2, X3, X4, X5, X6, X7, X8 


a 86 JAKE I sz AC egg 4 
Xi. X2,.X3, X.£.5 YI, Y2 Y85 YI 


5. isi Kelso dX 
X4, iX 


Az utolsó példa azt mutatja, hogy ha a, konkatenáció műveletét használjuk, 
akkor az első név nem értékelődik ki. A tervezők célja nyilvánvalóan az volt, 
hogy az x.1 például mindig x1-re értékelődjön ki, függetlenül attól, hogy az x- 
hez rendeltünk-e valamilyen értéket. Néhány esetben ezért használtunk a, fönti 
példában üres nevet a konkatenáció művelet első argumentumaként. 


Ne keverjük össze a különböző idézőjelek használatát a Maple-ben! Hatásukat 
a 3.4. táblázatban foglaljuk össze. 


Idézőjel  Alkalmazásának célja 


speciális karaktereket tartalmazó név jelzése 

78 kiértékelés elnyomása 

81 hivatkozás az előzőleg kiértékelt kifejezésre 

1981 hivatkozás az utolsó előtt kiértékelt kifejezésre 

J0Mton hivatkozás a hárommal korábban kiértékelt kifejezésre 


3.4. táblázat: Különféle idézőjelek 


3.4. Alapvető adattípusok 


Az adatok lehetséges értékeit osztályokra, úgynevezett adattípusokra bontjuk. 
Az adattípus többek között azt rögzíti, hogy az adatok milyen értékeket vehet- 
nek föl, vagy hogy milyen műveleteket végezhetünk rajtuk. A szokásos elemi 
adattípusok, például az integer (egész szám), floating point number (lebegőpon- 
tos szám) és a, string (karakterlánc) mind megtalálhatók a Maple-ben, de ezeken 
kívül még sok más adattípus is létezik. A Maple-ben az adatok alaptípusát a 
whattype eljárással kérdezhetjük le. 
5 whattype( 5.0 ); 


float 
s  whattype( "an example of a long name" ); 
string 
. whattype( í 1, 2, 31); 
set 


5 whattype( 1, 2, 3 ); 
exprseg 
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Adat Adattípus Példa 


Számok és sztringek 


egész integer Í 

tört fraction HG 
lebegőpontos szám float 033338 
alfanumerikus szöveg string xvalue 


Aritmetikai kifejezések 


összeg St Kt yi 
szorzat vas x ky 
hatvány 76 vagy "krt x "ő y 


Relációs kifejezések 


egyenlet "-t  eguation xt1 — 14tx 
egyenlőtlenség test Pi OC pi 
kisebb reláció c 2 c 3 


kisebb-egyenlő reláció "ezt E cz Pi 
Logikai kifejezések 

és-kifejezés "and" P and d 
vagy-kifejezés 
negáció 


Összetett kifejezések 


kifejezés-sorozat exprseg a,b,c 

halmaz set f(a,b,cb 

lista list la: bó] 

tábla table tablela,b,c] 

indexelt név indexed XI11 

függvényhívás function TÖri, tét É 
definiálatlan név 

Egyéb adatok 

kiértékeletlen konkate- "." a.(1..n), itt n-nek 

náció nincs értéke 

tartomány ..", range 1 kesztet s 

általánosított hatvány- series x-! - gamma 4 0(x) 

sor 

eljárásdefiníció procedure proc(x) x73 end 

kiértékeletlen kifejezés — uneval ús B údú 


3.5. táblázat: Gyakori felületi adattípusok 


A whattype eredményül az adatvektor fejrészének leírását adja. Azokat az 
adattípusokat, melyekhez elegendő az adatvektor fejrészét ismerni, felületi adat- 
típusoknak nevezzük. A 3.5. táblázatban felsoroljuk a Maple leggyakoribb fe- 
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lületi adattípusait. A ?surface parancs segítségével megkaphatjuk ezek teljes 
listáját is. 
A Maple további három eszközt kínál a típusok tesztelésére, nevezetesen a 
type, a hastype és a typematch eljárásokat: 
b. typel x ti. t 9z 


true 


s  hastype( x §t 1, "4" ); 


true 


5 typematch( x 4 1, (a::string) £t (b::integer) ); 


true 


x,1 


5  hastype( x t 1/2 $£ y, "fraction? ); 
true 


5 hastype( x t 2 rt y, "fraction? ); 
false 


Ez a három típustesztelő függvény nemcsak a felületi adattípusokat teszteli, 
hanem kifejezések általánosabb típusait is vizsgálja. Bejárják a kifejezéshez 
rendelt fát, és az úgynevezett skatulyázott adattípusokat (nested data types) 
is tesztelik. Használhatók még strukturált adattípusok vizsgálatára is. Ezek 
olyan nevektől különböző kifejezések, amelyek adattípusokként interpretálhatók. 
Néhány értelmes skatulyázott és strukturált adattípus: 


s type( x72 t x 4 1, polynom ); 


true 


5 type( ( x72 4 x 4 1, x72 - x b, set(polynom) ); 


true 


5 type( x72 t x 4 Pi, polynom(integer,x) ); 
false 


5 type( x72 t x 1 1, "guadratic?( x ) ); 


true 
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Az utolsó eljáráshívás második argumentumában az aposztrófokat azért hasz- 
náltuk, hogy elnyomjuk az argumentum kiértékelését, ami gondot okozna abban 
a nem túl valószínű esetben, ha a guadratic névhez már valamilyen értéket 
rendeltünk volna. Célszerű megszokni, hogy a type második argumentumát 
mindig aposztrófok közé tesszük. Végül is nem minden, a Maple által használt 
belső név védett. Strukturált típusok esetén ez a megoldás már kényelmetlenné 
válhat. 


Parancs A tesztelt típus 

whattype felületi adattípus 

type skatulyázott vagy strukturált adattípus 
hastype bizonyos típusú részkifejezés(ek) létezése 


typematch strukturált típus tesztelése és összehasonlítása 


3.6. táblázat: Típusok tesztelése 


A 3.6. táblázatban összefoglaltuk, hogyan lehet típusokat tesztelni a Maple-ben. 
A typematch a legerősebb parancs: ha egy strukturált típusnak megfelelő 
egyezéseket talál, akkor az összes mintaváltozóhoz a sikeres mintaillesztésnek 
megfelelő értéket rendel. Például 


5  typematch( exp(x), a::exp(b::name) ); 
true 


35. ax bz 


Figyeljük meg a dupla kettőspont (::) használatát a typematch parancs máso- 
dik részében. Ez nem két utasítás-elválasztó, hanem egy olyan operátor, amely 
egy szimbólumot egy adattípussal párosít. A 3.7. táblázatban összefoglaljuk 
a nevek, valamint a kettőspontot, pontosvesszőt és egyenlőségjelet tartalmazó 
operátorok használatát. 


Operátor Alkalmazása 


utasítás-elválasztó 
utasítás-elválasztó 

z egyenlet vagy egyenlőség reláció 

: típus vagy tulajdonság hozzárendelése 
értékadás 


3.7. táblázat: A kettőspont, a pontosvessző és az egyenlőségjel kombinációi 


A hagyományos programozási nyelvekben, például a FORTRAN-ban a válto- 
zók típusát deklarálnunk kell, és ez nem változtatható meg a programon belül. 
Egészen más a helyzet a Maple-ben: itt a változóknak nincs rögzített típusa. 
Máskülönben az interaktív munkát túlzottan megterhelővé tennék a típusdekla- 
rációk, melyek majdnem mindig fölöslegesek, hiszen a matematikai kontextusból 
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világos, hogy milyen értékeket vehetnek föl a változók. A típuskonverziók is ne- 
hézkessé válnának. Néhány illusztratív példa: 


5 number :— 1: whattype( number ); 


integer 


0.75: whattype( number ); 
float 


5 number : 


5: number :— convert( number, fÍfraction ); 


number :— 3 


4 
s  convert( number, "binary? ); 
Error, (in convert/binary) invalid argument for convert 


Az utolsó utasítás azt szemlélteti, hogy nem minden típusváltás megengedett; a 
konverziónak a, rendszer számára értelmesnek kell lennie. Például a Éj racionális 
számot fölírhatjuk a következő lánctörtként (continued fraction): 


5  convert( number, ?confrac? ); 
[0, 1, 3] 


Az aposztrófok a convert eljárás második argumentuma, körül ismét azt a célt 
szolgálják, hogy elkerüljük a változó kiértékelését. A confrac nem védett név 
a Maple-ben! A type( name, protected ) paranccsal tudhatjuk meg, hogy a 
name név védett-e. 


A számelméleti célokat szolgáló numtheory csomag numtheory[cfírac] eljá- 
rása olvashatóbb kétdimenziós outputot ad: 


5 tt? load the function cfrac from the numtheory package 
5 with( numtheory, cfírac ): 
5  círac( number ); 

1 


1 
des 
7 3 
A Maple a p-adikus számokkal való számoláshoz tartalmaz egy padic nevű 
csomagot is. Írjuk föl például a. Fi törtet triadikus szám alakjában: 


5 with( padic ): it load the p-adic number jackage 
s  evalp( number, 3 ); 


3-4232 73-23" 123" 4235 4 0(3/9) 
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3.5.  Attributumok 


A Maple konstans méretű adatstruktúrái (ilyenek a name, list, set, procedure, 
function és a float) egy attributumnak nevezett extra információs mezővel is ren- 
delkezhetnek. Attributumként bármely érvényes Maple kifejezés megengedett. 
Az attributumokat a setattribute és az attributes függvényeken kívül egyet- 
len más Maple függvény sem látja, és nem is képes módosítani. A setattribute 
eljárás attributummal rendelkező adatstruktúrát hoz létre. az attributes egy 
struktúra attributumait adja vissza. A Maple kernel fölismer bizonyos nevekhez 
kapcsolódó attributumokat, például a protected-et. Néhány példa: 


5  setattribute( A, "capital A" ); 


A 
5  attributes(A); 
capital A 
5 attributes( diff ); 
protected 


5  setattribute( differentiate, protected ); 
differentiate 


,  differentiate :— diffí; 
Error, attempting to assign to "differentiate" which is protected 


5 § :— setattribute( 12,3,5,7,11), "first 5 primes" ); 
S s f2 d 0 4, 11) 


s attributes(S ); 

first 5 primes 
5 S :— setattribute( algebraicset( 
s ( xryrz72 - 4, x72 ty72 41272 - 1, x-y-1J, 
5 (xx, y, z 1] ), dimension — 0, groebnerbasis - 
3: [8g-y-ri, 24y2ta 2 vagy, 8 tz28gd 


Ma ész algebraicset([z y 2? —4, 2? ty t22—1,2—y—1], [z, v, z]) 


v 


attributes( S ); 
dimension — 0, groebnerbasis — [1—y— 1, 2y? 42? 42y, 8-4 21] 
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3.6. Tulajdonságok 


Az assume és az additionally eljárásokkal rendelhetünk változókhoz tulaj- 
donságokat. A Maple megpróbálja számolás közben fölhasználni ezeket a tulaj- 
donságokat, és minden tőle telhetőt megtesz, hogy az adott tulajdonságokból 
kiindulva levezesse a kifejezések tulajdonságait. Most csak néhány bevezető pél- 
dát mutatunk, és a megjelenítéssel, valamint az értékadással kapcsolatos bizo- 
nyos technikai kérdéseket tisztázunk. A részletesebb tárgyalásra a 13. fejezetben 
kerül sor. 


s. (-1)7(mr2tn); t no assumptions 


(—nérésn) 


5 assume( m, odd ): 
assume( n, odd ): 
s. [ (-1)7m, (-19)7(mtn), cos(mrPi)]; 


v 


—gye, (—gjéeten, —1] 
with assumptions onm andn 


s,  simplify("); 
[—1, 1, —1] 


Látható, hogy a Maple teljesen magától , megérti", hogy a r páratlan egész számú 
többszörösének koszinusza 1. A simplify végrehajtásakor azt is fölhasználja, 
hogy páratlan szám négyzete ismét páratlan, valamint két páratlan egész szám 
összege páros. Mindebből helyes következtetéseket von le a —1 hatványokra 
vonatkozóan. 


A változókkal kapcsolatos tulajdonságok az about eljárással vizsgálhatók: 
s about( m ); 


Originally m, renamed m": 
is assumed to be: LinearProp(2, integer , 1) 


A rendszer tehát egy tilde (7) jel hozzáfűzésével átnevezi azokat a változókat, 
amelyekhez valamely tulajdonságot rendeltünk. Nézzük meg ezt az m változóra, 
és az additionally eljárással adjunk neki még egy tulajdonságot: 


5. fűs 
né 
5  additionally( m20 ): 
5 about( m ); 
Originally m, renamed m": is assumed to be: 


AndProp(LinearProp(2 , integer , 1) , 
RealRange(Open(0) , infinity) ) 
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Az m 5 0 tulajdonság megadása tehát az ,m eleme a nyitott (0, 00) interval- 
lumnak" tulajdonság hozzáadását eredményezte. De változott-e maga a név? 
Próbáljuk ki: 

5. ém ez 

m —mi 

Micsoda meglepetés! A titok nyitja az, hogy a Maple minden egyes föltételhez 
egy új lokális nevet generál, ami az értékadásoknál is bizonyos következmények- 
kel jár. 

5 m :— 3: 

5 about( m ); 


38 
All numeric values are properties as well as objects. 


Their location in the property lattice is obvious, 
in this case integer. 


5 m :— odd number: 
5 about(m ); 


odd number : 
nothing known about this object 


Ha tehát értéket adunk egy változónak, minden hozzá rendelt tulajdonság tör- 
lődik. 
5  assume( n, integer ); 


5 expr :— cos(nxPi); 
expr :— (—1)" 
s n :z 2: 
5  expr; 
Go 


Vajon mi történt? Az n változónak 2-t adtunk értékül, ez tényleg egy egész szám. 
Az értékadás hatására törlődnek az n-hez korábban rendelt tulajdonságok. Az 
expr kifejezésben azonban még mindig az n-ra átnevezett régi változóra hivat- 
kozunk. Ennek elkerülésére az egyik megoldás az assign használata, mivel ez 
kiértékeli argumentumait. Szükség esetén az eval-t használhatjuk a kiértékelés 
mélységének vezérlésére. Egy példa: 

5  assume( N, integer ); 


5 expr :— N; 
exmpr : NT 
s assign( N-— 2 ): 
5  expr; 
2 


5 assign( eval(N,1), 3 ); 
5  expr; 
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A fejezet végén három olyan trükköt ismertetünk, amelyekkel az outputból el- 
tüntethető a hozzárendelt tulajdonságokkal rendelkező változók nevének végén 
álló tilde jel. Az első trükk az alias eljárást használja: 

5  assume( p?o0 ): 


2 Pp; 

pg 
s alias( !9p? — p ): 
2 Ps 

D 


5 about(p ); 


Originally p, renamed p : 
is assumed to be: RealRange(Open(0) , infinity) 
Ez csak , optikai csalódás". A latex parancs például továbbra is kiírja, a, tildét. 
5 latex(p); 


inbox fíltt pr 


A Maple V Release 4 showassumed nevű interfész változója jobb módszert kínál 
a tildéktől való megszabadulásra. Értéke 0, 1 vagy 2 lehet. A 0 beállítás letiltja 
a, föltételekkel bíró változók jelölését. Az alapföltételezés szerinti 1 értéknél a 
nevek végén az eddig látott tilde jelenik meg. Végül 2-t értékül adva a kife- 
jezések végén jelenik meg azon változók listája, amelyekhez valamely föltételt 
kapcsoltunk: 

5  interface( shovassumed — 0 ); 

5 assume( g20 ); 

7 "úg 


5 about( g ); 


Originally g, renamed d": 
is assumed to be: RealRange(Open(0) , infinity) 


5 latex( ga); 


mbox (fitt "g7"hb 


5  interface( shovassumed — 2 ); 
5 assume( r:0 ); 
2 Hg 


with assumptions onr 


s about(r); 


Originally r, renamed r7: 
is assumed to be: RealRange(Open(0) , infinity) 


90 3. Változók és nevek 


5 latex(r); 


mbox 4(Att "r"")i 


Még jobb módszer a tildéktől való megszabadulásra a Maple fölülbírálása. Elő- 
ször nézzük meg a tildék megjelenítését végző kódot: 


) readlib( assume ): $ load assume from library 
, interface( verboseproc — 3 ): tt make Maple communicative 
, print( "property/Rename" ); it print responsible routine 


proc(nm) 
local nam; 
global  AName; 
option "Copyright (c) 1992 Gaston Gonnet, N 
Wissenschaftliches Rechnen, ETH Zurich. All rights reserved. "; 
if assigned( property/OrigName "I Inm]) then 
nam :- eval("property/OrigName " [nm] , 1) 
else nam :— nm 
fá; 
subs (?DUMMY2? - "".nam. "7", 
proc(nam) 
local DUMMY2; 
global "property/OrigName " ; 
"property/OrigName " [DUMMY2] :— nam; nam :- DUMMY2 
end ); 
nm - "(nam) 
end 


Most már könnyű a kódot úgy átalakítani, hogy a tilde ne jelenjen meg: 


5:  "property/Rename" :- proc(nm) 

pl local nam; 

p global  AName; 

5 if assigned( property/OrigName " [nm]) then 
5 nam :- eval( "property/OrigName " [nm] , 1) 
2 else nam :— nm 

pó ÉL; 

5 subs ( ? DUMMY2? — "". nam, 

Ha proc(nam) 

pa local DUMMY2; 

2 global "property/OrigName " ; 

2 "property/OrigName " [DUMMY2] :- nam; 

pa nam :- DUMMY2 

pi end 

5 ps 

3 nm - "(nam) 

,; end: 

3 


assume( s20 ): s; $ no tilde! 


S 


, about( s ); 
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Originally s, renamed s": 
is assumed to be: RealRange(Open(0) , infinity) 
5 latex( s); 


Mnbox ((Att "s7"hb 


3.7. . Gyakorlatok 


1. Mi a különbség az a és a b változó használatában az alábbi két Maple pa- 
rancsban? 


s a :z )a9; b :— !b?; a :- b; b :-— 10; 
és 
, a :— Ja"; b :— "b"; b :-— 10; a :— b; 


Kiegészíthetnénk-e az alábbi parancssort egy további értékadással úgy, hogy 
annak a végső hatása megegyezzen a legelső utasítássorozattal? 


) a :z Ja"; b :z "b"; b :— 10; 


2. Részletesen magyarázzuk el, hogy mi történik, ha végrehajtjuk a következő 
utasítássorozatot. 


VAVNYYY 
"1 a illa a SZ: ls 0) 
. 1 ri 
m 
o 


3. Magyarázzuk meg a következő Maple parancsok különböző eredményét. 
XXVI, X.y5, ÉS XV; . 


4. Írjuk le részletesen a következő két Maple szekció közötti különbséget (például! 
a belső adatstruktúrák fölrajzolásával). 


2 a :— b ; 
ai e vágást e ÉS 
2 a; 
: b :- 4 ; 
sea 


és 


92 3. Változók és nevek 


5.b. 87 8 
)a:-b; 
5 a; 
5, b: 4; 
5 a; 


5. Próbáljuk megjósolni a következő utasítások eredményét, és ellenőrizzük 
válaszunkat a Maple segítségével. 


X1. 5.5; j 554 
X.j; 

vXagd e 

tép SZE ke 

TAEJ 


a EE ők dt. B d 


6. Tételezzük föl, hogy vi, v2 és v3 értékkel rendelkezik. Miért nem lehet 
értékteleníteni ezeket a változókat a következő do-ciklussal? 


, fori to 3 do v.i :— ?v.i? od: 


Keressünk két másmilyen ciklust, amelyek a kívánt megoldást adják. 


7. Magyarázzuk meg, hogy miért hibásak a következő parancsok. 


2? gcd( x72 - 1, x -1 , x ); 
ll. s? 


8. Hajtsuk végre a következő parancsokat, és jósoljuk meg eredményűket, majd 
vessük össze a rendszer válaszaival. 


i :— 3: x:5- 4: 

sum( xri, i— 1..5 
sum( xi, ?i? 5 1.. 
sum( "xi?, ?i) : 
sum( "x"7Ti, ?i? z 
sum( x7?i?, 
sum( ?x?7"ir", 
sum( "xri", Ji)? s 
"sum( xi, i s 1.. 


4 
I 
9 ERIEBE H 


9. Az at b- c kifejezést hozzuk fokozatosan az a x b x c alakra, ezt pedig az 
[a, b, c] formára. 


10. A Maple segítségével határozzuk meg 4/2-nek, e — 1-nek és az aranymetszés 
1-4 V5 
2 


arányának lánctört kifejtését. 
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Ismerkedés a Maple rendszerrel 


Ez a fejezet részletesen ismerteti, hogy a Maple hogyan kezeli az input és az 
output műveleteket, hogyan alakíthatjuk át a rendszert saját ízlésünknek meg- 
felelően (a prompt jel és a nyomtatási szélesség beállítása, címkék használata 
stb. ), hogyan szerkeszthetjük az input adatokat, hogyan olvashatunk és írha- 
tunk fájlokat, hogyan nyerhetünk több információt a program által fölhasznált 
számítógépes erőforrásokról, hogyan követhetjük nyomon számításainkat, va- 
lamint hogyan kaphatunk információkat a kiválasztott technikákról és algorit- 
musokról. A formázott I/O és a kódgenerálás a Maple és más programozási 
vagy szövegformázó nyelvek kapcsolatát példázza. Ezen felül megmagyarázzuk 
a Maple könyvtár felépítését (standard könyvtár, vegyes könyvtár, csomagok és 
az osztott könyvtár). 

A fejezetben tárgyalt témák némelyike függ a fölhasználói felülettől és/vagy az 
operációs rendszertől. Föltételezzük, hogy az Olvasó Unix-kompatibilis gépen 
a munkalapos fölhasználói felülettel dolgozik. Alkalmanként arra is kitérünk, 
mindez hogyan működik karakteres fölhasználói felületen vagy nem-Unix plat- 
formokon. 


4.1. Input és output 


Egy begépelt parancsra a Maple különféle módon reagálhat: 


e A rendszer értelmezi a parancsot, és a következő válaszok valamelyikét 
adja: 


— vagy néhány soros választ kapunk, amelyet egy új prompt jel követ, 
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— vagy azonnal egy prompt jelet kapunk, jelezve, hogy a Maple egy 
újabb parancsra vár. 


Az első esetben az input sort pontosvesszővel zártuk le, a második reakció 
akkor fordulhat elő, ha kettőspontot használtunk. A kettőspont haszná- 
lata esetén a Maple a számítást , csöndben?" végzi el. A fejezet további 
részében majd néhány kivételt is felsorolunk ez alól az általános szabály 
alól. 


Amennyiben az utasításunkat még nem fejeztük be, például elfelejtettük 
kitenni a parancsokat elválasztó pontosvesszőt vagy a kettőspontot, akkor 
a Maple ismét csak nem válaszol, hanem egy új prompt jelet ad. Ekkor 
még mindig befejezhetjük az utasításunkat: 


5 Digits :— 25: evalf( 
5  log(cos(Pi/12)) ) 
ő 


—.03466823209753695510470884 


Ha, a Maple nem érti az általunk beírt utasítást, akkor szintaktikus hi- 
baüzenetet (, Syntax error") kapunk. A karakteres interfész esetében a 
Maple a 7 (,caret") szimbólummal jelzi azt a helyet, ahol a szintaktikus 
hibát fölfedezte. Munkalapok esetén ehelyett villogó kurzor jelenik meg az 
adott helyen. Ebben az esetben csak azt tehetjük, hogy kijavítjuk a hibás 
sort, és újra megadjuk az utasítást az általunk helyesnek vélt formában: 


2 xk 
s. 6k3s 


Syntax error, "x" unexpected 


5 xii 
e. LA 

23 
Ha a munkalapos fölhasználói felületet használjuk, az input korrigálásához 
a kurzort bárhova állíthatjuk (legtöbb esetben azért, hogy az elfelejtett 
zárójeleket kitegyük, vagy hogy beszúrjunk egy s-ot vagy más műveleti 
jeleket stb. ), és újra végrehajtathatjuk a parancsot. Amennyiben a he- 
lyettesítéses mód (, replace mode") opció van bekapcsolva, az újra generált 
output helyettesíti az előzőt. A karakteres interfész egy beépített sorszer- 
kesztőt (line editor") tartalmaz, amely az utoljára megadott száz input 
sor szerkesztését engedi meg. 


Bár az utasításunk szintaktikailag helyes, a Maple rendszer mégis megta- 
gadja annak végrehajtását: 
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5 read a non existing file; 


Error, unable to read faiónontexistingu.file" 


5 123456789 7 987654321; 


Error, object too large 

Egy hibaüzenet után a rendszer általában kész az új input fogadására. 
Méginkább igaz ez, ha a hibajelzés után egy üres utasítást írunk be egy 
önmagában álló pontosvessző formájában. Más a helyzet, hogyha például 
egy bal idézőjellel kezdődő nevet elfelejtettünk lezárni egy újabb bal idé- 
zőjellel. Ebben az esetben előbb be kell zárnunk a nevet bal idézőjellel, s 
csak ezután várja majd a Maple az új parancsot: 


5: "This is a long name; 


s 2-3; €0/! 
5 that contains funny characters"; 


This is a long name;) 
243; AZN 
that contains funny characters 
A Maple outputban a , Y karakter a folytatósorokat jelzi. 


A tt ( hashmark") szimbólum használatával megjegyzés sort adtunk a rend- 
szernek. A Maple nem viszhangozza a itt utáni szöveget: 


5 a :z 2 ta :— two ; 
és 8 


Bár megváltoztathatók a Maple által éppen végrehajtandó számítások bi- 
zonyos föltételei, a rendszer sokszor nem veszi figyelembe ezeket, a változ- 
tatásokat, hanem csupán egy előzőleg kapott eredményt vesz elő valamely 
belső táblázatából. Erre egy példa: 


5 egns :— ( seg( x[il72— xlil, i-1..7 ) b; 


egns :— ( 
ú 2 dozases Tt szzió SZAR 0 éz OAB, 
ti —T1,12 — 32, 13 — 313, 14 — 24,15 — T5, 16 — 26, 17 — 27) 


s nops( ( isolve(egns) ) ); 
100 


Valójában 27 — 128 egész megoldás létezik. A MaxSols változó vezérli a 
visszaadott megoldások maximális számát. Mégis, ha ezen változó érté- 
két megnöveljük, és újra meghívjuk az isolve függvényt, a Maple csupán 
előveszi az előző eredményt, és ugyanúgy 100-at ad vissza. 
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5 MaxSols :— 500: 
5 nops( ( isolve(egns) 3 ); 


100 


A helyes válaszhoz először a forget függvénnyel rá kell venni a rendszert, 
hogy felejtse el az előző eredményt: 


5 readlib( forget ): it load library function 
: forget( isolve ): ti forget previous results of isolve 
5  nops( 1 isolve(egns) ) ); it all solutions found 


128 


A Maple reakciója tehát függ attól, hogy milyen módon fejeztük be paran- 
csunkat, illetve hogy az aktuális szekcióban eddig mi történt. Ennél azonban 
több befolyást is gyakorolhatunk a keletkező outputra. Először is létezik egy 
printlevel nevű változó, amelynek az alapértelmezése 1. Ha ezt a változót 
negatívra, állítjuk, akkor semmiféle eredményt nem ír ki a rendszer (függetlenül 
attól, hogy a parancsot pontosvesszővel vagy kettősponttal zártuk le). Más- 
részt viszont minél nagyobb pozitív egész értéket adunk ennek a változónak, 
a Maple rendszer többet árul el arról, hogy min is dolgozik éppen. A 2 és 4 
közé eső értékek azt a célt szolgálják, hogy magyarázó megjegyzéseket kapjunk 
a kiválasztott algoritmusról, illetve információkat a paraméterekről, lokális vál- 
tozókról, vagy futási idő alatti (,run time") hiba előfordulása esetén az éppen 
végrehajtott utasításról. 


Minél magasabb értéket adunk a printlevel változónak, annál több informá- 
ciót kapunk. Ha egy Maple program tesztelését (, debug") végezzük, egyáltalán 
nem szokatlanok a, 100 és 1000 közti nagy értékek sem. (Bár hasonló célokra 
használhatjuk a rendszer beépített debuggerét is, lásd ?debugger.) 

Ha csak arra vagyunk kíváncsiak, hogy milyen technikák vagy algoritmu- 
sok kerülnek végrehajtásra, akkor a userinfo opcióit használhatjuk, ezeket az 
infolevel[function]:— level vagy az infolevel[all]:— level utasítással állít- 
hatjuk be. A 4.1. táblázat tartalmazza az egyes szinteken a rendszer által a 
fölhasználónak nyújtott információkat: 


Szint Eredmény 


d minden szükséges információ 

da általános információk, beleértve a fölhasznált 
technikákat és algoritmusokat 

4,5 részletes információk a probléma megoldásáról 


4.1. táblázat: A userinfo lehetőségei 


Két példát mutatunk a printlevel és az infolevel használatára: 


5 printlevel :— 2: it set printlevel a higher value 
soálák hess CZ al zEa ao 5 


Error, (in 1hs) invalid arguments 
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executing statement: ERROR("invalid arguments") 


1lhs called with arguments: xty 


Ha a printlevel-t 2-re állítjuk, a Maple nem lesz az átlagosnál sokkal bőbeszé- 
dűbb, kivéve, ha valami hiba következik be; ekkor arról is informál bennünket, 
hogy mi volt a meghívott függvény, mik voltak az argumentumok, és mennyi 
volt a lokális változók értéke. Ezek az adatok némileg rávilágíthatnak arra, hogy 
miért nem elvárásaink szerint alakultak a, dolgok: 


: printlevel :— 1í: t$ reset printlevel 
s  infolevel[ integrate ] :— 1: it raise infolevel 
,  integrate( 1/(x73txt1), x - 0 .. infinity ); 
int/indef:  first-stage indefinite integration 
int/ratpoly: rational function integration 
int/rischnorm:  — enter Risch-Norman integrator 
int/risch: enter Risch integration 
int/risch: — exit Risch integration 

E (7 TET éN ks 188 4.354 5) 

9 9 9 
R-—9?1 


971 :— RootOf(31.27—3.27—-1) 


Ha a printlevel változót negatív értékre állítottuk be, de azért látni akarjuk 
számításunk eredményeit a terminál képernyőjén, akkor erről külön gondoskod- 
nunk kell. Erre használhatjuk a print vagy az Iprint eljárások valamelyikét. A 
különbség mindössze a megjelenítés módjában mutatkozik meg: a print eljárás 
úgynevezett kétdimenziós megjelenítést produkál, amely a szokásos matematikai 
jelölésekre emlékeztet, már amennyire ez lehetséges. Az Iprint eljárás (,linear 
print") az eredményt egydimenziós formában, balra igazítva jeleníti meg. Néz- 
zünk egy példát: 
5 printlevel :— -1: it Maple becomes silent 
s sols :5 solve( arx72 t bix Tt c, x ); 
5 print( sols ); $ 2-dimensional output 
1 —bd4 vVb2?—4ac 1-b—Vb?—4ac 
2 a "2 a 
5 1print( sols ); tf left-adjusted, 1-dimensional output 


1/2/ax(-bt(b72-4rakrc)7(1/2)) 1/2/ax(-b-(b72-4rarc)7(1/2)) 
, printlevel :— 10: tt Maple gives more details 
5 integrate( 1/ ( x75 § 1), x- 0 .. infinity ); 
(--5 enter int, args - 1/(x7541), x - 0 .. infinity 
-EnvsignumO0 :— . Envsignum0 
szab 


ra:5-0 
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tha 00 
indef :— false 
-Envlndefinite :— false 


ús 1 
.— 75-41 


surds :— false 


r—zervőV 545 


g : 


£-- exit int (now at top level) - 1/25:Pisx57(1/2) r27(1/2)x( 


5457(1/2))7(1/2)3 
az TV8VV5- v5 


5 printlevel :— 1: it reset printlevel to default. 


Egyébként a print és az Ipint eljárások eredményére nem hivatkozhatunk sem 
a " operátorral, sem más módon, mivel mindkét eljárás csak mellékhatásként 
végzi el a formulák megjelenítését, de valójában mindkettő a speciális NULL 
értéket adja vissza. Ezt a speciális nevet használja a Maple rendszer az üres 
kifejezés-sorozat és az üres utasítás jelölésére is. Ha a " dupla aposztróffal 
hivatkozunk az előző eredményre, a NULL értéket a, rendszer átugorja. Figyeljük 
meg a különbséget a következő utasításokban: 

5  Example :- 11/12, evalf(exp(-10)) , NULL, (1-x)/C14tx): 

5 "some text"; 

some text 


5 1print( Example ); t display of some expressions 


11/12 — .4539992976e-4  (1-x)/(1rx) 
hr. "1 § 
some tezt 


,  Example: tH evaluation to a seguence of expressions 
he "a 
1-—-d 


11 
2? .00004539992976, TEz 


s,  interface( prettyprint — 0 ); 
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11/12 .4539992976e-4 — (1-x)/(1rx) 


Az utolsó két utasítás azt mutatja, hogy a prettyprint nevű interfész változót 
nullára állítva a Maple outputja balra igazított egydimenziós formátumú lesz. 
A 4.6. fejezetben látni fogjuk, hogyan állíthatjuk be további interfész opciók 
segítségével saját ízlésünk szerint a Maple rendszert. 
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4.2. A Maple könyvtár 


A Maple könyvtár négy részből áll: 
e a standard könyvtár, 
e a vegyes könyvtár (, miscellaneuos library"), 
e a csomagok és 
e az osztott könyvtár (, share library"). 


A Maple könyvtár nagysága az osztott könyvtárat nem számítva kb. 10 Mb. A 
rendszer azonban csak azokat a függvényeket tölti be a memóriába, amelyekre 
aktuálisan szüksége van. 

Valahányszor egy olyan utasítást adunk ki, amely olyan standard könyvtárbeli 
eljárást igényel, amelyet korábban még nem használtunk a, Maple szekció során, 
a rendszer elég okos ahhoz, hogy a kívánt eljárást a külső tárolóról a memóriába 
töltse, majd végrehajtsa a számítást. . 

A vegyes könyvtár ritkábban használt eljárásokat tartalmaz. Ezeket az eljá- 
rásokat használat előtt a readlib utasítással a külső tárolóból a memóriába, be 
kell tölteni: 


5 f :-— exp(akrz) / ( 1 t exp(z) ); ft some formula 
ele 2) 
f:: 
" 14ez 
5 residue( f, z-Pirl ); 
K e(e 2) 
residuel ez? zef) 


A vegyes könyvtárban található a residue eljárás, amely egy komplex függvény 
valamely pólusa körüli reziduumát számítja ki. Ezt eddig még nem töltöttük be 
a memóriába. Ezért a Maple az inputot változatlanul hagyja, és megvárja, míg 
definiáljuk, vagyis a könyvtárból a memóriába, betöltjük a függvényt. 
s  readlib( residue ); tt load library function 
proc(f, a) . .. end 


s residue( f, z-PixIl ); 
—ellan) 


s residue( 1 / ( 272 t a7r2 dia a zezttt já 
2 a 

A Maple speciálisabb célokat szolgáló csomagokat is rendelkezésünkre bocsát. 
Az orthopoly csomag az ortogonális polinomokat (többek között a Hermite, 
Legendre, Laguerre és a Chebyshev polinomokat) tartalmazza. Ezeknek a függ- 
vényeknek a fölhasználásakor meg kell adnunk a csomag nevét is. Például egy 
Csebisev-polinom kiszámításához a következő parancsot kell kiadnunk: 

5  orthopolyíT](4,x); 

831—87?-1 
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Négy lehetőségünk van arra, hogy elkerüljük a hosszú nevek használatát. 


e Az alias eljárás segítségével szinonímákat definiálhatunk: 
5 alias( T - orthopoly[T] ): 
s T(55Xs 
1625—2017-45x 
A T definíció törléséhez a következő utasítást kell kiadnunk: 


5 alias( T—-T): 


e A macro eljárás használata, melynek segítségével rövidítéseket definiál- 
hatunk: 
5 macro( T - orthopolyt[T] ): 
5 T(6,x); 

327" — 4871 4187? — 1 

A macro és az alias eljárás közti különbség abban áll, hogy a macro 
szolgáltatás egy egyszerű rövidítési mechanizmus, amely csak az input 
adatokat változtatja meg, 


s  IT(6,x) ; 

orthopolyr(6, x) 
míg az alias lehetőséget ad mind az input, mind az output oldal befolyá- 
solására. (Lásd még a, 2.5. fejezet példáit.) A makrodefiníció törléséhez a 
következő utasítást kell kiadnunk: 


5 macro( T-T): 
e A T Csebisev-polinom explicit betöltése az orthopoly csomagból: 


5,  with( orthopoly, T ); 
(T] 
s T(Gy; 
64y7 —112y" 1 56y? —7y 


e Annak közlése a Maple-lel, hogy az egész csomagot használni akarjuk: 


5. with( orthopoly ); 
IG, H, L, P, T, Ul] 

A with(orthopoly) utasítás hívása azt eredményezi, hogy nevek egy cso- 
portja (pl. a T vagy az U) ugyanazon eljárásokra mutat, mint a csoma- 
gok esetében szokásos, nekik megfelelő (orthopolyíT] ill. orthopoly[U]) 
hosszú elnevezések. Az eljárások teljes kódja nem töltődik be a könyvtár- 
ból: 
s T(8 2); 

128 2 — 2562" 4 16021 — 322741 
Valójában csak ezen a ponton töltődik be és hajtódik végre a megadott 
argumentumokkal az orthopolyíT] eljárás kódja. 
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A ?index packages parancs begépelésével megkaphatjuk a Maple könyvtár- 
ban rendelkezésünkre álló csomagok teljes listáját. A csomagok tartalmazhat- 
nak , részcsomagokat" is. Ilyen fölépítésű például a stats csomag, amelynek 
függvényei a, 4.2. táblázatban látható hét részcsomagba vannak csoportosítva: 


Részcsomag  Fölhasználás 


anova variancia-analízis 

describe adat-analízist végző függvények 
fit lineáris regresszió 

transform adatmanipulációs függvények 
random véletlenszám-generátorok 
statevals eloszlások numerikus kiértékelése 


statplots statisztikai rajzoló függvények 


4.2. táblázat: A stats csomag részcsomagjai 


Numerikus értékek listájának (számtani) közepe például a describe részcso- 
mag mean eljárásával számítható ki. Ez az eljárás többféleképpen is aktivi- 
zálható: 
5 data :— [ seg(i,i-1..6) 1]; 

data :— (1, 2, 3, 4, 5, 6] 


5  statsf[describe mean] (data); ít direct call 


2 


with( stats ): it load stats package 
5  describelmean]i( data ); $ semidirect call 
7 


al 


5. with( describe ): it load subpackage 
5  mean( data ); it call after loading subpackage 
7 


j / 


Végül létezik egy osztott könyvtár (share library), amely a fölhasználók ál- 
tal fejlesztett Maple eljárásokat és csomagokat tartalmazza. A ?share,address 
parancs megadásával megtudhatjuk, hogy honnan kaphatjuk meg az osztott 
könyvtár legfrissebb verzióját, a ?share,contrib parancs pedig azt írja le, ho- 
gyan kapcsolódhatunk be magunk is a könyvtár fejlesztésébe. Ha a Maple rend- 
szert helyesen installáltuk, akkor az osztott könyvtárban lévő kódot a, következő 
paranccsal érhetjük el: 
5.  with(share): 


v 


Innentől kezdve az osztott könyvtár összes eljárását vagy csomagját ugyanúgy 
olvashatjuk vagy tölthetjük be, mintha közönséges Maple eljárások vagy cso- 
magok lennének. Például betölthetjük a Ritt—-Wu-féle karakterisztikus halmaz 
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módszer Dongming Wang-féle implementációját (lásd [186]), és segítségével al- 
gebrai egyenletrendszereket oldhatunk meg. 


2 
2 


readshare(charsets , algebra) : 
with( charsets ); 


[cfactor, charser, charset, csolve, ecs, eics, ics, iniset, ivd, mcharset, 


7 
pa 


4.3. 


mcs, mecs, gics, remset, triser] 


polys :— [x72 - 2rxsz t 5, xry7r2 t yrz73, 
3ry72 - 8xz73 J]; 
polys — [72—22245, gy" ty, 3y2— 829] 


vars 
sols 


És sys z d: 
csolve( polys, vars ); 


sols — (y— 0, 1——IV5, z— 0), (y—0,1—Iv5, z—0)], 


8 1 9135 
(íz— 91,4——e 31 2-5—gjrei 


951 :— RootOf(3.27 — 64 2" 3.45 2! 4.225 7? 1 375) 


Fájlok írása és olvasása 


A Maple rendszerben a következő fájltípusokat különböztetjük meg: 


munkalap fájlok (,worksheets"); 


fájlok, amelyek Maple kódot tartalmaznak olyan formában, amelyet csak 
a számítógépes algebrai rendszer képes értelmezni; 


fájlok, amelyek a fölhasználó által olvasható és értelmezhető Maple kó- 
dot tartalmaznak, tehát például olyanok, amelyek a Maple programozási 
nyelvén íródtak; 


fájlok, amelyek Maple számítások eredményeit tartalmazzák, de önma- 
gukban nem használhatók további számítások inputjaként; és végül 


fájlok, amelyek olyan formázott inputot/outputot tartalmaznak, amelye- 
ket más fölhasználói programok készítettek, vagy amelyeket más progra- 
mok olvashatnak be inputként. 


:2:4 


münket most csak az első négy fájltípusra koncentráljuk. 

Először tekintsük a munkalap fájlokat. Szokásos kiterjesztésük .mws (Maple 
WorkSheet). Ezek olyan ASCII fájlok, amelyek a munkalapok input, output és 
grafika celláin kívül a formázáshoz szükséges stílus-információt is tartalmaznak. 
Betölthetjük őket újabb Maple szekciókba, és újra végrehajtathatjuk a bennük 
szereplő parancsokat. 
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Ezután foglalkozzunk a negyedik csoporttal, a számítási eredmények tárolásá- 
ra vagy megjelenítésére szolgáló fájlokkal. Normális esetben a pontosvesszővel 
befejeződő Maple parancsok eredményei beágyazódnak a munkalapba, illetve 
megjelennek a képernyőn. De fájlba is átirányíthatjuk az outputot annak érde- 
kében, hogy aztán nyugodtan újra elolvashassuk, vagy éppenséggel kinyomtas- 
suk az eredményeket. Például ahhoz, hogy egy Maple szekció összes eredményét 
átirányítsuk az outputfile nevű fájlba, elegendő a következő parancs megadá- 
sa: 

5 writeto( "outputfile" ); 


Innentől kezdve az összes Maple output a munkalap vagy a terminál képernyője 
helyett ebbe a fájlba kerül. Itt azonban némi eltérés van a munkalapos és a 
karakteres alapú fölhasználói felület között. Az utóbbi esetében a ,-" prompt 
jel, a kiadott utasítások és a futásidőben keletkező üzenetek is beíródnak a 
fájlba. Ennek oka az, hogy a karakteres alapú fölhasználói felület esetén a 
Maple nem képes egyidejűleg írni a fájlba és a terminál képernyőjére. A begépelt 
utasítások sorban végrehajtódnak. Tegyük föl, hogy a következő utasításokat 
adtuk ki: 

5 number :- 90; 

5  polynomial :— x72 t 81; 

5  subs( x -number, polynomial ); 

5 writeto( terminal ); 


Az utolsó utasítás után ismét látható lesz az összes output a terminál képernyő- 
jén: 
5 ". 


, 


8181 
5 guit 
Az outputfile nevű fájl a következőképpen néz ki (föltéve, hogy a karakteres 


alapú fölhasználói felület esetén előzőleg az interface( echo — 0 ) paranccsal 
letiltottuk az input parancsok és a memóriahasználat kiíratását): 


number :-— 90 


2 
polynomial :—- x 1681 


8181 


Ne felejtsük el, hogy a writeto a létező fájlokat felülírja. Ha ezt el akarjuk kerül- 
ni, vagy éppenhogy egy már meglevő fájlunkhoz akarjuk hozzáfűzni az outputot, 
akkor az appendto eljárást kell használnunk. Ahogy már korábban megjegyez- 
tük, az output fájllal az olvasáson és a nyomtatáson kívül nem sok mindent 
tehetünk. További feldolgozás nélkül nem tudjuk fölhasználni egy újabb Maple 
szekció inputjaként. A save eljárás segítségével a Maple számítások eredményei 
úgy menthetők el, hogy később egy másik Maple szekcióban valóban újra föl- 
használhatók legyenek. Egy ilyen fájlból a Maple read parancsával olvashatjuk 
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be az adatokat a memóriába. Áz output fájlba az adatok átvitele kétféle módon 
történhet meg: 


e csak a Maple számára érthető , belső formátumban?" (ha ,, .m" kiterjesztésű 
fájlnevet adtunk meg), 


e , emberi fogyasztásra alkalmas", simán olvasható szövegformátumban. 


Nézzünk egy példát: 
2: restart; tt ensure a fresh start of maple 
5  polynomial :— x72 4 2rx 11; "number four" :- 4; 
polynomial — 3? 42741 
number four :— 4 


5 save datafile; 

s save "datafile.m"; 

2 guit 

Ne felejtsük el kitenni a fordított aposztrófokat a datafile.m név köré, kü- 
lönben a Maple a datafilem névvé konkatenálja a pont bal és jobboldalán lévő 
sztringet, és ennek következtében az eredményt nem a belső, hanem a fölhasz- 
náló által olvasható szöveges formában írja ki a fájlba. Megjegyezzük, hogy 
akkor is szükséges a fordított aposztróf használata, ha alkönyvtárakat akarunk 
megadni, és szükségünk van a ,,/" Unix-szeparátorra, hiszen enélkül a rendszer 
osztásjelként értelmezné. Ha Unix operációs rendszerű gépen dolgozunk, a ho- 
me könyvtár rövid jelölése, ,, " sem használható, ehelyett ki kell írni a teljes 
elérési utat. Ennek hiányában a rendszer a, fájlok írásánál és olvasásánál az 
elérési utakat ahhoz a könyvtárhoz viszonyítva értelmezi, ahonnan a, Maple-t 
elindítottuk. 


A datafile és a datafile.m fájlok mindegyike az összes olyan információt 
tartalmazza, amely a Maple szekcióban az adatátvitel előtt rendelkezésre állt. 
Mindez lehet egy új Maple szekció kiindulási pontja. A datafile fájlt elolvas- 
hatjuk (és kívánságaink szerint módosíthatjuk is) a cat vagy more Unix paran- 
csokkal, illetve valamely szövegszerkesztővel. A Maple program futása közben 
,belülrőP" ezek a parancsok az ssystem eljárással érhetők el. Ez két értékből 
álló listát ad vissza: az első elem a végrehajtott Unix parancs visszatérési értéke, 
a második egy Maple név, amely a parancs összes outputját tartalmazza. Csak 
ezt a második elemet fogjuk tekintetbe venni: 


5  ssystem( "cat datafile" ) [2]; 


polynomial :— x"242rxti1; 
"number four" :- 4; 


A Maple által választott , egydimenziós elrendezés" miatt az előző sorok ol- 
vashatósága hagy még némi kívánnivalót maga után. De lássuk mi történik, ha 
ezt a fájlt beolvassuk egy új Maple szekcióban! 

5 read datafile; 

polynomial — 3" 3427--1 
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number four : 4 


5 "number four" x polynomial; 
43738144 


5  guit 


Láthatjuk, hogy a datafile fájlban levő utasításokat úgy kezeli a rendszer, 
mintha közvetlenül a billentyűzetről adtuk volna be őket. Ebből következik, 
hogy a read eljárás számára kedvenc szövegszerkesztőnk segítségével úgy ké- 
szíthetünk elő egy alkalmas fájlt, hogy Maple utasításokat írunk egymás után. 


A Maple rendszer indításkor először mindig egy, a fenti módon beolvasha- 
tó inicializáló fájlt keres. Például a UNIX operációs rendszer alatt a Maple 
először egy init nevű rendszerszintű inicializáló fájlt keres a Maple könyvtár 
src alkönyvtárában. Ezután a fölhasználó home könyvtárábana .  mapleinit 
iniciálizációs fájlt olvassa be. Ezeknek a fájloknak a fölhasználásával automati- 
kusan betölthetünk olyan csomagokat, amelyekre mindig szükségünk van, beál- 
líthatunk interfész változókat (lásd a 4.7. fejezetet), és így tovább. 

Amikor a read eljárás az összes adatot betöltötte a fájlból, a Maple az előző 
input folyamból érkező utasítások feldolgozásához tér vissza: ezek érkezhetnek 
egy munkalapból, a terminálról vagy egy másik fájlból. 

A read utasítás hatására keletkező összes bejövő adat újra megjelenik a, ké- 
pernyőn. Néha jól jön ez az emlékeztető, de más esetekben túl sok információt 
jelenthet. Az adatok megjelenítését elnyomhatjuk azáltal is, hogy két új sort 
fűzünk a fájl elé, melyben megőrizzük a printlevel változó aktuális értékét, 
majd —1-re állítjuk be; a fájl végéhez pedig hozzáfűzzük azt az utasítást, amely 
visszaállítja a printlevel eredeti értékét. Mindez persze extra munka. A ké- 
sőbbiek során látni fogjuk, hogy a fájlból érkező input echozása nem történik 
meg, ha az adatokat belső Maple formátumban tároljuk. A belső formátum 
használatának legfontosabb előnye éppen az, hogy az olvasás és az írás sokkal 
hatékonyabban történik, mint az olvasható formátum esetén. Az alábbiakban 
használt datafile.m nem a, fölhasználó által olvasható, hanem belső Maple for- 
mátumú. Ez a fájl is ASCII karakterekből áll, így például e-maillel is könnyen 
átvihető: 

5, read "datafile.m"; 

5  polynomial :- factor( polynomial ); 

polynomial :— (2-1)? 
5  sguarenumber :-— subs( x-"number four", polynomial ) ; 


sguarenumber :— 25 


Nem kötelező az összes változót elmenteni, választhatunk közülük. Az előző 
szekció folytatásaként a number four változót és az (111)? kifejezést elmentjük 
az output nevű olvasható fájlba: 


5 save "number four", polynomial, output; 


Az output fájl tartalma a következő lesz: 
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"number four? :-— 4; 
polinomiai :— (xt1)72; 


A Maple belső formátumában tárolt fájlok gyors beolvasása és a rendszer szűk- 
szavúsága még fontosabbá válik, amikor a Maple könyvtárból töltjük be az el- 
járásokat. Valószínűleg nem akarjuk látni minden egyes könyvtári függvény 

De miért szükséges egy külön eljárás, nevezetesen a readlib a könyvtári függ- 
vények beolvasásához? Miért nem használjuk a read-et? A válasz a Maple által 
feltételezett hierachikus fájlstruktúrában rejlik. A fájlokba való írás és olvasás 
művelete mindig arra az alkönyvtárra vonatkozóan történik meg, amely az ak- 
tuális könyvtár volt, amikor a Maple-t elindítottuk (kivéve, ha teljes elérési utat 
adtunk meg). A Maple könyvtár teljes elérési útját a Libname változó értékének 
a Maple szekción belüli kiíratásával kaphatjuk meg. Az eredmény az alábbihoz 
hasonló lesz: 

5  libname; 

/ usr / local/ maple/ update, /usr/local/ maple/ lib 


Innen az mtaylor .m fájlt például a kövekező parancsokkal tölthetjük be: 
5 read "/usr/1local/maple/lib/mtaylor.m" : 


vagy 
5 read ", libname . "/mtaylor.m" : 


A Maple könyvtár eljárásainak ilyen elérési módja a hosszú nevek használata 
miatt kényelmetlen és könnyen elhibázható. Sokkal kellemesebb ez a rövid alak: 


5 readlib( mtaylor ): 


Úgy tűnik, mintha a Maple ezt az utasítást a következőképpen értelmezné: 


c [4 


5 read" . Jlibname . "/" . mtaylor . SO: 


Valójában ennél többet tesz: ellenőrzi, hogy az mtaylor nevű eljárás tényleg 
definiálva lesz-e a beolvasás eredményeként; és ha igen, akkor azt adja vissza, 
mint a readlib utasítás értékét. Ebből következik, hogy rögtön argumentu- 
mokat is megadhatunk, és egy többváltozós Taylor-sort egyetlen paranccsal is 
kiszámíthatunk a következő módon: 


5: readlib( mtaylor ): 


s read " . libname . "/" . mtaylor . ".m": 
s readlib( mtaylor )( sin(xty), [x,y] ); 
ls: 1 2 lo? loss 1! szi. árt 2 sa L.3.3 
mg aa e a— gt ággá bay ey Fáy 6 
PE fak Égő 
249 7" 1209 


5 sort( simplify( ", (z-xtyl, [x,y,z] ) 2; 


1 
b gli s Égő 
1207 9 se 
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5  subs( z-xty, " ); 
1 
120 

Szerencsére a legtöbb Maple-eljárás hívásakor automatikusan betöltődik a könyv- 
tárból. Ilyen readtlib-definiált függvény a gecd is; ennek eredeti definíciója gcd 
:— "readlib(? gcd?) ?. 

5  eval( gcda, 1 ); t value of gcd 

5  gcd( x73-1i, x72-1 ); 


1 
(zty—glrtytzty 


readlib(" ged") 
 vdszagb 


A readlib-definiált függvények tehát automatikusan betöltődnek hívásuk pilla- 
natában. Így a fölhasználó szempontjából nem is különböztethetők meg a Maple 
kerneljében definiált függvényektől. 

A Maple rendszerben egynél több könyvtárat is használhatunk. Például ha be- 
töltjük az osztott könyvtárat, akkor a sharename nevű változó az osztott könyv- 
nevéből álló lista lesz. A könyvtárakban a, keresést a listán látható sorrendben 
végzi a rendszer: 

, with( share ): 

5  sharename; 

/ usr / local/ maple/ share 


5  libname; 
/ usr /local/ maple/ lib, / usr /local/maple/ share 


Több könyvtár egyidejű használatának támogatása lehetőséget ad a fölhaszná- 
lónak arra, hogy saját könyvtárral is rendelkezzen, vagy akár felülírja a Maple 
könyvtárat. A következő paranccsal arra utasítjuk a Maple rendszert, hogy 
először keressen a, saját könyvtárunkban, és csak ha ez nem vezet eredményre, 
akkor nyúljon a standard könyvtárhoz minden olyan esetben, amikor a readlib 
eljárást vagy valamely readlib-definiált függvényt hívunk: 

5:  libname :-— "/ufs/heck/private maplelib", libname: 


A 4.3. táblázat a Maple fájlok írásával és olvasásával kapcsolatos parancsokat 
összegzi: 


44. Numerikus adatok importja és exportja 


Numerikus adatok importja 


A Maple readline és readdata eljárásai tetszőleges (formázatlan) adatok fájl- 
ból vagy a terminálról való bevitelére szolgáló segédeszközök. A readline egy 
sort, a readdata oszlopokba rendezett numerikus adatokat olvas be a mega- 
dott helyről. Tegyük föl, hogy az aktuális könyvtárban rendelkezésünkre áll a, 
következő 3 soros, numericaldata nevű fájl: 
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Parancs Jelentése 

read(file) Maple input beolvasása az olvasható formátumú 
file fájlból 

read( file.m") Maple input beolvasása a belső formátumú file 
fájlból 

readlibí(parancs) parancs beolvasása a megfelelő könyvtár-fájlból 

save( file) az összes változó értékének elmentése az olvasha- 
tó formátumú file fájlba 

save( file.m" ) az összes változó értékének elmentése a belső for- 


mátumú file fájlba 
save(változósorozat, file) a fölsorolt változók értékének elmentése az olvas- 
ható formátumú file fájlba 


appendto( file) a további eredmények hozzáfűzése az olvasható 
formátumú file fájlhoz 
writeto(file) a további eredmények kiírása az olvasható foriná- 


tumú file fájlba 


writeto(terminal) a további eredmények kiírása a, terminálra 


4.3. táblázat: Maple fájlok írása és olvasása 


1 0.84 .54 
2 0.91 -.42 
3 0.14 -.99 


Az alábbiakban néhány példát mutatunk arra, hogyan olvasható be a teljes fájl, 
illetve bizonyos részei. 


: readlib( readdata ): tt load the library function 
5  readdata( "numericaldata" , 3 ); tt read 3 columns of floats 


[[1., .84, .54], [2., .91, —-42], [3., .14, —.991] 


s  readdata( "numericaldata" , 2 ); t read 2 columns of floats 
[[1., .84), [2., .91], [B., 14) 


5  readdata( "numericaldata" ); $ read 1lst column of floats 
[doc2g:3] 
A readdata oszlopokba rendezett, üreshely-karakterekkel elválasztott egészeket 
vagy valós számokat fogad el. Ha egészként kívánjuk beolvasni az adatokat, ezt 
külön meg kell adni. 
5 readdata( "numericaldata", integer ); 
[273] 
5  readdata( "numericaldata", [linteger, float, float] ); 
[[1, .84, .54], (2, .91, —.42], [3, .14, —.99]] 
s readline( "numericaldata" ); ítt read first line 
1 0.84 .54 
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5  readline( "numericaldata" ); tt read second line 


20.91 — .42 


Az utóbbi két kifejezés string típusú: 
5  whattype(""), whattype("); 
string, string 


Az adatfájlok sokszor vegyesen tartalmaznak számokat és szöveget. Az ilyen 
bonyolultabb fölépítésű adatfájlok csak formázott inputként, olvashatók be; erre 
jó a readline és a fscanf eljárás. A részletekre a következő alfejezetben még 
visszatérünk, most csupán azt mutatjuk meg, hogyan bontható szét az utoljára 
kapott sztring az sscanf alkalmazásával egy egész és két valós számra: 
xx. szcanft öt, AGYEME 9a 
[2, .91, —.42] 


Numerikus adatok exportja 


A writeline és writedata eljárások formázatlan adatok fájlba vagy a termi- 
nálra való kiírására szolgáló segédeszközök. A writeline a megadott Maple 
kifejezéseket újsor karakterekkel elválasztva, írja ki a megadott fájlba, a fájlt 
egy újsor karakterrel zárja le. A writedata numerikus adatokat ír fájlba vagy 
a terminál képernyőjére. 

Tegyük föl, hogy a következő adatokat tartalmazó mátrixot definiáltuk: 

s data :— matrix( 3, 3, [ [i1, 0.84, 0.54], 

s  [2, 0.91, -0.42], 

s  [3, 0.14, -0.99] ] ); 


1 .84 .54 
data:— ] 2 .91 —.42 
3 .14 —.99 


A következő parancs ezeket a numerikus adatokat lebegőpontos számokként je- 
leníti meg a képernyőn: 
s  writedata( terminal, data, float ); 


1 .84 .54 
2 .91 - .42 
3 .14 -.99 


Ezeket az adatokat kiírathatjuk például az outputfile nevű fájlba: 
s  writedata( outputfile, data, float ); 


A fájl tartalma az alábbi módon jeleníthető meg: 
5  ssystem( "cat outputfile" )[2]1; 
i .84 .54 


2 .9i1 -.42 
3 .14 -.99 
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Részletesebben is specifikálhatjuk az adatok formátumát: 
5  Writedata( terminal, data, [linteger float float] ); 


1 .84 .54 
2 .91 - . 42 
3 .14 -.99 


A writedata képes nemnumerikus (azaz nem egész, racionális vagy valós) adat- 
típusok kezelésére is. Sőt, egy Maple eljárás megadásával az általunk választott 
formátumban történik a kiírás. Egy tipikus példa: a nemnumerikus értékek 
helyett írassunk ki egy csillagot: 
5 for i to 3 do datali,1] :— evaln( datali,i] ) od: 
5  print(data); 
data1, £ .84 .04 
dataz 1 .91 —.42 


dataz a .14 —.99 


5,  writedata( terminal, data, float, 
5  proc(x) printf("r",x) end ); 


xk .84 .54 
xk 591 -.42 
xk .14 - .99 


4.5. Alacsony szintű [/D 


A Maple íráskor és olvasáskor megengedi általános objektumok, ún. folyamok! 
használatát. A folyam input vagy output forrása lehet. Folyamokra példák a 
fájlok, a Unix csövek, a terminál képernyője. 

Alapvetően a következő alacsony szintű séma szerint írhatunk folyamokba out- 
putot. Először outputra megnyitjuk a folyamot, vagyis tájékoztatjuk a Maple-t, 
hogy outputot akarunk küldeni az illető fájlba vagy csőbe. A megnyitás után 
írhatunk a folyamba. Végül a folyamot lezárjuk. 

A 4.4. táblázat a Maple által megkülönböztetett folyamtípusokat, valamint a 
megnyitásukra és a lezárásukra szolgáló utasításokat sorolja föl. 

Ha megnyitunk egy folyamot, tudatnunk kell a Maple-lel, hogy READ, WRITE 
vagy APPEND módban kívánjuk használni. A Maple megkülönbözteti a text és 
a bináris fájlokat: a TEXT típus karakterekből, a BINARY típus bájtokból álló 
folyamot jelöl. 

Egy egyszerű példa: 

5 fd :-— fopen( outputfile, WRITE, TEXT ),; 

fd:50 


lEzek az ANSI C nyelv stream fogalmának megfelelői. (A Fordító megjegyzése.) 
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A folyam típusa Jelentése Megnyitás/lezárás 


STREAM pufferelt fájl fopen, fclose 
RAW puffereletlen fáj! open, close 
PIPE kétirányú Unix cső pipe, close 
PROCESS egyik végével egy másik popen, pclose 
processzhez kapcsolt Unix 
cső 
DIRECT az aktuális (default) vagy nem alkalmazható 
a legfelső szintű (terminal) 
folyam direkt elérése 


4.4. táblázat: Maple folyamok megnyitása és lezárása, 


fa a fájlleíró, outputfile a fájlnév, WRITE a fájlmód és TEXT a, fájltípus. Írjunk 
be két sort ebbe a fájlba, majd zárjuk le: 
5 writeline( fd, "this is some text" ); 


18 


5 writeline( fd, "this is some more text" ); 
23 


5  fcelose(fd): 
A writeline eljárás képernyőn megjelenő outputja az utasítás hatására a fájlba 
beírt karakterek száma. Az outputfile fájl tényleg két sorból áll: 
5 ssystem( "cat outputfile" )[2]; 
this is some text 
this is some more text 
Így fűzhetünk hozzá egy harmadik sort fájlunkhoz: 


, íd :5— fopen( outputfile, APPEND, TEXT ): 
s writeline( fd, "third line" ); 


11 


s fclose(fd); 
5  ssystem( "cat outputfile" )[2]; 


this is some text 
this is some more text 
third line 
Példa kétirányú Unix csőre: 
5  with( process ); 
[dlock, exec, fork, kill, pclose, pipe, popen, wait] 
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Ha Unix csöveket akarunk használni, először be kell töltenünk az őket kezelő 
segédfüggvényeket tartalmazó process csomagot. Nyissunk meg egy kétirányú 
csövet: 


5 pds :-— pipe(); $ pipe descriptors 
pds :— [0, 1] 
Két fájlleíróból álló listát kaptunk vissza: az első a csőből való olvasásra, a, 


második a csőbe való írásra használható. A csövek fájltípusa BINARY. Írjunk be 
valami bináris formátumú szöveget a writebytes segítségével: 


s  writebytes( pds[2], "This is a" ); 
9 


5  convert( " test", "bytes? ); 
[32, 116, 101, 115, 116] 


5. writebytes( pds[(2], " ); 
5 


A cső másik végéből bináris formátumban olvashatunk szöveget, ezt át tudjuk 
konvertálni ASCII karatersorozattá. 
5 readbytes( pds[1], 14 ); 
[84, 104, 105, 115, 32, 105, 115, 32, 97, 32, 116, 101, 115, 116] 


5 convert( ", "bytes? ); 
This is a test 


Befejezésül a csövet lezárjuk: 

s close( pds[1] ): 

s  close( pds[2] ): 
Természetesen egy időben több nyitott folyamunk is lehet. Az összes nyitott 
fájl állapotát az iostatus() paranccsal kérdezhetjük le: 


5 restart: 
5  open( testFile, WRITE ); 


0 


5  fopen( anotherFile, APPEND, TEXT ); 
1 


5  processí[popen]( rev, WRITE ) ; 
2 


5 iostatus(); 


[3, 0, 125, [0, testFile, RAW, FD — 11, WRITE, BINARY ], 
[1, anotherFile, STREAM , FP — 135200560, READ, TEXT], 
[2, rev, PROCESS, FP — 135200640, WRITE, TEXT ]] 
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A lista első három eleme: az I/O könyvtár által megnyitott folyamok száma, 
a pillanatnyilag aktív read utasítások száma és az előző kettő összegének fölső 
korlátja. A további elemek a. nyitott folyamok állapotát írják le. 


A Maple támogatja a formázott inputot és outputot is. Ez lehetőséget ad arra, 
hogy más fölhasználói programok által készített adatokat beolvassunk, vagy 
a Maple rendszerből írjunk ki adatokat más fölhasználói programok számára. 
A printf, fprintf, sprintf, scanf, fscanf és sscanf [/O eljárások C nyelvű 
ekvivalenseikre hasonlítanak. Jelentésüket a 4.5. táblázatban foglaltuk össze. 


Parancs Jelentés 


fprintf(stream, format, args) — az args argumentumokat a, stream folyamba 
írja ki a format formátum szerint 


printf(format, args) az args argumentumokat a default output 
folyamba írja ki a format formátum szerint 

sprintf(format, args) az args argumentumokat egy Maple sztring- 
be írja ki a format formátum szerint 

fscanf(stream, format) a stream folyamból olvas a format formátum 
szerint 

scanf(format) a kurrens input folyamból olvas a format 
formátum szerint 

sscanf(string, format) a string sztringet a format formátum sze- 


rint dekódolja 


4.5. táblázat: Alacsony szintű formázott I/O rutinok 


Tehát a 
printf(format, argi, arg2, .. .) 


output eljárás az argi, arg2, ...argumentumokat a default output folyamba 
írja ki a format konverzió-specifikációknak megfelelő formátumban. Például 
5 


az 2 15 jegyű numerikus közelítésének kinyomtatását a tizedesvessző utáni 8 


tizedesjeggyel és vezető nullákkal feltöltve a következő utasítás valósítja meg: 
3. PANEL ZÁS SRE s BA3 JA 


000001 .66666666 


A formátum-specifikáció általában 
/Lflags] [width] [.precisionl] [code] 

alakú. A konverzió-specifikációk elemei és jelentésük a 4.6. valamint a 4.7. táb- 
lázatban láthatók. 

A fő különbség a C nyelvű printf és a Maple printf eljárása között az, hogy 
a /a konverzió bármilyen sorközök nélküli algebrai kifejezést ki tud nyomtat- 
ni az Iprint utasítással megegyező formátumban, valamint a § karakter nem 
használható a mezőszélesség meghatározására. Az alábbiakban néhány példát 
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Flag Jelentése 


mezőn belüli balra igazítás 

0 a 0 használata vezető karakterként szóköz helyett 

sk az előjeles konverzió eredménye mindig előjellel fog kezdődni 

szóköz az előjeles számérték vagy vezető ,.-" jellel, vagy vezető szó- 
közzel fog kezdődni 

a ha egy számelőjel-flag van jelen, akkor egy alternatív output 
formátum kerül fölhasználásra 


4.6. táblázat: A printf flag-jei 


mutatunk erre. Az Iprint() utasítások csak azért szerepelnek, hogy minden 
egyes prompt jel új sorba kerüljön: 
3 printft "3zfd jEA4.2E", 12, 34.33 ); 1print( 


x-12 y-34.30 

a printtt "Za", a/€x 291) 25. CDETNL(I E 
1/(xVsymbol(94)2-1) 

5. puintil Ae. AS , a; abó jr Üprinti) : 
a, abc 

5 printf( "7g, Ag", 1/2, 1/2716 ); IprintO: 
.5, 1.525878e-05 

5  printf( "/£f", 10.710 ); IprintO: 
10000000000 

x printf( "/a", 10.710 ); 1iprintOa 
.1000000000€e11 


Ha a Maple karakteres fölhasználói felületével dolgozunk, hasznosak lehetnek 
az escape karakterek is. Például lehetőséget adnak arra, hogy újsor karaktere- 
ket helyezzünk el az outputba, s ezzel elkerüljük az előző példáinkban szereplő 
Iprint() utasítás használatát. Az escape karakterek teljes listáját a 4.8. táblázat 
tartalmazza. 
Néhány példa: 

s printf( "mis", 

s "string enclosed by newlinesmand a newline inside" ); 


string enclosed by newlines 
and a newline inside 
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Kód Nyomtatási képe 


a a Maple Iprint formátuma 
c egyetlen karakter 
d előjeles decimális szám 
e, E előjeles decimális lebegőpontos szám tudományos jelöléssel 
f előjeles decimális lebegőpontos szám 
g, G előjeles lebegőpontos szám d, e vagy f formátumban, illetve 
E formátumban, ha G volt specifikálva, annak függvényében, 
hogy milyen értéket kell nyomtatni 
egyetlen százalékjel (nincs konverzió) 
a Maple belső formátuma 
előjel nélküli oktális szám 
gépi cím olvasható formában 
sztring 
előjel nélküli decimális szám 
X  — előjel nélküli hexadecimális szám, amelyben a, b, c, d, e, f 
vagy A, B, C, D, E, F jelöli a 9-nél nagyobb számjegyeket 


B ag 


mM s mamo 


4.7. táblázat: A printf konverziós kódjai 


s printf( m/s", "backspacingNibtbtbtbtbtbVPNBXXXXX" ) ; 


backxxxxxing 


x-PELNGTT  NAZ SAKE, Sztyaz Ty 


xX y 
z 
Ww 


Az sscanf( string, format ) eljárás az sprintf inverze: a megadott string-et 
a format formátumnak megfelelően dekódolja. Az egyetlen eltérés a C nyelvű 
sscanf-től az, hogy a Maple változat a dekódolt objektumok listáját adja vissza. 
Két példa: 
5  sscanf( "x 
5 "x-z My 


123.45, y - 6.7E-8, 9.10", 
köz. hd4d 33 
[123.45, .67 1077, 9, 10] 
x/(1tx72)", "f - /a" ); 
——] 


3241 
Általában a formátumspecifikáció a következő alakú: 


108888 1 


5 sscanf( "f 


/[5] [gidth] [code] 


Az opcionális k azt jelzi, hogy az objektumot fel kell ismerni, de nem kell vissza- 
adni az eredmény részeként (azaz , eldobható"): 
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Escape kód Jelentése 


backspace 
lapdobás 
újsor 
kocsi vissza, 
horizontális tabulálás 
vertikális tabulálás 
backslash 

egyszeres idézőjel 
kettős idézőjel 
kérdőjel 


NEL eF ESB ei EP 


ag 


4.8. táblázat: Escape kódok 


5  sscanf("0-123", 9xrdyd"); 
[—123] 


s  sscanf("0-123", /aVa"); 
[0, —123] 


A width mezőszélesség azon karakterek maximális számát jelenti, amelyeket 
meg kell vizsgálni az aktuális objektum értelmezéséhez. Ez arra is fölhasznál- 
ható, hogy egy nagyobb egységet két vagy több objektumként ismertessünk föl 
a függvénnyel: 


5 sscanf( "date - 16121992", "date -— /2d/2d/4d" ); 
[16, 12, 1992] 


A specifikációban használatos karakterek és azok jelentése a, 4.9. táblázatban 
található. 


A parse parancs egy sztringet Maple utasításként elemez. A statement opció 
határozza meg, hogy a teljes kiértékelést is végre kell-e hajtani: 


9. kg ss fg 
5 parse( "x 4 1" ); 
x-t1 
- 1 
2 


s parse( "x 4 1", statement ); 
2 


4.5. Alacsony szintű [/DO 117 


Jelentése 


kiértékeletlen Maple kifejezés 

karakter 

előjeles decimális szám 

előjeles decimális lebegőpontos szám 

belső formátumú Maple kifejezés 

az eddig olvasott karakterek száma 

sztring 

előjel nélküli oktális szám 

egy memóriacímre mutató pointer 

előjel nélküli decimális szám 

előjel nélküli hexadecimális szám, ahol az a b,c,d ef vagy 
az A BICD,E, jeleket használjuk a 10, 11, ... számjegyek 
helyett 

egyetlen százalékjel 

a kapcsoszárójelek közti karakterhalmazból álló leghosszabb 
nem üres input sztring 

a kapcsoszárójelben álló karaktereket nem tartalmazó leg- 
hosszabb nem üres input sztring 


4.9. táblázat: Az sscanf eljárás konverziós kódjai 


A filepos, feof, fflush és az fremove fájlkezelő rutinok az eddig megismert 
alacsony szintű formázott [I/O rutinokkal együtt az adatok be- és kivitelénél 
, építőkockákként" alkalmazhatók. A lehetőségek megvilágítására néhány példa 
következik. 


Formázott numerikus adatok 


Az első példa adott formátumú numerikus adatok exportjáról és importjáról 
szól. Legyen adott a (—3, 3) intervallumba eső lebegőpontos véletlenszámokból 
álló mátrix. Tegyük föl, hogy ezt soronként szeretnénk kiíratni egy fájlba, még- 
pedig úgy, hogy a mátrixelemek tabulátor karakterekkel elválasztva 3 jegyű, a 
tizedespont után 2 jegyet tartalmazó, tudományos jelölésmóddal fölírt számként 
jelenjenek meg: 
5 data :5 matrix( 4,3, 
s  (i,j) -2 stats[(random, uniform[-3,3]]02; 
—.435481985 — —1.073335840  —.938201558 
—.154463138 — .350752314 1.480522983 
—2.807626668 — 1.337844731 .625833683 


1.473480224  —1.441128284 —1.139547077 


data :— 
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5 data :— convert( data, listlist ): 

5 fd :— fopen( datafile, WRITE, TEXT ): 
5 for row in data do 

5 for item in row do 

5 fprintf( fd, "/3.2eVt", item ) 

5 od: 

5 fÍfprintf( fa, Mm" ): 

3.  öds 

S 


fcelose( fd ): 


A datafile tartalma ezek után: 
s  ssystem("cat datafile") [2]; 


-4.35e-01  -1.07et100  -9.38e-01 
-1.54e-01 3.50e-01 1.48et00 
-2.80e100 1.33et00 6.25e-01 

1.47et00 — -1.44e4t00  -1.13et00 


Importáljuk ezeket az adatokat kétféle módon listák listájaként: az első esetben 
a lista álljon az első két oszlopból, a második lista tartalmazza az utolsó oszlopot: 


s fd :— fopen( datafile, READ, TEXT ): 


s line :— tableO: nline :— 0: 
, while not feof( fd ) 
5 do 
, nline :— nline 1 1: 
s  linelnline] :— fscanf( fd, "/ett/evt/rer ) 
5 od: 
5 newdatai :— [ seg( linelk], k-i..nline-1 ) ]; 
newdotai :— [[—.435, —1.07], [—.154, .350], [—2.80, 1.33], (1.47, —1.441] 


Ugyanez mátrix-jelölésmóddal: 


5  setattribute( newdatal, matrix ); 


—.435 —1.07 / 


—.154 — .350 
—2.80 — 1.33 
1.47 —1.44 


Most visszamegyünk a datafile elejére, és beolvassuk a, harmadik oszlopot: 
5 filepos( fd, 0 ): it rewind file 


5 line :— table(): nline :— 0: 

5 while not feof( fd ) 

5 do 

, nline :— nline t 1: 

s  linelnlinel] :-— fscanf(fd, /revt/revtfe " ) 
5 od: 

s 


newdata2 :— [ seg( linelk], k-i..nline-1 ) 1]; 
newdata2 :— [[—.938], [1.48], [.625], [—1.13]] 


4.5. Alacsony szintű I/O 119 
s fclose( fd ): 


Vegyes numerikus és szöveges adatok 


Fájlból való importálásra alternatív módszerként a readline parancs is hasz- 
nálható. Alkalmazását vegyes (numerikus és szöveges) adatokon is bemutatjuk. 
Először előállítjuk és egy fájlba exportáljuk a szükséges adatokat: 

s data :— [ seg( [ d.i, stats[random uniform[(O0,1]1() ], 

s i-t..5 ) ]: 

5 writedata( datafile, data, [string float) ); 

5 ssystem("cat datafile") [2]; 


di .797179 
d2 .039169 
d3 .088430 
d4 .960498 
d5 .812920 


Ezután importáljuk az előző adatokat: 


5  filepos( datafile, 0 ): tí ensure starting point 
5 lines :— table(): niine :— 0: 

s line :— readline( datafile ): 

5 whileline€C0 

5 do 

pi nline :— nline t 1: 

5 linesÍ[nline] :-— sscanf( line, "/s/f" ): 

s line :- readline( datafile ): 

53. ödé 

5 newdata :— ( seg( linesík], k-1..nline ) J]; 


newdata :— [[d1 , .797179], [d2, .039169], [d3, .088430], [d4 , .960498], 
[d5 , 812920] 


Különböző fajtájú adatok 


Utolsó példánk nem egynemű adatokkal végzett I/O műveleteket mutat be. 
Adatfájljaink a számok mellett sokszor a fájl tartalmát, létrehozásának dátu- 
mát, szerzőjét stb. leíró fejlécet is tartalmaznak. Továbbá az adatok formátuma 
az egész adathalmazon belül is változhat. Az agriculture fáj! adatai a Holland 
Statisztikai Hivatal WWW szerverének mezőgazdasági adatbázisából származ- 
nak (URL: http://www.cbs.n!l). A fájl tartalma a következő: 


Title  Livestock in Holland in Recent Years. 
Origin Statistics Netherlands (http://www.cbs.nl) 


Livestock unít 1985 1990 1993 1994 
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Cattle mln 5.2 4.9 4.8 4.7 
Pigs mln 12.41 13.9 15.0 14.6 
Sheep mln 0.8 TT 1.9 1.8 
Chickens mln 90 93 96 92 
Horses 1000 62 70 92 97 
Goats 1000 12 61 57 64 


Most importáljuk és földolgozzuk ezeket az adatokat: 


- 
- 


VM 


SZ ONDO ÉN BONES AGNESEM 


4.6. 


fd :- fopen( "agriculture", READ, TEXT ): 
readline( fd ); tt read title 


Title Livestock in Holland in Recent Years. 


title :— substring( ", 7..length(") ); 
title :— Livestock in Holiand in Recent Years. 


readline( fd ); it read origin 
Origin Statistics Netherlands (http : //www.cbs.nl) 


origin :— substring( ", 8..length(") ); 
origin :— Statistics Netherlands (http : //www.cbs.nl) 


readline( fd ): it read empty line 
fscanf( fd, "/s/s/d/d/d/d" ); 


[Zivestock, unit, 1985, 1990, 1993, 1994] 


header :— ": 

readline( fd ): ti read empty line 

livestock :— table(): 

while not feof( fd ) 

do 

line :5— fscanf(fd, /sZa/f/f/f/f ): 

if line CC 0 then 

line :— subs( mln-1076, line ): 

fcetr :— line[(21: 

livestock[1line[1]1 :— map( z -2 fctrsz, line[3..6] ) 
3 úg Ő 

od: 

livestock[ [Horses], livestock(Sheep]; tt two examples 


[62000., 70000., 92000., 97000.J], 
(800000.0, .17000000 107, .19000000 107, .18000000 107] 


Kódgenerálás 


Harmadfokú polinomok gyökeit a Maple solve eljárásával találhatjuk meg. 


pl 


polyegn :— x73 - axrx-—1; 
3 


polyeen:— 31" —ax-1 
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5  sols:5— solve(polyegn, x ); 


sols :— a 91 32 zet 


911/87 
BREE er aRNÁR BR BE e) 17 sad so LR MEANT, 
12 og is "a 6 911/8 
1 1/3 a 1 1 1/3 a 
—— 91" — ——I -91" —2 
B" 911/8 2 v3(59 a1175) 


951 :— 108 34-12 V—12a? 14-81 


Ha a Maple által kiszámolt hasonló analitikus eredményeket egy FORTRAN 
programban akarjuk föhasználni, a fortran eljárással a Maple-lel lefordíttathat- 
juk őket. Egyszerre az összes megoldásra ez nem lehetséges, mivel a FORTRAN- 
ban nem létezik a kifejezés-sorozat adattípus. Ezért vagy minden megoldást 
külön kell lefordítani, vagy előre el kell helyezni a megoldásokat egy vektorban 
vagy listában. 

s soll :— sols[í]; $ take 1st solution 


1 a 
soll — ZÜ084124/—13a5 481)/8 343 ——— — o ezs —7 
( ) (108 -- 12V—-12 a8 -- 81)1/8 


6 

Ha a fortran eljárás hívásakor az optimize kulcsszót is megadjuk, akkor (a 
lehetőségek szerint) optimalizált FORTRAN kódot kapunk. Ha duplapontos- 
ságú FORTRAN kódot kívánunk, a precision és a mode opciókat állítsuk be 
a double értékre. A precision opció a lebegőpontos számok, a mode opció a 
matematikai függvények fordítását vezérli: 

s fortran( soll, ?"optimized? , 

s  precisionsdouble, mode-double ); 


ti — axrr2 
t6 - (108.DO-t12.DOxdsgrt(-12.DOxrt1xat81.DO)) kxr(1.DO/3.D0) 
t9 - t6/6.D0O42.DOxa/t6 


A cost eljárással vizsgálható meg, hogy mennyire volt sikeres a kódoptimalizá- 
ció: 
s readlib( cost )( soll ); 
5 additions 4 15 multiplications -H 8 functions 


5  cost( optimize(soli) ); 


3 additions - 8 multiplications -t divisions -- 4 functions 
4 4 assignments 


Figyeljük meg, hogy a Maple csak a belső reprezentáció szerinti fölírásban ke- 
resi a közös tényezőket és hatványokat. Például az alábbi kifejezésre triviálisan 
alkalmazható 
def 
(a 4 b--c)(a 1 b) — t—-bítc (atot 


egyszerűsítést nem találja meg a Maple. 
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5 optimize( (atbtc)r(brc) ); 
13 —(atb-itc)(bt e) 


A C Maple eljárás C kódot generál. Ha az outputot a file.c fájlba szeretnénk 
átirányítani, kiegészítésképpen használjuk a filename — file.c argumentumot. 
Az előzőekben tárgyalt fortran függvénynél is megvan ez a lehetőség: 


5 readlib( C ): $ load the C routine 
5 C( soll, filename — "file.c" ): it generate code 


Egy fájlban több formulát is tárolhatunk: 
5 C( soli, ?optimized?, filename — "file.c" ): 


Az alábbi listázásból látható, hogy a rendszer az első megoldás optimalizált kód- 
ját hozzáfűzte a fájl végéhez (az első sort három részre tördeltük, hogy kiférjen 
az oldalon). 


t0 - pow(108.0412.Orsgrt(-12.Orakratat 
81.0) , 1.0/3.0)/632.Ora/powC(108.0-r 
12.Oxsgrt(-12.Okratratat81.0),1.0/3.0); 

ti — ara; 

t4 - sgrt(-12.Oxrt1ra181.0); 

t6 - pow(108.0412.Ort4,1.0/3.0) ; 


A fortran és a C rutinok alkalmazhatók névvel bíró tömbökre, egyenletek lis- 
táira és komplett Maple eljárásokra is. A következő példák a kódgenerálásnál 
használható további opciókat is demonstrálják. 


5 fortran( [ x-Pixrln(t), y5-x72-sagrt (gamma) J], 
5  precision-single, mode-complex ) ; 


0.3141593E1xrclog(t) 
xtk2-csgrt(0.5772157E0) 


x 
y 


5 fortran( [ p-x, g-x72, r-ptag ], ?optimized? ); 


5 
xtkr2 

xtag 

Az utóbbi értékadások megkaphatók a következő Maple eljárás FORTRAN nyel- 
vű megfelelőjének segítségével is: 


Ha Hi 
MAI 


5 f :5— proc(x) global p,g,r: 
2 pb :- XI: g e xazi TT r-ptg ends 
5 fortran( f, ?optimized? ); 


real function f(x) 
real x 


common/global/p,g,r 
real p 
real g 
real r 
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P- x 

g - xkrr2 

r 5 xtg 
return 
end 


A változók kezelésénél még ennél is rugalmasabb a rendszer. Például előírhatjuk, 
hogy a p legyen lokális változó: 

5 fortran( [ p-x, g-x72, r-ptg 1], ?optimized? , 

s locals-[p)] ); 


xkx2 
xtg 


g 
r 


HO H 


A most következő, kicsit látványosabb példában a, Maple eljárásból előállított 
FORTRAN kód a tömbök kezelését, az output nyomtatását és a hibakezelést 
illusztrálja: 


v 


trigvalues :— proc(x) 
local i,trigs: global Digits: 
if not type( x, numeric ) then 

ERROR( "non-numeric input" ) 
elif Digits c 15 then 

Digits :— 15 
fi: 
trigs :— array( 1..4, sparse, 

C (1)ssin(x), (2)-cos(x), (39-tan(x) 1] ): 
for i to 4 do print( trigs[i) ) od: 
trigs 

end: 
fortran( trigvalues, precision-single ); 


MET NETEN 


subroutine trigvalues(x,creai. par) 
real x 
real creat.par(4) 


integer i 
real trigs(4) 


common/global/Digits 
integer Digits 


if ( .not. type(x,numeric)) then 
write(6,kr) "non-numeric input? 
call exit(0) 


else 
if (Digits .1t. 15) then 
Digits — 15 
endif 
endif 
trigs(1) - sin(x) 
trigs(2) — cos(x) 
trigs(3) - tan(x) 
trigs(4) - 0 
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do 1000 i- 1,4,1 
write(6,r) trigs(i) 
1000 continue 


creaNipar(1) 
creat.par (2) 
creai.par(3) 
creatpar (4) 


return 
return 
end 


trigs(1) 
trigs(2) 
trigs(3) 
trigs(4) 


1 0AN LEGRN ! ERRRR 1 


A 4.10. és a 4.11. táblázat a fortran, illetve a C eljárás opcióit sorolja föl. 


Opció 


Jelentése 


Default 


digits —n 
filename — file 
gilobals -—g 


locals -/ 
mode — type 


optimize 
parameters -—Dp 


precision —-p 


a konstansokat n jegyre ke- 
rekítse 

az outputot a file fájlhoz 
fűzze hozzá 

9 legyen globális változó 

l legyen globális változó 

a függvényeket type típu- 
súra konvertálja (single, 
double,  generic vagy 
complex) 

optimalizált kód 

a számítási folyamat p pa- 
raméterének megadása 

a p pontosság megadása 
(single double) 


7, 16 decimális jegy 
terminál 


minden változó globális 
semmi sem lokális 
single 


nincs optimalizálás 
értékadás baloldalán nem 
szereplő változók 

single 


4.10. táblázat: A fortran eljárás opciói 


A Maple a latex eljárást kínálja BTFX kód generálására. Ha ugyanabba a fájlba 
egymás után több formulára akarunk EÉTEX kódot generálni, akkor használjuk 
az appendto eljárást. A következő példában az előző egyenlet két megoldá- 
sának kódját állítjuk elő. Azt is megmutatjuk, hogyan lehet a latex eljárást 
hozzáigazítani az igényeinkhez. A ETRX matematikai módjába való átmenettel 
egészítjük ki a kódgenerálást. Föltételezzük, hogy a karakteres alapú Maple 
fölhasználói interfészt használjuk. 


6. álb. ZA." ABE" elő ada út" 


fensure that all remember tables are present 
readlib( latex ): 


"latex/special names" [/beginmath?] 


AN beginífdisplaymath) " : 
"1latex/special names" [/endmath?] :- 
Ny endídisplaymathl " : 
tt suppress messages, prompts, etc. 


4.6. Kódgenerálás 


VAN YN 


guit 


interface( guiet-true ): 
appendto( "file.tex" ): 
latex(beginmath) ; latex(sols[1]); latex(endmath) ; 
writeto(terminal); interface( guiet-false ); 


Jelentése 
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Default 


ansi 

digits —-n 
filename — file 
globals —-g 
locals -—l 
optimize 


parameters —p 


precision -Dp 


ANSI C kompatibilis kód 


a konstansokat n jegyre ke- 
rekítse 

az outputot a file fájlhoz 
fűzze hozzá 

g legyen globális változó 

l legyen globális változó 
optimalizált kód 

a számítási folyamat p pa- 
raméterének megadása 

a p pontosság megadása 
(single double) 


a — Kernighan-Ritchie-féle 
cc fordító 
7, 16 decimális jegy 


terminál 


minden változó globális 
semmi sem lokális 

nincs optimalizálás 
értékadás baloldalán nem 
szereplő változók 

single 


4.11. táblázat: A C eljárás opciói 


Amennyiben a, screenwidth interface változó értéke az alapértelmezés szerinti 
80, akkor a file.tex így néz ki: 


tbeginfdisplaymathj 
1/6864, tsagrt [3] (108H124,Xsgrt(-124,1ah(34H-81)H2V, (Mfrac(al(vsgrt [3 
1(108r124,Nsart (-124,(aPr(3H81HH 


Vvendídisplaymathl 


A ÉTEX által kiszedett formula a következő: 


LOV MATA -Á AB 4 széssőssszsssez 
4108 -- 12 V—12 a? -- 81 


Ha kényelmetlennek találjuk a latex(beginmath) és a latex(endmath) utasí- 
tások hozzáadását minden egyes alkalommal, akkor írhatunk egy kis programot: 


mylatex 


:5 proc(x) 


global "1atex/special names" : 


readlib(latex) : 


"1atex/special names" [/beginmath?] :- 
NAbeginídisplaymath) " : 
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"1latex/special names" ("endmath?] :- 


Sy endídisplaymathj) " : 
latex(beginmath) ; latex(x); latex(endmath) ; 
end; 


és hívhatjuk a mylatex eljárást a rendes latex helyett. A 
, macro( latex-mylatex ): 


utasítás végrehajtása után a rnylatex helyett használható a latex név is. Ha 
a formulák túl nagyok ahhoz, hogy elférjenek egy sorban, akkor a kapott IÉTEX 
fájlt magunknak kell átszerkeszteni és a formulákat sorokra tördelni. A munka- 
lapos interfész esetében ez automatikusan megtörténik. 

Teljes Maple munkalapok is elmenthetők EIEX formátumban. A programmal 
adott (és az ftp.maplesoft . com-ról ftp-vel is letölthető) stílusfájlok használa- 
tával így szépen kiszedett dokumentumokat kapunk. Nagyobb képletek esetén 
ez még kényelmesebb, mivel lehetővé teszi a sorszélesség interaktív beállítását, 
és gondoskodik a formulák ennek megfelelő részekre tördeléséről. 


4.7. A Maple hozzáigazítása igényeinkhez 


Szöveg alapú fölhasználói interfész esetén a Maple hosszabb számítások közben 
üzenetet küld a fölhasznált memóriáról és a számítási időről. Ezek az üzenetek 
arról informálnak bennünket, hogy a Maple szekció kezdetétől fogva mennyi 
számítási időt és memóriát használtunk. Az üzenetek formátuma a, következő: 


bytes used — cz53,  alloc— cys, time — cz2 


Itt cr5 egyenlő a Maple szekció kezdete óta fölhasznált byte-okban meghatá- 
rozott összes memóriával, cy5 a pillanatnyilag allokált memória mérete, c2z5 
pedig a Maple szekció kezdetétől eltelt, másodpercekben kifejezett számítási 
időt mondja meg. Nézzünk egy numerikus integrálás közben kiadott üzenetso- 
rozatot: 


5 evalf( Int( 1n(x)s1n(1-x), x5s0..1 ) ); 


bytes used-1010508, alloc-851812, time-0.41 

bytes used-2010880, alioc-1572576, time-1.05 
bytes used-3011416, al1loc-1834672, time-1.75 
bytes used-4011692, alloc-1900196, time—-2.47 


.3550659332 


Karakteres fölhasználói felület esetén a kernelopts eljárással szabályozhatjuk 
a bytes used üzenetek gyakoriságát. 
5  oldprintbytes :— kernelopts( printbytes — false ); 
oldprintbytes :— true 
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Ezután nem kapunk bytes used üzeneteket. A munkalapos interfész esetében a 
megfelelő menüpontok kijelölésével dönthetjük el, hogy a munkalap alján legyen- 
e ilyen üzenet-régió. Az előző paranccsal egyszerre mentettük el és állítottuk át 
a printbytes kernelopció értékét. Ezért a régi érték könnyen visszaállítható. 


5  kernelopts( printbytes — oldprintbytes ): 


Bár egy Maple szekción belül a fölhasznált komputerszavak száma folyamatosan 
nő, ez mégsem jelenti azt, hogy az aktuálisan használt memória mérete is ilyen 
gyorsan növekszik. A rendszer időnként szemétgyűjtést (, garbage collection") 
végez, hogy a szükségtelen objektumok eltakarítása után felszabaduló memóriát 
újra föl tudja használni. Minden szemétgyűjtéskor megjelenik a képernyőn a 
bytes used üzenet (ha csak le nem tiltottuk). A szemétgyűjtést mi is kérhetjük 
a ge eljárás segítségével: 
3. pel: 


A gcfreg kernelopcióval vezérelhetjük a szemétgyűjtések gyakoriságát. Ha ezt 
írjuk: 
5: oldfreg :— kernelopts( gcfreg - 1076 ); 
oldfreg : 2500000 


akkor minden újabb egy millió szó fölhasználása után történik szemétgyűjtés. 
Látható, hogy a default érték 250000 szó (1 szó 4 vagy 8 bájtot jelent, az adott 
gépen ezt a kernelopts(wordsize) paranccsal deríthetjük ki). 

Ha a szöveges interfész esetén zavaróak ezek az üzenetek, a rendszert két 
módon is elhallgattathatjuk: 


5,  kernelopts( printbytes — false ): 


Ez a korábban megismert módszer. Á bytesused, bytesalloc és a cputime 
kernelopciókkal a rendszer memória- és időfölhasználása bármikor lekérdezhető 
(a további kernelopciók megismeréséhez írjuk be a ?kernelopts parancsot). 


5  kernelopts( bytesused , bytesalloc, cputime ); 
64595100, 5504016, 37.469 


A másik drasztikusabb módszer a Maple elcsendesítésére: 


5  interface( guiet — true ): 


Ennek mellékhatásaként a Maple prompt is eltűnik, és ha az eredményeket a 
writeto-val fájlba írjuk, az input sorok sem kerülnek be a fájlba. A Maple 
számára a hallgatás abszolut hallgatást jelent! 

Ugyanezzel az interface eljárással az output megjelenítését is befolyásolhat- 
juk. Kívánságunk szerint változtathatjuk a prompt jelet, letilthatjuk, hogy kö- 
zös részkifejezéseket a Maple automatikusan cimkézzen, vagy balra igazított 
egydimenziós output-formátumot írhatunk elő. Néhány példa: 


5 interface( prompt — "---5" ); $ an arrow as a prompt 
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---5 solve( x734txt1, x); $labels for common subexpressions 


-1942 a 2 
6" (108-412./93)1/87 
B-T ejzae tet öt ng 
5982 — ENEENEETEÁN AIVAt-Gna s ei] 
1 
4 azás (108 -k 12 V93)1/8 


952 :— (108 -- 12 V93)/? 


---5 interface( labeling - false ); t no labels anymore 


---2 solve(x-34txt1,x); 


kt. (108 -- 12 V93)/8 4. state 8e8 (108 -- 12 V93)1/8 
uk 
— (108-412/93)1/5 
s 2 I/3(-z (108 -- 12 /93)/8 — HET 
73 (108 4- 12 V/93)1/ — TETTETETT 
li FGL KIB 4 18 AB (108 -- si /551/8) 


---5 Example :— (1-x)/(1tx): 


---? Example; ft 2-díimensional layout 
1-2 
142 
---;? interface( prettyprint — 0 ); 
---2 Example; tt 1-dimensional layout 
(1-x)/ (14x) 


---5 tt reset prettyprint to high resolution 
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---5 interface( prettyprint — 2 ): 
---5 interface( verboseproc — 2 ): it make Maple verbose 
---; readlib( unassign ); tt procedure body is printed 


proc() 

local i, j, n; 

global assign; 

options "Copyright (c) 1990 by the University of Waterloo. 
AI1 rights reserved. "; 


i :— false; 
for n in args do 
if n - "assign? then i :-— true 


elif type(n, indexed) then "unassign/indexed!" (n) 
else assign(n, n) 
fi 
od; 
if i then assign :-— evaln(assign) fi; 
NULL 
end 


---3 interface( verboseproc — 3 ): 
---2? tt make Maple more verbose 
---5 readlib( ln ); 


proc(x) 
options "Copyright (c) 1992 by the University of Waterloo. 
All rights reserved. "; 
if nargs 2 1 then ERROR("expecting 1 argument, got ".nargs) 
elif type(x, ?"complex(float)?) then evalf(?1n? (x)) 
elif x - 0 then ERROR( "singularity encountered") 


elif type(x, "function?) and op(0, x) - exp and Im(op(1,x)) - 0 
then op(i, x) 

elif type(x, "rational?) and numer(x) - 1 and 0 £ x 
then -l]n(denom(x)) 

elif type(x, ?"constant"numeric?) and signum(op(i, x)) 5 1 
then op(2, x)t1ln(op(i, x)) 

elif type(x, ?"7"?") and (type(op(2, x), ?"integer?) 

or is(op(2, x), ?"integer?)) and (signum(0O, Re(op(i, x)),1) -— 1 


or member(signum(0, Im(op(i, x)), 0), (-i, 11) 
then op(2, x)tln(op(i, x)) 


else 1n(x) :— ?1n?(x) 

Ta 

end 

tt (-1) — (-1)7(1/295xPi 

$ (1) —-0 

t (infinity) - infinity 

d ((-1)7C(1/2)) - 1/2x(-1)7(1/2)sPi 

$ (-(-1)7(1/2)) — - 1/2r(-1)7(1/2)xPi 
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Az utolsó két példa azt mutatja, hogy a könyvtári függvények kódja emléke- 
zőtábláikkal együtt megtekinthető. Csak a kernel függvényeinek C kódja nem 
hozzáférhető. 

Egy kézhezálló interfész változó az errorbreak. Azt írja elő, hogy mi történ- 
jék, ha a rendszer egy hibás input sort olvas be. Lehetséges értékeit a, 4.12. táb- 
lázatban soroltuk föl: 


Eredménye 


a hiba jelzése után a beolvasás folytatódik 
szintaktikus hiba után a beolvasás megszakad 
bármilyen hiba hatására megszakad a beolvasás 


4.12. táblázat: Az errorbreak értékei 


A ?interface parancs megadja az összes interfész változót, lehetséges értékeikkel 
és fölhasználási területeikkel együtt. 


4.8. Gyakorlatok 


1. Állapítsa meg az Olvasó, hogy számítógépén hol található a Maple könyvtár, 
és olvassa be az isolate.m fájlt a könyvtárból két módon: 


(a) a read paranccsal 


(b) a readlib fölhasználásával, miután a verboseproc interfész változót ket- 
tőre állította. 


2. Vizsgáljuk meg az echo interfész változót. 


- Először is hozzuk létre a readfile nevű fájlt a home könyvtárunkban. A 
fájl tartalma legyen egyetlen Maple parancs: 


b :— 2; 


- Másodszor hozzuk létre a testfile fájlt a home könyvtárunkban. A fájl 
tartalma legyen a következő utasítássorozat: 


interface( echo — X ); 
a :— 1; 

read readfile; 

guit 


- Harmadszorra, ha az általunk használt platform megengedi, akkor indítsuk 
el a Maple-t a home könyvtárunkból a következő paranccsal: 
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maple -£ testfile 


úgy, hogy az X értékét a testfile-ban rendre 0, 1, 2, 3 és 4-re írja át. 


- Végül olvassuk be a testfile-t egy Maple szekcióba a read eljárás segítsé- 
gével, miközben X értékét a testfile első sorában 0, 1, 2, 3, 4-re változtatjuk. 


3. Hozzunk létre egy fájlt a következő tartalommal: 


I :- 1; $ szintaktikusan helyes, de futásidőben hibaüzenet 
x :5— 2; t helyes inputsor 
wrong name :— 3 $ szintaktikai hiba 


y :- 4; $ helyes inputsor 


Az errorbreak interface változó minden lehetséges értékére derítsük ki, hogy 
mi történik, ha a fájlt beolvassuk egy Maple szekcióba. 


4. Tekintsük a következő, három sort tartalmazó adatfájlt: 


1 2 
3 4 
5 6 


Olvassuk be a fájlt, konvertáljuk mátrixszá, transzponáljuk a mátrixot, és nyom- 
tassuk ki az adatokat a következő formában: 


1 2 3 
4 5 6 


5. Számítsuk ki az r7" kifejezés második deriváltját, és fordítsuk le a kapott 
eredményt FORTRAN-ra. Vizsgáljuk meg a kódoptimalizálás hatását. 


d kez 49 
elzárva CT 
KN 90 ebátátásasa ánál gy 


a ola bálokat asésznn a 


9. 


Polinomok és racionális 
függvények 


A Maple kedvenc matematikai struktúrái a polinomok és a racionális függvények. 
Ez a fejezet bevezeti az Olvasót az egy- és többváltozós polinomok, a, racionális 
függvények használatába, valamint a különböző formák közötti konverziókba. 
A kulcsszavak a következők: legnagyobb közös osztó (gcd), faktorizálás, kifej- 
tés, többváltozós polinomok lexikografikus, illetve fokszám szerinti rendezése, 
racionális függvények normalizálása és parciális törtekre bontása. 


5.1. Egyváltozós polinomok 


A polinomok és a racionális függvények (vagyis a polinomok hányadosai) a Map- 
le rendszer kedvenc adattípusai. A számítógépes algebrai rendszer ezeket nagy 
sebességgel és teljes általánosságban kezeli. Az egyszerűség kedvéért kezdetben 
egyváltozós polinomokat tekintünk (a változót r-szel jelöljük). Matematikai 
szempontból ezek ekvivalensek az 


4 2 
ani" hanam 3. a2r? hair ag 


alakú szimbolikus kifejezésekkel. Ezt a polinom kifejtett kanonikus alakjának, 
az ag, a1,.-.dn-1, ún mennyiségeket a polinom együtthatóinak nevezzük. Ha 
an Á 0, akkor an-t főegyütthatónak, az n természetes számot pedig a polinom 
fokszámának nevezzük. Később látni fogjuk, hogy a polinomok együtthatóira 
nem kell túl sok kikötést tennünk, de pillanatnyilag arra az esetre szorítkozunk, 
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amikor ezek , közönséges" (például egész, racionális, valós vagy komplex) szá- 
mok. Azt mondjuk, hogy az z egy polinomja gyűjtött alakú, ha az z változó 
összes megegyező kitevőjű hatványának együtthatói a polinomban összegyűjtve 
(csak egyszer) szerepelnek. A kifejtett kanonikus alaktól mindez pusztán ab- 
ban különbözik, hogy az z különböző hatványai nem föltétlenül fokszám szerint 
csökkenő sorrendben következnek. Egy példa: 

2 restart; 

53 pi :— -34x 4 7rx72 - 34x73 41 7rx74;, í collected form 

pl :——334722—3294 77! 


5 type( pl, polynom ); 
true 


5 leading coefficient — Icoeff(pl1); 
leading. coefficient — 7 


5 degree -— degree(p1); 
degree — 4 


5 p2 :— 5rx-5 14 31x73 t x72 - 2kx t 1; 
p2:—57733274227—2ri1 


5 2xpl - 3kp2 4 3; 
1172—1579 4147" — 1575 


5 pi: p2; 
(—32-4722—327 4729) (5727 332934 227—21141) 


5  expand("); 
—17zf6112t— 2077 41322—324 5617 447? — 1578 3 35 99 


A számok szorzásával ellentétben a polinomok összeszorzását a Maple nem hajt- 
ja végre automatikusan. Erre külön utasítanunk kell az expand eljárással. Ez 
hátrányosnak tűnik, de valójában nem az. A (37 5)" faktorizált formát jobb 
változatlanul hagyni a számítás során, amíg csak lehetséges. Ez sokkal világo- 
sabb, mint 


59049 z!9 4. 984150 2? -3- 7381125 2? - - . . 3. 58593750 z 1 9765625, 


a polinom kifejtett formája. Bár a Maple két polinom szorzatát helyesen szá- 
molja ki, a válaszban szereplő tagok sorrendje általában se nem növekvő, se nem 
csökkenő. Mindez gyakran vezet nehezen kiolvasható és értelmezhető kifejezé- 
sekhez. A polinomok tagjait a rendszer hatékonysági megfontolásokból (számí- 
tási idő, memória fölhasználás) nem rendezi valamilyen előre definiált standard 
sorrendbe. Ha a tagokat valóban az z hatványai szerint csökkenő sorrendben 
akarjuk látni, akkor a sort parancsot kell használnunk. 


5. sort(W; 
3529 — 15233. 5617 — 1777 3425 41121 — 2029 41312 —37 
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A sort megváltoztatja a polinomnak megfelelő belső adatstruktúrát. Ez szük- 
séges is, hiszen a Maple bármely kifejezésből vagy részkifejezésből csak egy pél- 
dányt tárol a memóriában, pontosabban az egyszerűsítési táblájában. Minden 
egyes új kifejezésre a rendszer , belső algebrája" ellenőrzi, hogy a kifejezés ele- 
mi műveletekkel egyszerűsíthető-e egy olyan kifejezéssé, amely már korábban 
előfordult, és így megtalálható az egyszerűsítési táblában. Ha ez az eset áll 
fönn, akkor a Maple figyelmen kívül hagyja az új kifejezést, és az egyszerűsítési 
táblában találhatót használja helyette. Az ellenkező esetben a kifejezést összes 
részkifejezéseivel együtt elhelyezi az egyszerűsítési táblában. Összeg tagjainak, 
illetve szorzat tényezőinek megváltozása példa olyan elemi egyszerűsítésekre, 
melyeket a kifejezések matematikai ekvivalenciájának vizsgálatakor használ a 
rendszer. 

5 restart; 

5 p :— 1txtx734x72; t$ random order 

p-1litarrta áz? 


5  x734x72txt1; t no rearrangement, so still random order 
142423 42? 


5 g :— (x-1)r(x73tx72txt1); $ the same for subexpressions 
a—(2—1(14t24 2-2?) 


s sort( p ); $ rearrange w.r.t. descending degree order 
37-47tri41 


5 g; t subexpression of g has also changed 
(z—1) (2? 42? 1-r11) 
A Maple számos eljárást kínál a polinomok kezelésére. Néhányat közülük meg- 


vizsgálunk. Amíg mást nem mondunk, pl és p2 jelentse a korábban bevezetett 
két polinomot. 


5 )pi? -— pi, "p2? — p2; 
p1——324377"—32?4 772, p2 —5235313294237—2Tt1 
A coeff eljárással a polinomot alkotó valamely egytagnak vagy z valamely hat- 
ványának együtthatóját határozhatjuk meg: 
5. eoefíi piás xa ) "e0osff(4b2; Xs 224 
0 L 


A főegyüttható az lcoeff, az r" együtthatója a tcoeff segítségével kapható meg: 
5  1lcoeff( p2, x ), tcoeff( p2, x ); 
5, 1 
Az együtthatók és a nekik megfelelő hatványok sorozatát a coeffs eljárás szol- 
gáltatja: 
s  coefÍfs( p2, x, "powers? ); 
2 4 35.150 
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5 powers; tt assigned in the previous command 
5 


z,1, 2723 oz 
A Maple az Icoeff, tcoeff, coeffs és a degree eljárások használatánál föltételezi, 
hogy a polinomok gyűjtött alakúak. 
5. .]Icoeff( XX 2. xi(x-1), x Ji 
0 


5  coeffs( (x72-1) x (x7241), x ); 
Error, invalid arguments to coeffs 


5  coeffs( collect((x72-1)k(x7241),x), x ); 
—1,1 


5: degree( x72 - xr(x-1), x ); 
2 


A polinomokkal kapcsolatos egyik legalapvetőbb művelet a maradékos osztás. A 
Maple-nek ennek végrehajtására két eljárása is van, a guo és a rem (guotient 
— hányados, remainder — maradék). 
2 új ss gúot BZ, Pia te? Ag 
425 4 15 

pá stét 
A guo hívásánál a negyedik argumentum megadása opcionális, amennyiben 
szerepel, a polinomosztás maradékát kapja értékül. 


ped 9 
3 53 
1—— 2? 423? — —g 
49 49 
5  testeg( p2 -— expand(grpitr) ); tt test eguality 
true 
5  rem( p2, pi, x, ?g? ); 
53 93 
Tess 3 EPE e viszi 
49" tT 49" 
5 g; tt guotient has been set in previous command 
5 4 15 
7 49 


Ne feledkezzünk meg az aposztrófok használatáról ezen eljárások negyedik ar- 
gumentuma körül, hogy ezzel elnyomjuk az argumentum nem kívánt teljes kiér- 
tékelését. 
Egy másik fontos függvény a ged, amely a racionális számtest fölötti két, 
polinom legnagyobb közös osztóját határozza meg: 
5 gca( pi, p2 ); 
x4I1 
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A legnagyobb közös osztó meghatározása olyannyira fontos művelet a külön- 
böző matematikai számítások során, hogy a számítógépes algebrai rendszerek 
tervezői komoly erőfeszítéseket tettek hatékony GCD algoritmusok tervezésére 
és implementálására (v.ö. [37, 76, 117]). 

Még bonyolultabb algoritmus a polinomok szorzattá alakítása (faktorizáció- 
ja). Az érdeklődő Olvasónak [112, 114, 115] tanulmányozását javasoljuk. A 
factor eljárás a racionális együtthatós polinomokat (0 fölött) irreducibilis po- 
linomok szorzataként írja föl: 

5  polynomial :- expand( pixrp2 ); 


polynomial :— 
—17xf 119" — 2073? 1 131327 —35 456217 4 4z? — 152? 3 35 7? 


5 factor( polynomial ); 
1(72—3)(553—221 1) (2? 11)? 


5,  factor( polynomial, I ); 
63 —2111)(72—3)z(z41P(z—- I? 
Az egész és a racionális számoktól különböző tartományokban is végezhetünk 
műveleteket polinomokkal (például véges testek, az algebrai számok vagy függ- 
vénytestek fölött). Az előző polinomok faktorizációja ezen tartományok fölött 
a következő: 


e Szorzattá alakítás a Gauss egészek Z[í) gyűrűje fölött: 


s factor( polynomial, I ); 
(55? —2241)(72—3)z(z4 71) (z— 1)? 


e Szorzattá alakítás a 0 és 1 elemekből álló kételemű Z2 test fölött: 


s sort( polynomial mod 2 ); it polynomial over 10,14 
294257 4zt hat ábz 
5  Factor( polynomial ) mod 2; 
(z41D"(2242-t1z 


5  expand(") mod 2; 
2 42542 pit hrtz 


Figyeljük meg a Factor függvényben használt nagybetűt. Használatának célja 
az, hogy elnyomja az egészek fölötti szorzattá alakítást. A. Factor(...) pusztán 
arra szolgál, hogy reprezentálja a polinom szorzattá alakítását, és valójában a 
mod operátor az, ami a tényleges számítást elvégzi. Különben először megkap- 
nánk a polinom faktorizált formáját a racionális számok fölött, és a rendszer 
erre alkalmazná a modulo aritmetikát: 
5  factor( polynomial) mod 2; 
2(z41)(z331)(z211y 
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e Szorzattá alakítás a GF(4) Galois test fölött, pontosabban a 22 testnek 
az 3" 4 3-1 irreducibilis polinommal való algebrai bővítése fölött: 


s  alias( alpha — Root0f( z724z 6141, z ) ): 
5  Factor( polynomial, alpha ) mod 2; 
(z4a)(z rt Df(ztarl)z 


A helykijelölő mechanizmus alkalmazása más polinomokon működő eljárások, 
így a Gcd, Divide, Expand stb. esetében is szokásos. Nézzünk néhány példát: 


5  Gcd(pl,p2) mod 2; 
r3424:11 


5  Expand( pl $ p2 ) mod 2; 
99435 4arrthr hg 


5 g :- Nuo( p2, pl, x, ?r? ) mod 2; 
g:o2711 


37743 tri1 


5  Expand( p2 - gipli - r ) mod 2; 
0 


5.2. Többváltozós polinomok 


Az egynél több változóval rendelkező polinomokat többváltozós polinomoknak 
nevezzük. A következő kétváltozós polinomban az z és y változókat használtuk. 


5  polynomial :— 6rxry75 t í2ry7T4 t 14ry73rx"3 
5 - 15rx"2ry73 t 9rx7T3tyr2 - 30£xiy7T2 - 35$kx74ry 
5 t 18ryrx72 t 21rx"5;, 


polynomial — 6xgyő 3 12y" 3 14y? 2? — 15224? 3 929y? —303y? 
— 3511y 4 18yx? 42127 


Láthatjuk, hogy a Maple-nek nincs különösebb elképzelése a polinom tagjainak, 
illetve az egyes tagokban előforduló ismeretleneknek a sorrendjéről. Elfogadja 
az általunk beírt sorrendet. Ha valami más sorrendet akarunk, ismét a sort 
eljárást alkalmazhatjuk: 


5  sort( polynomial, [x,y], "plex? ); 
2177 —3511y-r1429y? 39279y —15237y? 31832y46ry" —30T7y" 3 12y 
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Itt a tagok valódi lerikografikus (pure lexicographic) rendezését kaptuk, amelyet 
az 

gíyi agyi a ici or (mi andjcj) 
föltételek határoznak meg. Eszerint 


1-2y2y2...312gy2g.... 


Használhatjuk a teljes fokszám szerinti (total degree) rendezést is, amelyet a 
következő módon definiálunk: 


ziyi zaíyi S irjciájor(itj—i4j andi ci) 
Ekkor 
Igyao gő agya zi 0 ag tő vas 


Ez az elrendezés a sort eljárás alapértelmezése. 
5 sort( polynomial ); 


1433y? 4 6ry" 42197 —3511y 492? y" —15a2y? 12y" 31827 y 
— 301y? 
A fenti eredményt tekinthetjük az z határozatlan olyan polinomjának, amelynek 


együtthatói y polinomjai. A polinomot a collect eljárással hozhatjuk ennek 
megfelelő alakra: 


5  collect( polynomial, x ); 


2127 —3521y 4 (14y 494?) 2? 4 (18y— 1599) 2? 4 (—30y? -- 6yő) z 
FI12yt 


Másrészt a polinomial kifejezés fölfogható az y változó polinomjának is: 
5  collect( polynomial, y ); 


6xy" 412y!4(—152? 41429) y? 1 (92? — 30 2) y? 
4 (—352 4183?) y 21 gő 


Sok egyváltozós polinomot kezelő Maple eljárás ugyanolyan jól működik a több- 
változós esetben is. Csak néhány példát mutatunk, azt ajánljuk, hogy az Olvasó 
maga is kísérletezzen tovább a többváltozós polinomokkal. 
5  coeff( polynomial, x73 ), coeff( polynomial, x, 3 ); 
14y?49y?, 14y949y 


5  coeffs( polynomial, x, "powers? ); powers; 
—30y" 1 6yő, 12yI, 18y— 154, 14y? 4 9y?, —35 4, 21 


m, 1, 22, 23, at, 25 


5  coeff( coeff( polynomial, x73 ), y72 ); 
9 
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5 settime :— time(): it start timing 
5 factor( polynomial ); 


(322—513y42y)(7r"t6yt3Ty?) 
5  Factor( polynomial ) mod 7; 
2y(3y"431y-tz?) (21 zy) 
5 cpu time :— (time()-settime) $ seconds; 
cpu. time :— .670 seconds 


Nincs ember, aki meg tudja közelíteni ezt a számítási sebességet. Kérje csak 
meg az Olvasó matematikus barátait és kollegáit, hogy próbálják végrehajtani a 
fenti szorzattá alakítást papírral és ceruzával! Komoly matematikai tudásanyag 
és bonyolult programozási munka áll a factor és a Factor eljárások mögött. 


5.3. Racionális függvények 


Az z ismeretlen racionális függvénye egy olyan kifejezés, amelyet f/g alakban 
írhatunk föl, ahol f és g z polinomja, és g nem egyenlő 0-val. Egy példa: 
9. Ti kzt HR bő E s X2 TF BEK TF Br Í/E 
333712 
2145T116 
A racionális kifejezés számlálóját és nevezőjét a numer és a denom eljárásokkal 
határozhatjuk meg (numerator — számláló, denominator — nevező). 
s  numer("), denom("); 
17-34351142 22145Tt46 


Figyeljük meg, hogy a racionális számokkal végzett számításokkal ellentétben a 
Maple nem egyszerűsíti a, racionális kifejezéseket oly módon, hogy a számláló 
és a nevező relatív prím legyen. Az automatikus egyszerűsítéseket csak akkor 
hajtja végre a rendszer, ha közvetlenül fölismer egy közös tényezőt: 
s ff :— (x-1)xkí; gg :— (x-1)72sg; 
f::(2—1(2243r12) 
99 —(2—19 (324516) 
$ Íf/eg; 
37-137142 
(z—1)(r245T- 6) 
Ha a racionális kifejezést ilyen formára akarjuk hozni, akkor a normal eljárást 
kell alkalmaznunk. Hatékonysági megfontolásokból az eljárás a számlálóban és 
a nevezőben talált tényezőket igyekszik változatlanul megőrizni, amennyiben ez 
lehetséges. 


5  normal( f/g ); 
rtl 


2413 
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5  normal( ff/gg ); 
:t1 


(z43)(2—1) 


Három oka van annak, hogy a racionális kifejezések normalizálását nem végzi el 
a rendszer automatikusan: 


b A normalizálás nem mindig ad egyszerű eredményt. Az (x19990. 1)/(z—1) 
például sokkal tömörebb, mint normalizált formája, a tízezer tagú poli- 
nom. 


b Nagyon időigényes lenne a számolás közben előforduló minden egyes raci- 
onális kifejezésre elvégezni a normalizációt. 


b Elképzelhető, hogy a fölhasználó más műveleteket, például parciális tör- 
tekre bontást akar végezni. 


A fejezetet záró példa azt mutatja, hogyan egyszerűsíthetünk a többváltozós 
racionális kifejezés számlálójában és nevezőjében előforduló közös tényezővel. 
(Ellenőrizzük az eredményt a részkifejezések szorzattá alakításával!) 

s f :— 161xy"3 4 333$xiry72 t 184xy72 4 1624x72ry 
5 4 144xxry t T7ry 1 99rx 1 88: 

s g :z 49xy72 4 28rxT2Ry 4 634xty 4 147xy 4 36£x73 
5 t 324kx72 t 1174xx t 104: 

5 ratexpr :— f/g; 


ratexpr :— 
(161y? 4 3337y? 4 184y? 3 162 19 y 3 1447y 4 77y 71-99 z -- 88) / 
(49 y? 1-2839y 4 631y 1 147y 4 362? 4 322? 41172 4- 104) 


5:  normal( ratexpr ); 
187y-23y? 74-11 
4723 7y-t 13 


5.4. Konverziók 


A polinomok Horner-elrendezése főleg numerikus számolások esetén célszerű, 
ugyanis az aritmetikai műveletek száma ebben az alakban minimális. Ezt a 
korábban definiált pl polinommal illusztráljuk. Az elvégzett összeadások és 
szorzások számát a cost eljárással határozhatjuk meg: 
5 pl; 
—324727—3971 7 


5 readlib(cost)( pl ); 
3 additions -- 10 multiplications 
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5  convert( pi, ?horner? ); 
(—3--(74(—3472)3)2)z 
5  cost(!); 
3 additions 4 4 multiplications 
A racionális kifejezések lánctörtté alakítása szintén meggyorsíthatja a számolást 
(continued fraction — lánctört). 
3 PASA B b Zn kg EDD Zbis 
d 33432 —rit1 
1 321722 323177 
5  cost( ag); 
6 additions t 13 multiplications -- divisions 


5  convert( g, ?confrac?, x ); 


pa 


5  cost("); 
7 additions - 4 divisions 


A hornerform és a, confracform eljárások, melyek a Horner-elrendezést, illet- 
ve a lánctörtté alakítást végzik, a numerikus közelítéseket számító numapprox 
csomagban találhatók meg. Erről részletesebben lásd a 11.2. alfejezetet. 

A racionális kifejezések parciális törtekre való bontását (convert to partial 
fraction) is könnyedén elvégezhetjük a Maple-lel: 


5  convert( g , ?"parfrac?, x ); 
143 11 1 83-472 


87 —3472 371 292211 


A parciális törtekre bontott alakból majdnem közvetlenül kiolvasható a, racio- 
nális kifejezés határozatlan integrálja: 
5  integrate( g, x ); 


1 3 Vá 3 
ezési sosa li — 1]n(z? a.s 
3 In(z) Fk 609 1n(—3 477) 4 58 n(r" 41) 4 29 arctan(z) 


Figyeljük meg, hogy az előző példában a Maple föltételezi, hogy a racionális 
számtestben dolgozunk. Ha lebegőpontos vagy komplex parciális törtekre bon- 
tást kívánunk, negyedik argumentumként adjuk meg a real, illetve a complex 
kulcsszót. 

5  convert( a , "parfrac?, x, real ): 


. :3333333334 .2348111659 


z YT — 4285711286 
Bp. 2 j 
4. tanasrtagg1931879320-t 1.089055174-2 


d2 E 1. 
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5  convert( g , ?parfrac?, x, complex ); 


.3333333334 . .1206896552-- .05172413794 I 
d p z4I 
.1206896552 — .05172413794 I 
- Sejeöázmázezmiáé ette tmgásátszáműkás jel stbezűzttügülők 
r:—1.I 
.2348111659 — .1733520995 107197 
9 2 — 4285714286 
Ha a nevező összes elsőfokú tényezőjét meg akarjuk kapni, az alaptest algebrai 
lezárása fölött is végeztethetjük a fölbontást. Az algoritmus részletes leírása 
[23]-ban található. Ez a teljes parciális törtekre bontás (convert to full partial 
fraction) a következő módon végezhető el: 


3 convértűl ag , "Hidjatírae"; X)s 


5953 sé 581 2 
sz ikelr at, § 2523 58 — — 50467 
32 BET] 3— a 


91 :— RootOf(—347.2—3.27 37.29) 


Az itt szereplő harmadfokú polinom zérushelyeit gyökös kifejezésekként fölírva 
az összegzés elvégezhető. 


5  convert( ", radical ); 
tte EB 
att gl 58 58 , 58 58 
32 609 8 3—I 2-4I 


íj 
Természetesen szabad segítenünk is a Maple-nek, ha sejtjük vagy tudjuk, hogy 
milyen testbővítéssel célszerű próbálkozni. Ezt egyszerűen beírhatjuk negyedik 
argumentumként: 


s 1/ (x4- 5rx72 1 6): 
a! 


31-57? 16 
s  convert( ", "parfrac?, x, sgrt(2) ); 
1 1 V2 1 V2 
A-8 rásiz tá -zr 
s  convert( "", "parfrac?, x, (sart(2)  sart(3)1 ); 
1 V3 1 vV3 1 2 Hl 2 
61—V3 6I11./V3 4zrt4t.V2 4-r1v2 
Utolsó példaként egy többváltozós racionális kifejezés parciális törtekre bontását 
határozzuk meg: 


5 ratfun :— (x-a)/(x75tbxx74-crx72-brckx); 
r—a 


354brt—cr2?—bex 


ratfun :— 
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5  convert( ratfun, ?parfrac?, x ); 


va — —-b9c-bcatbcrztcra—cr tab a bta 
beg e(c- b?) (z? — o) b(c-- b?) (z-4 b) 
s map( collect, ", x ); 
a — (—etBa)z? 4 (betca)jz—be—bca b-a 
beg c(c1 b?) (z3 — c) b(c4 b?) (zt b) 
5  convert( ratfun, "parírac?, x, true ); 
a —bc—catazbt az? 


bexz  bc(ri4bzs3—cr—be) 


Az utolsó parancsban opcionális negyedik argumentumként a true-t adtuk meg, 
ezzel jelezve, hogy nem szükséges ratfun-ra a normal eljárást alkalmazni, és 
hogy a nevező már a kívánt faktorizált alakú. 


5.5. Gyakorlatok 


4 3 ú 
3 hr: —477—4 
1. Tekintsük az ESÉS: za És racionális kifejezést. Alakítsuk át ezt a 
Ma 1 ül 
kifejezést a következő alakok mindegyikébe: 


tegj (z 4 2)(z 1 1)(z— 2) 
r34r2—r—1 
34ar3—47?—4z 
x(r—1)(z- 1)? 
(z 4 2)(z — 2) 
(z—1)(z 7-1) 
x2 1. 
(z—1)(z41) MÉ TESETEST 


(b) 


(c) 


(d) 


2. Tekintsük az előző feladatban használt racionális kifejezést. 


(a) Adjuk meg a kifejezést lánctört alakban. 


(b) Számítsuk ki a parciális törtekre bontását. 


3. Legyen f az 17 4 15 4213 3272? 4322 polinom. 


(a) Alakítsuk f-et szorzattá Z5 és Z7 fölött. 


(b) Miért következik az előző szorzattá alakításból, hogy f irreducibilis az egé- 
szek gyűrűje fölött? (Figyeljük meg a, tényezők fokszámát!) Ellenőrizzük 
a Maple segítségével, hogy f valóban irreducibilis Z fölött. 
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4. Néhány prímtest fölötti faktorizáció: 


Alakítsuk szorzattá (r? — 2)-t Z2 fölött. 


Alakítsuk szorzattá (r? — 3)-at Z3 fölött. 


) 
) 
(c) Alakítsuk szorzattá (ző — 5)-öt Zs fölött. 
) Alakítsuk szorzattá (x?? — 23)-at 723 fölött. 
) 


Mostanra kialakulhatott az az érzésünk, hogy (r? — p) minden p prímre 
szorzattá alakítható. Ellenőrizzük ezt a, sejtést az előzőektől különböző 
prímszámokkal. Meg tudjuk magyarázni az eredményt? 


5. Legyen f — 221—371247144ésg— 2715" —61t—473 33? — 39 — 2. 
Tekintsük ezeket Z7 fölötti polinomoknak, és számoljuk ki f és g legnagyobb 
közös osztóját. Határozzuk meg az sf t-tg — gcd(f, 9) egyenlőséget kielégítő Z7 
fölötti s és t polinomokat is (a legnagyobb közös osztó természetesen Z7 fölött 
értendő). 


6. Ha megkérjük a Maple-t, hogy alakítsa szorzattá az x258 4.21229 ) 1 polinomot 
Z fölött, akkor a rendszer várhatóan panaszkodni fog, hogy nincs elég memóri- 
ája, vagy több órás számolás után még mindig nem találja meg az eredményt. 
Vizsgáljuk meg közelebbről a problémát, és nézzük meg, hogyan segíthetnénk a 
rendszernek. Például az isprime eljárással! kideríthetjük, hogy 1229 prímszám, 
vagyis polinomunk 22? -- xP 3-1 alakú, ahol p prímszám. A Maple segítségével 
határozzuk meg az ilyen polinomok faktorizációját kis prímekre, és fogalmaz- 
zunk meg valamilyen sejtést a szorzattá alakított polinom általános alakjáról. 
Gyakorlott matematikusok tudják, hogy az z" — 1 polinom, ahol n természetes 
szám, Z fölött a $r(r) ciklotomikus polinomok szorzatává alakítható az alábbi 


módon: 
a" —1- [I Ók (7) 
kin 


A ciklotomikus polinomok irreducibilisek Z fölött. Ennek fölhasználásával nem 
lehet túl nehéz korábbi sejtésünk bizonyítása. 


. ,e0t teltig 
KN MT ie i 


179zát HÉ 
4 14 ji 
118 ; 

i 


ta dvattb áz e 
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Belső adatábrázolás és 
helyettesítés 


Ebben a fejezetben részletesen leírjuk a polinomok és racionális függvények bel- 
ső ábrázolását. Mindennek nem csak elméleti jelentősége van. Fontos ugyanis 
ismerni az adatok belső ábrázolását, ha meg akarjuk érteni a különböző adat- 
struktúrák közötti konverziókat és a helyettesítést. 

Általánosítjuk a racionális kifejezések fogalmát, és megmagyarázzuk, hogy a 
polinomokra és racionális kifejezésekre definiált eljárásokat hogyan terjeszthet- 
jük ki általánosabb matematikai struktúrákra. 

Foglalkozunk a típusellenőrzéseket és a formulák részeinek kiválasztását végző 
Maple eljárásokkal is. Ezek a rutinok segítenek a különböző adatstruktúrák 
vizsgálatában vagy a velük végzett műveletekben. 

Végül megvizsgáljuk a szekvenciális és az egyidejű helyettesítést, valamint 
azt, hogy ezek hogyan használhatók kifejezések egyszerűsítésére. 


6.1.  Polinomok belső ábrázolása 


Az előző fejezetben már láttunk olyan Maple eljárásokat, amelyek polinomo- 
kat alakítanak át egyik alakjukból a másikba. Annak érdekében, hogy teljesen 
megérthessük ezeket, valamint az ezután ismertetendőket, közelebbről is meg- 
vizsgáljuk a polinomok belső ábrázolását a Maple-ben. 

Az 34323 —r2— 7 polinomot vesszük példaként. Kifejtett kanonikus alakjának 
belső reprezentációja a 6.1. ábrán látható adatvektorokból áll, ezek gráfelméleti 
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terminológiát használva irányított aciklikus gráfot (DAG — directed acyclic graph) 
alkotnak. A 6.2. ábrán látható adatvektort úgy értelmezhetjük, mintha egy-egy 


intpos ] 1 intneg [1 
Birta [ L] 
product J J—dírpos [2] 
product ] j ] —J— ed ntpos [4 ] 
l 


NIL [NULL 


6.1. ábra: rt 4 3? — 3? — 2 belső reprezentációja 


kifejezést és annak numerikus együtthatóját tartalmazó párokból állna. Az 
adatvektor a következő összeget reprezentálja: 


coeffj x expry - coefla X expra -k re: . 


sum ] expr! coeff1 ] expr2 ] coeft2 


6.2. ábra: Összeg belső reprezentációja 
A 6.3. ábra vektora hasonló fölépítésű. Ez az 


exponl expon2 
expri p X expra P Xs 


szorzatot írja le. 


[Droduct ) expri j expon1 ] expr2 ] expon2] tereezkkezzenezennesen ] 


6.3. ábra: Szorzat belső reprezentációja 


A 6.1. ábrán látható NIL pointer azt jelzi, z szabad változó. Az üres kifejezés- 
sorozatot jelölő NULL Maple kifejezésre mutató pointer azt jelzi, hogy r-hez 
nem rendeltünk semmilyen attributumokat. 

Az első szinten a belső ábrázolás azt mutatja, hogy a Maple négy tag össze- 
gének tekinti az z" -- r? — r2? — x polinomot, a tagok rt, 13, 1? és z rendre az 
1,1,—1 és —1 együtthatókkal. Ezen komponensek belső ábrázolása adatvekto- 
rokkal történik. Meglepőnek tűnhet, hogy az x! tag belső ábrázolásában egy 
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olyan adatvektort használ a rendszer, melynek fejlécében product áll, ezenkívül 
egy pointer mutat az x változóra, egy másik pedig a 4 kitevőre. Ehelyett talán 
a 6.4. ábrán látható adatvektort várt volna az Olvasó. 


6.4. ábra: r! hibás belső reprezentációja 


Ez a fajta belső ábrázolás is létezik a Maple-ben, de ha a kitevő numerikus 
konstans, akkor a Maple egyszerűsítő eljárása átalakítja az előzőekben látott 
product struktúrává. A rendszer az r-t 3? — x? — z polinom részkifejezéseiként 
csak az x, x?, z2,—r?, z és a —xr polinomokat ismeri fel. Ami a Maple-t illeti, 
az zt 3 r3 vagy éppenséggel az r! — z nem részkifejezése az z! 4 3 — 12 —m 
polinomnak. Az a tény, hogy a Maple nem ismeri föl az összes matematikai 
értelemben vett részkifejezést, rendkívül fontos szerepet játszik a helyettesítés 
során. Egyedül ezzel magyarázhatók az olyan helyettesítések, mint például 
5 subs(i1i- -7, x74 t x3 - x2- xx); 
721372 —3—z 


5 subs(iíi-3, Pixxtx641); 
37329 13119 


Vessünk egy pillantást az utolsó példára. A xx z-t1 belső ábrázolása a 
6.5. ábrán látható DAG. 


SZGTÜ 


intpos 


1 name ! 13 


NIL] NULL 


6.5. ábra: rxz-4-r- 1 belső reprezentációja 


150 6. Belső adatábrázolás és helyettesítés 


Ez az irányított aciklikus gráf azt is tükrözi, hogy Pi a protected attributum- 
mal bír. Ez az attributum egy érvényes Maple kifejezés, ti. egy név. A nevek 
karakterei 32 bites gépeken legfeljebb négy karakterből álló csoportokban táro- 
lódnak. A protected-nek megfelelő adatstruktúra attributuma saját neve, így 
ez is védett név a Maple-ben. 


Ha az 1-et ábrázoló adatvektort kicseréljük a 3-at ábrázoló adatvektorra, ak- 
kor érthetővé válik a helyettesítés eredménye. 


A két utolsó példa mutatja, hogy a belső ábrázolás jelentősen eltérhet a szá- 
munkra sokkal ismerősebb, a képernyőn is megjelenő külső ábrázolástól. A 
Maple számára viszont egyedül a belső ábrázolás számít. Két kifejezés akkor és 
csak akkor azonos, ha ugyanaz a DAG tartozik hozzájuk. Az egyszerűsítés a 
rendszer számára nem más, mint a megfelelelő DAG-ok tarnszformálása. 


Mielőtt folytatnánk, gondoljuk meg, hogy a Maple tervezői vajon miért vá- 
laszthatták az összegekre és a hatványokra az itt tárgyalt belső ábrázolást. Te- 
kintsük az ry?z" kifejezés belső ábrázolását (6.6. ábra). 


intpos 


product ! 


ETETETT CET E] 


sz Nees 
6.6. ábra: zySz! belső reprezentációja 


Alternatív megoldásként a 6.7. ábrának megfelelően xyzt-t három hatvány 
szorzatának is tekinthetnénk, nevezetesen az r?, y? és az r! szorzatának. Lát- 
ható, hogy ebben az esetben nagyobb a belső ábrázolás memóriaigénye. De ami 
ennél még fontosabb, tegyük fel, hogy számolás közben az z2y321-t meg kell 
szorozni valami hasonló tényezővel, mondjuk z52f.-nal. Ekkor a Maple egysze- 
rűsítő eljárásának a lehető leggyorsabban föl kellene ismerni a közös tényezőket, 
összeadni a, kitevőket és fölépíteni az új adatstruktúrát. Mindez a Maple által 
használt belső ábrázolás segítségével sokkal könnyebben elvégezhető, mint az 
általunk javasolt alternatívával. Az összegek belső ábrázolása könnyen végre- 
hajthatóvá teszi a hasonló tagok fölismerését és az együtthatók összeadását is. 
Röviden összefoglalva, a Maple rendszer belső adatábrázolását arra optimalizál- 
ták, hogy a polinomokkal való számolás minél gyorsabb legyen. 
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EZZINNTANI 


6.7. ábra: r2y32! hibás belső reprezentációja 


Felejtsük el egy pillanatra, hogy a Maple minden (rész)kifejezést csak egyszer 
tárol. Ezesetben a belső ábrázolásnak megfelelő irányított aciklikus gráf egy fa 
lenne. A példánknak megfelelő reprezentációs fa a 6.8. ábrán látható. 


-1 


product product product [1] 


x 4 x 3 x 2 


6.8. ábra: zt 4 r3 — r? — z reprezentációs fája 


Elhagytuk az 1, —1 és z építőelemeknek megfelelő adatvektorokat, ezeket a 
formula elemi részeinek tekintjük. Az r-r? — r? — z reprezentációs fája szintén 
jól mutatja, hogy a polinom alkotórészei x , r3, —r? és —z, továbbá az x? rész- 
kifejezés. A reprezentációs fa legfontosabb előnye, hogy sokkal áttekinthetőbb, 
nem annyira kusza, mint az irányított aciklikus gráf. Lényeges különbség, hogy 
míg az irányított aciklikus gráfegy csúcspontot használ az azonos részkifejezések 
ábrázolására, addig a reprezentációs fában ezek külön részfákként szerepelnek. 
A föntieket szem előtt tartva a reprezentációs fák a Maple kifejezések belső 
struktúrájának adekvát, könnyen megérthető leírását adják. 


Az Olvasó feje már bizonyára zúg a sok adatvektortól, irányított aciklikus 
gráftól és reprezentációs fától. Talán azon mereng, hogy képes lesz-e valaha 
is megérteni a Maple kifejezések belső ábrázolását. Vigasztalásul annyi, hogy 
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LEE af) 


a legtöbb esetben bátran támaszkodhat intuíciójára. A kétséges esetekben a 
rendszer maga is segíthet a belső adatábrázolás megértésében. A kifejezések 
felszíni adattípusát a whattype eljárás segítségével határozhatjuk meg: 
5: pi :— x7T4 4 x73 - x72 - x; $ expanded canonical form 
pl:—gd4a23—r m 
5 whattype( pi ); 
-b 


A , -" jel segítségével a számítógépes algebrai rendszer azt jelzi, hogy a kifejezés 
egy összeg. A nops (number of operands) eljárás az összeadandók számát adja 
meg: 
5 nops( pl ); 
4 


A kifejezés komponenseinek sorozatát az op (extract operands) eljárás szolgál- 
tatja: 
s  op(p1); 


2, 23, —3?, —r 


Megkaphatjuk a részkifejezéseket egyenként is. Például az első tag az z negyedik 
hatványa: 
5 "first term" :-— op(1,p1); 


first term :— a" 


5  whattype("); 


s op(""); 
r,4 


Itt a," jel a hatvány adattípusnak felel meg. 

A harmadik tag, —x?, a —1 és az x? hatvány szorzata. A Maple rendszer a 
szorzat adattipust , !"-gal jelzi. 

s "third term" :-— op(3,pl); 


third term :— —x? 


5 whattype("); 


5 op( "third term" ); 


—I, x? 


5  op( [3,2], pi ); t 2nd operand of 3rd operand of pi 


2 
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Nemcsak a polinomok, hanem akármilyen Maple kifejezések is szétszedhetők 
hasonló módon. De ne feledjük, hogy a Maple az azonos részkifejezéseket csak 
egyszer tárolja. A fenti példában az z karakter négy különböző helyen fordul 
elő, de a belső ábrázolásban ezeknek egyetlen Maple objektum felel meg. Ha az 
rt a r3 — r2 — z polinomban 7-et y-nal helyettesítjük, akkor az y! $y3?—y? —y 
polinomot kapjuk. 

Ha az Olvasó jobban meg szeretné ismerni a, Maple-t, és a reprezentációs fák 
helyett az irányított aciklikus gráfokat szeretné tanulmányozni, a dismantle el- 
járás segítségével ismerheti meg a részleteket. Ez a Maple kifejezések szerkezetét 
részkifejezéseikkel és azok hosszával együtt jeleníti meg: 


, readlib( dismantle ): it load library function 
5 dismantle( x744x73-x72-x ); 


SUM(9) 

PROD(3) 
NAME(4) : x 
INTPOS (2): 4 

INTPOS (2): 1 

PROD(3) 
NAME(4): x 
INTPOS (2): 3 

INTPOS (2): 1 

PROD(3) 
NAME(4): x 
INTPOS(2): 2 

INTNEG (2): -1 

NAME(4) : x 

INTNEG (2): -1 


6.2. Általánosított racionális kifejezések 


A következő Maple parancsok a racionális függvények belső ábrázolását mutat- 
ják meg: 
5 r :5— (y72-1) / (y-1); 


2.1 
Tr : ül 
y—-1 
s type( r, ratpoly ); it check if rational expression 
true 
5 whattype(r ); 
kk 
5  op(r); 
1 
y? TT 1, 
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5 op(2,r); 
1 
y—-1 
5 whattype("); 
s op("1); 
y—1,—-1 


5  normal( r ); tí normal form 
yt1l 


Ismét csak láthatjuk, hogy a belső adatábrázolás eltérhet a munkalapon vagy a 
terminál képernyőjén látható külső formátumtól. A racionális kifejezés a szám- 
lálónak és a nevező (—1)-dik hatványának szorzata. Ha a kifejezést az R(y) test 
elemének tekintjük, akkor normalizált alakja az y -- 1 polinom. Valós függvé- 


nyekként tekintve azonban az cl és az y 4 1 különbözőek. 


y—1 
Vegyük a következő kifejezést: 


s r :-— (sin(x)72-1)/(sin(x)-1); 


. Sin(r)2—1 
— sin(r)—1 
s type( r, ratpoly ); 
false 


Ez a Maple szerint sem racionális függvény. Ha azonban sin r-et y-nal helyet- 
tesítjük, akkor visszakapjuk az előző racionális függvényt. Erre rájöhetünk úgy 
2 

sin/r—1 ; 4 

is, ha a EETSESeT belső adatábrázolását vizsgáljuk az op, nops és whattype 
sin T — 
eljárások segítségével. Hasonlítsuk össze a, 6.9. ábrán látható fákat! 

b) 


sin r—1 

A hatjuk, h —— —— 

zt mondhatjuk, hogy SZESEG I 
zése. A Maple is így gondolja: 


a sinz egész együtthatós racionális kifeje- 


5 type( r, ratpoly( integer, sin(x) ) ); 


true 


Ez magyarázza a következő eredményt. 


5  normal( r ); 


sin(z) 41 
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1 esse sílei 
1 reprezentációs Iája 


ss 
sin r—1 
A Maple a ETETSET kifejezést általánosított racionális kifejezésnek tekinti. 


Amikor a rendszer erre a normal eljárást alkalmazza, több dolog is történik. 
Először az összes elemi transzcendens (trigonometrikus, logaritmus, exponenci- 
ális, négyzetgyök stb. ) függvény argumentumát rekurzív módon normalizálja, 
majd egy-egy egyértelmű névvel helyettesítve , befagyasztja". Ezután az így 
keletkezett racionális kifejezésre alkalmazza a normal eljárást. Végül a be- 
fagyasztott kifejezéseket újra , felolvasztja". A normal és a factor eljárások 
alkalmazása során a Maple automatikusan elvégzi a részkifejezések befagyasz- 
tását és felolvasztását. Néha azonban a frontend eljárással ki kell segíteni a 
rendszert, hogy egy általános kifejezést is racionális kifejezésként tudjon kezelni: 


5  nnm :— numer(r); den :— denom(r) ; 
num :— sin(r)? — 1 


den :— sin(z) — 1 
5  gcd( num, den ); 


Error, (in gcd) 
arguments must be polynomials over the rationals 


5 frontend( gcdá, [num,denl] ); 


sin(m) —1 


A gcd eljárás a racionális számok fölötti polinomokat vár. A frontend-et ar- 
ra használtuk, hogy időlegesen befagyasszuk (egyedi névvel helyettesítsük) a 
sin(x)-et a num és a den kifejezésekben. Áz így kapott eredményre alkalmaz- 
hatjuk a gcd eljárást. Végül a befagyasztott neveket felolvasztja a rendszer. 
A következő fejezetben megismerkedünk a részkifejezések befagyasztásának egy 
másik módszerével. 
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6.3.  Helyettesítés 


A kifejezések kezelésének fontos eszköze a helyettesítés. Nehezen olvasható, nagy 
kifejezéseket egyszerűsíthetünk oly módon, hogy a részkifejezéseket kisebbekkel 
helyettesítjük. Például az 


a b e f a b 
c d § hozd 
-e -f a t..§ TÍ 
-g -h b d g h 
-a -b -e -f e g 
—e -d -g -h f h 


mátrix blokkos alakban a következő módon írható: 


XX Y xX 
-Y XT Y 
-X -Y YT 


ahol 


.fa b ú maf se Tf 
eza] tt FBl 4j 


Sok esetben lényegesen kényelmesebb az eredeti helyett a blokkos mátrix hasz- 
nálata. 

Hosszú formulák kiírásakor a Maple rövidítéseket vezet be a nagyobb közös 
részkifejezésekre; ezeket rendre a 91, 902, . . . címkékkel jelöli. 


Helyettesítések elvégzésére rendszerint a subs eljárást használjuk. Ennek 
legegyszerűbb formája a következő: 


subs( var — replacement, expression ). 


Hatására a var változó összes előfordulása a megadott replacement-tel helyet- 
tesítődik az expression kifejezésben. Nézzünk egy példát. 

5  kinetic energy :-— momentum72 / (2rmass) ; 
1 momentum? 


kinetic.energy :— 2 rear 


-  subs( momentum - mass $ velocity, kinetic energy ); 


1 § 
2 mass velocity? 


5  kinetic energy; 
1 momentum? 
2 mass 
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Figyeljük meg, hogy a kinetic energy változó a helyettesítés után is megtartja 
eredeti értékét. Ezt csak értékadással lehet megváltoztatni. 
5 kinetic energy :- subs( momentum - mass k velocity, 


5 kinetic energy ): 
5 kinetic energy; 


1 késs 
a mass velocity 


A következő két példa azt mutatja, hogy a helyettesítés eredményét a rendszer 
egyszerűsíti, de nem értékeli ki. Erről magunknak kel! gondoskodnunk. 


.  t substitution but no evaluation 
s  subs( x-0, cos(x) kr ( sin(x) 1 x726t1) ); 


cos(0) (sin(0) -- 1) 


5 eval("); tt extra evaluation 


1 


5 sum( 1 / binomial(n,k), k-1..n ); 
§ 1 
binomial(n, k) 
gel 
5  subs(n-3,") - eval( subs(n53,") ); 


) ggeetllllbte TRM 
E binomial(3, k) 3 


Ha azt akarjuk, hogy a kiértékelés automatikusan megtörténjen a helyettesí- 
tés után, elegendő a következő parancsot beírni (elhelyezhetjük az inicializáló 
fájlunkban is): 

s  macro( subs — eval € subs ): 


Erre vonatkozóan lásd a 8.7. alfejezetet is. 
A többszörös helyettesítésre példaként tekintsük a Maple-ben a következő 
módon leírható kettős helyettesítést: 


subs( var1 — replacementi, var2 — replacement2, expression ). 


Ezen kettős helyettesítés hatására először a var1 változó összes előfordulása 
replacement1-gyel helyettesítődik az expression kifejezésben, majd az így kapott 
közbülső eredményben var£2 összes előfordulását cseréli ki replacement2-vel a 
rendszer. Általánosan is igaz az, hogy többszörös helyettesítés esetén a meg- 
adott helyettesítéseket balról jobbra haladva alkalmazza a Maple a megfelelő 
részeredményekre. A helyettesítésnek ezt a formáját szekvenciális helyettesítés- 
nek nevezzük. Két példa: 
5 " kinetic energy :- momentum72 / (2rmass); 
1 momentum? 


kinetic. energy :— k ze 
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5  subs( momentum — mass k velocity, 
b velocity — acceleration $ time, kinetic energy ); 


1 § É 

a mass acceleration? time? 
5 expression :— Íí t tan(x)72; 

expression :— 17 tan(z)? 


5  subs( tan(x) 


- sin(x)/cos(x), sin(x)72— 1 - cos(x)"2, 
5 expression ); 


1 — cos(g)? 
cos(r)2 
5: normal("); 
raz Égő 
cos(r)? 


A szekvenciális helyettesítésen kívül úgynevezett szimultán helyettesítést is vé- 
gezhetünk. Ehhez csupán a helyettesítéseket leíró egyenleteket kel! egy halmaz- 
ba vagy egy listába összefoglalni: 


subs( ívar1 — replacementi, var2 — replacement2), expression ). 


A szimultán helyettesítésnél az expression kifejezésben az összes helyettesítés 
egyszerre történik. Pontosabban kifejezve a Maple bejárja a kifejezést repre- 
zentáló fát, és minden egyes részkifejezést balról jobbra haladva, összehasonlít 
a helyettesítéseket definiáló egyenletek baloldalával. Ha valahol egyezést talál, 
akkor az eredeti kifejezésben az adott részkifejezést a megfelelő egyenlet jobb 
oldalával helyettesíti. A következő példák jobban érzékeltetik a szekvenciális és 
a szimultán helyettesítés közti különbséget: 
5  subs( x-y, y-z , xry72 ); t seguential substitution 


28 


5  subs( ( xzy, ysz ), xry72 ); t simultaneous substitution 

y2? 
5  subs( a-b, b-c, csa, a t 2kb 1 3rc ); 

6a 
5  subs( ( a-b, b-—c, csa b, a t 2kb t 3rkc ); 

b42c43a 

5 subs((f p-a, g-p 3, f(p,g) ); t interchange p and g 

f(g, p) 
5 [atb-d,a-b72,b-c72]; 

[a--b—-d,a— bt, b—- c) 


5  subs( ", (atb)-2rbra ); 
$eW 
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A subs eljárás nem csak változókat, hanem nagyobb részkifejezéseket is képes 
helyettesíteni. A. helyettesítés azokra a részkifejezésekre korlátozódik, melyeket 
a rendszer fölismer. Ez azt jelenti, hogy csak azok a részkifejezések helyet- 
tesíthetők, amelyeket az op eljárás (ismételt) alkalmazásával el tudunk érni. 
Például: 
5 expri :— xky t z; expr2 :- xiysz; expr3 :5 (xry)72; 
emri :—gy-tz 


exmpr2 :— gyz 


expr3 :— 27 y? 


5  subs( xxy — w, expri ); 


wtz 
5  subs( xty — w, expr2 ); 

Tyz 
s  subs( xry — w, expr3 ); 

22 y? 
5 op( exprl1 ); 

EÜ 2 
5 op( expr2 ); 

Ty 2 
5  op( expr3 ); 

22, y? 


Mivel a második és a harmadik kifejezésben előforduló xkty szorzatot a Maple 
nem tekinti részkifejezésnek, közvetlenül nem is helyettesíthető ez a szorzat. Ha 
mégis erre van szükségünk, akkor például a következő módon járhatunk el: 
5  subs( x — vw / y, expr2 ); 
wz 


s subs( (x — w, y — 1), expr2 ); 
WZ 


5  subs( xtysz — productkz, expr2 ); 
product z 


Az utolsó helyettesítésnek csak akkor van értelme, ha expr2 egy x-et tartalmazó 
nagyobb formula része, s a többi x-et tartalmazó részkifejezésnek változatlanul 
kell maradnia. Teljesen hasonlóan 
5 expression :— a tbtc,; 
expression atbte 


5 subs( a t b - d, expression ); 
atb-tce 
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5  subs( a -— d - b, expression ); 
d§c 


5  subs( fa - d, b - 0), expression ); 
dte 


5 subs(atbtec-d t c, expression ); 
dte 


A Maple rendszer tartalmazza az algsubs (algebraic substitution) eljárást, 
melyet , matematikai" helyettesítések végrehajtására terveztek. (Ez nem csak 
. szintaktikus helyettesítésen alapul, mint a subs.) A fenti példára alkalmazva a 
következőt kapjuk: 
5 algsubs( a 41 b - d, expression ); 
dt e 


Az algebrai helyettesítés nem mindig egyértelmű. Mi legyen például 
algsubs(atb-d,at12xbt3:xc) 


eredménye? 
btd-43re 


vagy 
—at2krxcrt2x d? 


És ha mindkét válasz lehetséges, hogyan oldható ez föl? A problémára részleges 
megoldást ad az algsubs két opcionális argunemtuma, melyekkel előírhatjuk 


e a változók rendezését, 


e az exact és a remainder opciók közül pontosan egyet. 


A változók rendezésével arról informálhatjuk a Maple-t, hogy mely változó- 
kat szeretnénk leginkább látni az eredményben. A remainder módban (ez az 
alapföltételezés) a minták előfordulásainak megkeresése általánosított maradé- 
kos polinomosztás segítségével történik. Az exact módban, ha a minta összeg 
mondjuk Dpi -H pa, akkor egy részkifejezésben, például ti -t t2-ben akkor és csak 
akkor hajtódik végre a helyettesítés, ha, fi 3 f2 — cx (ti 4-t2) valamely c együtt- 
hatóval. Figyeljük meg, hogy polinomosztásról beszéltünk; az algsub csak egész 
kitevős egytagokból álló mintákkal és kifejezésekkel működik. Vagyis r? alakú 
mintákat és kifejezéseket az algsub nem vesz figyelembe. Példákkal világítjuk 
meg a helyzetet: 
5 algsubs(atb-d, a 3 2rb t 3rc ); 
dtbt3c 


5 algsubs(atb-d, a t 24b 41 3rkc, ?exact? ); 
at2b-t3c 

5 algsubs(atb-d, a t 2kb 4 3xc, [a,b] ); t acb 
d1b-t3c 
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5 algsubs(atb-d, a t 2rb 4 3rc, [b,al ); tt bca 
—at2d13c 


5 algsubs( a72 4 1 d, (a724t1)74 4 a7r3 4 24a72 41 ); 
dr 34(—-1-4d)ja—1-42d 

5 algsubs( a72 4 í- d, (a72t1)74 4 a73 4 2rar2 4 1, 

5 "exact? ); 
dt$4a?412att1 

Figyeljük meg a különbséget: 

5 subs( a7"2—- d - 1, (a72-H1)74 t a7"3 4 2ka7r2 41); 

d$4a3—142d 


Az algsubs egyik fontos alkalmazása a hatványsorok csonkítása: 
s  sum( x7k, k-—-5..5 ); 


TT dábár drssávatói Braz in 4z 
-t7Z417t71—-tiltrtaórarztákz 
3 m x zzz g 


5 algsubs( x73— 0, " ); 


5 algsubs( 1/x73— 0, " ); 
, SNEK : űi 
14 Főber 
x gz 


Az algsubs általánosított racionális sz sétt ijbli is működik: 
5 algsubs( sin(x)72 4 cos(x)72  — 
5 sin(x)72 / ( sín(x)73 4 cgeltséje 27 A 
sin(x)? 
—sin(r)?2 cos(z) -t cos(x) -- sin(x)? 
5  algsubs( sin(x)72 t cos(x)72 —- 1, 
5 sin(x)72 / ( sin(x)73 4 cos(x)73 ), [cos(x),sin(x)] ); 
sin(z)? 
—sin(m)? cos(m) -- cos(x) -- sin(r)? 


Az algsubs technikailag némileg különbözik a subs-tól: 


e nem végezhetünk egy parancsban szekvenciális vagy szimultán helyettesi- 
tést, 


e a helyettesítés után automatikus kiértékelés történik, 


e az eljárásneveket és az indexeket nem kezeli. 


Zárópéldánk a polinomokkal végzett számolással kapcsolatos: 


5  algsubs( xry72 — s, x"31y74 ); 


sz 
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5 algsubs( xry72 — xry, x73ry74 ); 
my? 
Itt azt láthatjuk, hogy a helyettesítő kifejezés tartalmazhat olyan változókat, 
amelyek a mintában is előfordulnak. Példánkban az xy! kifejezés fölírható 
x(ry?) alakban is, ezzel magyarázható a helyettesítéssel kapott eredmény. Imp- 
licit módon a Gröbner bázisokat realizáló grobner csomagot is fölhasználhatjuk, 
ha a simplify eljárást mellékföltételekkel alkalmazzuk: 
5 simplify( x73ry72, (xry-s), [y,x,s] ); 
sm 
5, simplify( x73ry74, (xry72—-xryl, [y,x,s] ); 
jr y 
Az utolsó példa azt mutatja, hogy a mellékföltételt a rendszer egészében tekinti, 
azaz a jobb oldal az alkalmazott egyszerűsítési szabály része lesz. A mellékföl- 
tételekkel megadott egyszerűsítésre a 14.7. alfejezetben térünk vissza. 

Mikor a Maple azt ellenőrzi, hogy egy bizonyos kifejezés előfordul-e egy szim- 
bolikus kifejezés részkifejezéseként, a számítógépes algebrai rendszer bejárja a 
teljes reprezentációs fát. A helyettesítés a Maple-ben globális jellegű: a he- 
lyettesítendő részkifejezés minden egyes előfordulása helyettesítődik az eredeti 
kifejezésben, illetve a részeredményekben: 

5 expression :— (xty)72 t x; 

expression :— (5-ty? áz 
5 op( expression ); 
(zty, z 
3  op( op( 1, (xty)72 ) ); 
7, gy 
5  subs( x — z, expression ); 
(zty? tk z 
A helyettesítés esetén tehát nagyon fontos tudni, hogy a Maple hogyan építi fel 
a, kifejezéseket, és mely részkifejezéseket képes a rendszer fölismerni. 


Ne felejtsük el, hogy a Maple a közös részkifejezéseket csak egyszer tárolja. 
A subs eljárás végrehajtásakor a megfelelő részkifejezés minden előfordulása 
helyettesítésre kerül. Van azonban egy másik lehetőség: a subsop (substitute 
operands) eljárás segítségével a kifejezés egy vagy több operandusát helyette- 
síthetjük. Például a 


subsop( numi1 — replacementi1, num2 — replacement2, expression ) 
utasítás hatására az expression kifejezés op( num1, expression ) és op( num2, 
expression ) részkifejezései egyidejűleg helyettesítődnek a replacement1-gyel, il- 


letve a replacement2-vel. A 


subsop( [ij] — replacement, expression ) 
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hatására a megadott kifejezés i-dik operanduszának j-dik operandusza helyet- 
tesítődik az általunk specifikált replacement-tel. Néhány példával illusztráljuk, 
hogyan működik mindez: 


5 expression :— x72 t x t 1/x; 
1 
expression :— 243-r ez 
5  subsop( 3 -— y, expression ); ít replace 3rd operand 
miáiTrry 


5  subsop( 3 - 0, expression ); $ replace 3rd operand 
máz 


5 subsop( 1- z, 2 - y, expression ); 


E.G út 
2 — 
úg 2 
5  subsop( [3,1] -— y, expression ); 
2 1 

sajka ret VEG zöjesy 

y 


5 1 14 1/(itcos(x72rt1/x72)); 


1 
1- 


1 
1-4 cos(zr2 -k 7) 


ő. sübsöp( [2 1 2 8jddsy, "9; 
1 


1 EREZÉBE RE s KSE snattt TELE Et áREt e 
veg - cos(z? - y) 


5  subsop( 0 — J, BesselJ(1,x) ); 
J(1, 2) 


A példák jól mutatják a subsop eljárás lokális jellegét. Csak a kifejezés mega- 
dott részeiben történik helyettesítés, minden más operandus érintetlen marad. 
Ez éppen az ellenkezője a globális jellegű subs eljárásnak, amellyel egy vagy 
több részkifejezés összes előfordulását helyettesítjük, függetlenül attól, hogy ezek 
hol fordulnak elő az adott kifejezésben. Ha csak a szimbolikus kifejezés vala- 
mely részével kell dolgoznunk, akkor jól ki tudjuk használni a subsop lokális 
viselkedését. Az eljárás másik előnye, hogy nem kell újragépelnünk az esetleg 
igen nagy helyettesítendő részkifejezést. Két példa: 
s poly:z ( x72 4 y72 4 2xxixy ) § ( (xty)72 4 1); 
poly :—— (3 ty 422y)((zty)? 11) 


5  factor( poly ); 
(z4y"(224yt2ry-1) 
5  subsop( 1 factor( op(i1, poly) ), poly ); 
(z-ry ((zty 1) 
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5 expression :— (xX72 t 2xx t 1)72 4 (x72 - 2rx 41)72; 
expression :— (7 42531) 3 (22 —211 1)? 


5  factor( expression ); 
254127? 42 
5  subsop( 1 - factor( op(1,expression) ), 
s 2 - factor( op(2,expression) ), expression ); 
(41) -r(z— 1)! 
Mivel gyakran van szükség kifejezések operanduszain végzett hasonló műveletek- 


re, két könyvtári függvénnyel, az applyop-pal és a map-pel tehetjük könnyebbé 
életünket. Ezek működését szintén az előző példákon mutatjuk be: 


5 applyop( factor, 1, poly ); 
(z-ky((z4y 41) 


Valóban, az 
applyop( func, index, expression ) 
parancs hatása ugyanaz, mintha ezt írtuk volna: 
subsop( index — func( op( index, expression ) ), expression ). 


A második példában a kifejezés első szintjén található összes operanduszra aka- 
runk egy függvényt alkalmazni. Erre a feladatra a map eljárás a legalkalmasabb. 
5 map( factor, expression ); 
(231 (2— 1) 


A map( procedure, expression ) parancs hatása a következő: a procedure eljárást 
alkalmazzuk külön-külön az expression kifejezés minden egyes operanduszára, 
majd az eredményekből az eredetivel azonos típusú kifejezést állítunk össze, vé- 
gül automatikus egyszerűsítést hajtunk végre (amely természetesen még meg- 
változtathatja a kifejezés tipusát). A 8.8. alfejezetben még visszatérünk a map 
eljárásra. 

Jegyezzük meg, hogy az első példában a helyettesítést végrehajthattuk volna 
a következő módon is: 

5  subs( xty — z, poly ); 

(323 3y427y)(22 11) 


5 factor("); 
(z4y? (22 4-1) 


s subs( z-xtfy, " ); 
(zty ((z 3 y? 3-1) 
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A részkifejezések időleges helyettesítésének technikája, vagyis amikor egy rész- 
kifejezést egy változóval helyettesítünk, a részeredményekkel tovább számolunk, 
majd visszahelyettesítjük a , befagyasztott" részkifejezést, gyakran használatos 
egyszerűsítési stratégia. Most ennek a módszernek újabb illusztrációja követke- 
zik: 


5 expression :— (xty)72 4 1/(xty)72; 
expression :— (zt y)? a eszét zt 
fi I (zt y)? 
Az (z 3 y)? hatvány kifejtése nélkül szeretnénk ezt a kifejezést LT LEZTTSZÉ TÉS 
denominator 


alakra hozni. A normal eljárás nem egészen azt adja, amit mi szeretnénk. 

5  normal( expression ); 

3t-4622y? 3433yt4ry!tytii 
(xy)? 

Ha azonban az z - y kifejezést időlegesen egy új változóval, mondjuk 2-vel 
helyettesítjük, normalizáljuk az így kapott racionális függvényt, és végül vissza- 
helyettesítjük az x -- y-t z helyére, akkor a kívánt eredményt nyerjük: 

5 subs( x 4 y — z, expression ); 


1 
sza 
s  normal("); 
241 
32 
b sübélzsexty, " j 
(ty 1 
(z 4 y)? 


Mivel egy hosszú Maple szekció során nem mindig könnyű visszaemlékezni arra, 
hogy milyen változókat használtunk és milyen helyettesítéseket alkalmaztunk, 
sokszor jól jönnek a Maple rendszer freeze és thaw segédfüggvényei. Amikor 
ezeket használjuk, a Maple maga választ új neveket a részkifejezéseknek, és 
nyomon is követi felhasználásukat. A. fenti példa így is megoldható: 


5  readlib( freeze ): tt load the library function 
5  subs( xty-freeze(xty), expression ); 


1 
eezel RÜ" 4 — E 
KEZEBE freeze/ RO? 


5  normal("); 
freeze/ RO" 4-1 
freeze/ R0? 
5 thaw("; 
(z4yt-1 
(z 4 y)? 
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Ezt az alfejezetet néhány olyan egyszerű példával zárjuk, melyek a specializálás 
problémáit illusztrálják: 
5  integrate( 1/(x-a)"72, x — 0..2 ); 
1 1 
—2ta a 
A Maple sikeresen megoldott egy általános problémát (az a paraméternek még 
nem adtunk értéket). Ha azonban specializáljuk a-t, furcsa eredményekre ju- 
tunk. Az integrálba a — 1-et helyettesítve pozitív integrandus mellett negatív 
integrálértéket kapunk! 
5 subs(a-—t, " ); 


—2 


1 
Ha, közvetlenül az 1 G-1j dz integrálra kérdezünk rá, a Maple megadja a 
vegán 


) 

helyes választ. 

5  integrate( 1/(x-1)72, x - 0..2 ); 

le 0l 

Sajnos, nem segít a Maple-ben annak föltételezése, hogy a 0 és 2 között van. 

Tekintsük a következő a-tól függő paraméteres egyenletet. 

5 eg :— (a72-1) r x72 t (2ra7r2ta-3) $ x t 2ra - 2 — 0; 

eg:— (a —1)z? 3 (2a2ta—3)Tt2a—2—0 

Az a — 1 esetben triviális egyenletet kapunk. 


5 subs(aos:d1, " ); 
0-0 


Az általános esetet megoldva, majd a — 1-et helyettesítve csak két megoldást 
kapunk. 


5  solve( eg, x ); 
5. súbuiksa szi ER s 


li dá 


Határozzuk meg az M — ( 0 1 


) mátrix Jordan-féle normálformáját. 
5 with(línalg): 
Warning, new definition for norm 


Warning, new definition for trace 
5 A :5- matrix(I[1,al,(0,1]]2; 
1 a 


0 1 


A :z 
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5  jordan("); 
1 1 
0 1 
Ez az eredmény nyilvánvalóan nem helyes, ha a — 0. 
5 B :-— matrix([la,1],[0,111); 
ü 1 
0 1 


Baz 


s  jordan("); 


Az előző eredmény nem érvényes az a — 1 esetben. 


6.4. Gyakorlatok 


:4lz 


föl a megfelelő DAG-ot és a reprezentációs fát. Írjuk le mindazokat a részkifeje- 
zéseket, amelyeket a Maple fölismer. Válaszunkat támasszuk alá a whattype, 
nops és az op eljárások alkalmazásával. A dismantle, addressof, pointto, 
disassemble és assemble utasítások segítségével részletesen ellenőrizhetjük 
válaszunkat. 


3 
jet ls Tb zsé 
2. Transzformáljuk át az (z-4-y)? kifejezést az észak? IRGREBA kifejezésbe 
T4-y Tty 
és fordítva. 
3. Transzformáljuk át az 
342241- MONETSL  9ASÉRA 
222771 
kifejezést az 
(7-1) -1 
(z 4 1)? 


kifejezésbe és fordítva. 


4. Magyarázzuk meg a, következő helyettesítés eredményét: 


s  x72-xt1/x-1/x72; 
2 1 1 
2?-2r—-—-— 
Tr x 
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5  subs(-1-1,"); 


1 
37 427- ha 
x 
5. Hozzuk az 
(z-41)9—2y  gádáágelnatkőt 
(z 4 y)" (z-4y? (z4y 
kifejezést az 
(2-1) —y 
(z - y)"9 


alakra. 


(; 


Polinomok és racionális kifejezések 
kezelése 


Ez a fejezet a polinomok és a, racionális kifejezések kezelésének szisztematikus 
ismertetését tartalmazza. A következő műveleteket vizsgáljuk: polinomok és 
racionális kifejezések kifejtése, szorzattá, alakítása, normalizálása, összegyűjté- 
se és rendezése. A racionális számok fölötti kifejezések kezelése mellett más 
tartományok (véges testek, algebrai számok és algebrai függvénytestek) fölötti 
kifejezéseket is tekintünk. Továbbá rövid elméleti bevezetőt nyújtunk a kanoni- 
kus és a normálalak szerinti egyszerűsítésekhez. 


7.1. Kifejtés 


Tételezzük föl, hogy az (z? — r)(3? 127 1) polinomot faktorizált alakjából az 
zt 4 r? — 32? — z kifejtett kanonikus alakjára kívánjuk transzformálni. Használ- 
hatjuk az expand eljárást, szükség esetén az eredményt a sort-tal rendezhetjük. 
Az expand először összeszorozza a tényezőket, majd második lépésként össze- 
vonja a hasonló tagokat. Példánkban az első lépés az z$--23? 13? —r3—232—g 
kifejezéshez vezet, a rendszer ezt az T-t x? — xr? — z polinommá egyszerűsíti. (Ha 
már korábban is előfordult, s emiatt a memóriában megtalálható ez a polinom, 


esetleg más lesz a tagok sorrendje; ezen a sort eljárással segíthetünk.) 
5 partially factored form:— (x72-x) $ (x7242rxt1); 
partially factored.form :— (2? — 3) (3 422711) 
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5 expanded form :-— expand( partially factored form ); 
expanded form :— 313423 — 3? —z 


A Maple az összegek szorzataira a disztributív azonosságokat alkalmazza. Ez 
legjobban egy egyszerű példával szemléltethető: 


5 factored form :— (atb) x (ctd); 
factored form :— (a4-b) (cd) 
5 expanded form :- expand( factored form ); 


expanded form: actadtbetbd 


A Maple expand eljárása elvégzi az összegek összeszorzását, ezután a Maple 
egyszerűsítő eljárása automatikusan összegyűjti a hasonló tagokat. Ezeket a 
lépéseket együttesen alkalmasabb a teljes kifejtés szakkifejezéssel illetni. Utolsó 
példánk esetében a, szorzatalak kifejtését a következő kétlépéses mechanizmussal 
írhatjuk le: először a szorzatalak az a(c-t d) t-b(c1- d) alakba transzformálódik, 
majd a rendszer ezt a köztes kifejezést a végső act ad t- bc 1- bd alakra transzfor- 
málja át. Ha el akarjuk kerülni ezt a második lépést, akkor az expand eljárás 
hívásakor kell specifikálnunk, hogy a c - d részkifejezést változatlanul akarjuk 
hagyni: 
5:  partially expanded form :- expand( factored form, ctd ); 
partially expanded form :  (ctd)at (c d)b 
Az expand eljárás összegek egészkitevős hatványait is kifejti oly módon, hogy 
ezen összeg ismételt szorzatának tekinti az egészkitevős hatványt: 
5 power :— (xt1)"3; 
power :— (41)? 
s  expand("); 
2431743741 
A negatív kitevős hatványokat az expand érintetlenül hagyja: 
5 power :— (xt1)7(-2); 


1 
power :7 (2 r12 

s  whattype("); 
s  op( power ): 

x - 1, —2 
5:  expand( power ); 

1 
(z 4 1)? 


Ha az utóbbi kifejezést (z--1)? nevezőjű racionális kifejezésnek tekintjük, akkor 
a nevezőt külön ki tudjuk fejteni: 
5 1 / expand( denom(") ); 


:232T71-1 
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A Maple nem fejti ki az egésztől különböző kitevős hatványokat sem: 
5 power :— (xt1)7(3/2); 
power : (z41)? 


5  expand("); 
(z-r1)?? 


Racionális kifejezések esetében az expand hatására csupán a számlálóban lévő 
összegek fejtődnek ki: 

5... (xt1)72 / ((x"24x)rx); 

(212 
(124 2)z 
5  expand("); 
x 2 1 
3-4a § 32 4xT kj (224 2)z 

Eddig csak az egészek fölött definiált polinomok és racionális függvények kifejté- 
sét tekintettük. Ha véges gyűrűk, algebrai számok vagy algebrai függvénytestek 
fölött definiált polinomokkal dolgozunk, akkor az expand eljárás Expand nevű 
tétlen formáját kell használnunk, szükség esetén az evala (evaluate in a con- 


text of algebraic numbers or function fields) eljárással kombinálva. Nézzünk 
erre néhány példát. 


e Kifejtés Zg fölött. 
5  Expand( (xt1)78 ) mod 8; 
33342" 46rW44r9 11 
e Kifejtés 0, fölött, ahol a a 2" -- 2 41 polinom gyöke. 


5  alias(alpha -— Root0f( z75 tz 1 1, 72)): 
5  (xtalpha)"5; 
(x-- a) 
5  evala( Expand(") ); 
3 35axt 310973? 3-10a79? 1 5a4tr—a—1 


e Kifejtés Z5(a) fölött, ahol a a 2" 4 z 1-1 polinom gyöke. 


5  Expand("") mod 5; 
r544at4 


e Kifejtés a (1 y) algebrai függvénytest fölött. 


Emlékeztetünk arra, hogy () fölötti algebrai függvényen olyan függvényt 
értünk, amely anullál valamely racionális függvénytestből vett együttha- 
tós egyváltozós polinomot. Példánkban V1--y a O0(y) racionális függ- 
vénytestből vett együtthatókkal fölírt 22 — 1 — y polinom gyökeként van 
definiálva. 
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5 alias( beta — RootOf( 272 - 1-y, z ) ): 
5  (xtbeta)"72; 
(2-8) 


5  evala( Expand(") ); 
332817141-ty 


7.2. Szorzattá alakítás 


A factor Maple eljárás az expand , nagy testvére". A polinom 0 fölött irredu- 
cibilis tényezőkkel fölírt szorzatalakját számítja ki. A kapott eredmény, amelyet 
faktorizált normálformának nevezünk, a, szorzótényezők sorrendjétől eltekintve 
egyértelmű. Az eljárás racionális kifejezésekre is alkalmazható, ekkor a, számláló 
és a nevező faktorizálása előtt a közös tényezőket törli a rendszer. 

Az 5.1. alfejezetben már láttuk, hogy a Maple képes különböző tartományok 
fölötti polinomok faktorizálására. Most további példákat mutatunk be. Vé- 
ges testek és algebrai függvénytestek fölötti polinomok esetében szükség lehet 
a Factor tétlen forma használatára. A Maple véges testek fölötti egyváltozós 
polinomok esetében Cantor és Zassenhaus [33], valamint Berlekamp [16] algo- 
ritmusát használja, többváltozós polinomokra a, [133, 202] szerinti Hensel-féle 
föloldást végez. Algebrai számok és függvénytestek fölött értelmezett polinomok 
faktorizálására Lenstra [129] és Kronecker-Trager [182] eljárását alkalmazza. 


e Faktorizálás O(V6) fölött: 
5 factor( 8rx73 - 12xx, sgrt(6) ); 
2(27— 46) (2z 1 V6) z 
e Faktorizálás a 22, Z3 és Z5 véges testek fölött: 
s a: ga: ér ai [6 
zt31 
5  Factor(") mod 2; 
(41) 


5  Factor("") mod 3; 
(224742 (r 42742) 


5  Factor(""") mod 5; 
(z? 33) (zt 32) 


e Faktorizálás Z7(a) fölött, ahol a a 27 -- 2? 4-1 polinom gyökét jelenti: 


5. alias( alpha -— Root0f( z77 1 27341, z ) ): 
5 x77 t 6ralpha"73 t 6; 
z 460716 
5  Factor(") mod 7; 
(2-4 a) 


7.2. Szorzattá alakítás 173 


e Faktorizálás a (V1- y) algebrai függvénytest fölött: 
5 alias( beta — Root0f( 272-1-y, z ) ): 
5 X7T2 t 2ibetaitx FÍÁ1 ty; 

372 4287241ty 
5 factor( x72 t 2xbetakx 1 Í Tt y, beta ); 


(2-4 8)? 


A 813? — 122 polinom faktorizálásánál szinte a , semmiből?" bukkant föl a racio- 
nális számtest bővítése vV6-tal, ami a teljes faktorizációhoz szükséges. A Maple 
a split eljárással maga is meg tudja határozni tetszőleges egyváltozós polinom 
fölbontási testét: 


5 readlib( split ): tt load the library function 
s split( 8rx73 - 124x, x ); 


8 (z - 5 RootOt( 2? — 6) (z — — RootOt(.2? — 6) 


s  convert( ", radical ); 
1 1 
8 (z 4 5 V6) (z — 5 V6) z 
Példa 0 fölött irreducibilis polinomra: 
5 p :— x74 t 2xy74; 
p.a a2yi 


e Faktorizálás a V2-vel és I-vel végzett testbővítés fölött: 


5 factor( p, 1 sgrt(2), I hb 2 
(x? — Ty? V2) (22 Ivy? V2) 


e Faktorizálás Z3 fölött: 


5  Factor( p ) mod 3; 
2yt (ly r) (yt 2) 


e Faktorizálás a GF(9) Galois-test (azaz Z3 algebrai kiterjesztése az z? — 2 
irreducibilis polinommal) fölött: 
5  alias( alpha — RootOf( z72 - 2, z ) ): 
5  Factor( p, alpha ) mod 3; 
2 (y 1-2 7) (y 4 RootOt(. 2? -4 1) T) (y 42 RootOf( 2241) 2)(y 4 7) 
5  convert( ", radical ); 
2(y427)(y-I2)(y42I2)(y-r 7) 


Az AFactor eljárás a komplex számtest fölötti többváltozós polinomok teljes 
faktorizálását számítja ki: 
5 evala( AFactor( x73 t y73 ) ); 
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(z 4 (RootOf( 22 —- 27-41) —1)y) (z— RootOf(.22— Z7341)y) 
(yt 7) 


5  convert( ", radical ); tt go to radical notation 
1 1 ze el 
(x(-5— 2 TV3)v)(— (5-5 IV8)y 42) 


A polinomok factor-ral végzett faktorizálásának egyik első lépése lehet a 
négyzetmentes faktorizáció előállítása. Egy nem konstans polinom négyzet- 
mentes faktorizációja cp, p3p3... alakú szorzat, ahol c racionális konstans, 
Pi, D2, D3,... pedig többszörös tényezők nélküli relatív prím polinomok. A 
Maple rendszerben a négyzetmentes faktorizációt közvetlen konverzióval vagy 
az sarfree eljárás hívásával számíthatjuk ki: 

5 xX4tx3e 2 XG 

3423 —gg 


5  convert( ", sgrfree ); 
(1—1) z(x-4 1)? 


5  sgrfíree(""); 
(4, [[2-1, 1]. [2.1]. [2-41, 2]]] 
Amennyiben számításainkat a Z2 kételemű test fölött végezzük, az utóbbi poli- 


nom négyzetmentes faktorizációja r(x--1)?-nel egyenlő. Ez a Maple rendszerben 
a, következőképpen kapható meg: 


5 Sgrfíree(""") mod 2; 
I, [[z2.1]. (2-1, 3] 


7.3.  Kanonikus alak és normálalak 


Kifejezések egyszerűsítése vagy kezelése kapcsán már találkozhattunk néhány- 
szor a kanonikus alak és a normálalak szakkifejezésekkel. Megéri kicsit hosszab- 
ban időzni ennél a témánál, még ha ez egy elméletibb jellegű közjáték lesz is. 
Részletes áttekintést a [26]-ban találhatunk. 

Az egyszerűsítés fő problémája abban áll, hogy egy matematikai kifejezés szá- 
mos ekvivalens formában fölírható, ugyanakkor nem mindig könnyű fölismerni — 
az ekvivalenciát. Például a harmadik Hermite-polinom 8 x? — 12 x-szel egyenlő, 
de könnyen megadható négy, ezzel ekvivalens formula: 


(8 x? — 12) 

421(2 7? — 3) 

21(27— V6)(2 z 1 vV6) 

(23)? —6.(27) 
Melyik a legegyszerűbb forma? Ha azt akarjuk hangsúlyozni, hogy ez 2 T-nek 
polinomja, akkor természetesen a 2 x(2 xz— v6)(2 xz -k v6) és a (27)? —6.(27) a 
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megfelelő jelöltek. Ha kritériumként a tagok számát vesszük, akkor a 87? —12 2 
és a (23)? — 6. (27) lenne a két esélyes. 

Még világosabban specifikált hasonló feladat az úgynevezett zérus ekvivalencia 
probléma, vagyis annak eldöntése, hogy egy kifejezés egyenlő-e nullával. De még 
ez is lehet nehéz, mint például a 


j 1 
Intan(5z Fk 17) — arcsinhtanz — 0 


kifejezés vizsgálata Ennek az egyenlőségnek az ellenőrzése nem triviális feladat. 

Az egyszerűsítési problémát általánosan a következőképpen kezelhetjük. Le- 
gyen £ szimbolikus kifejezések (például az egészek fölötti egyváltozós polinomok) 
egy osztálya, és legyen "vs az €-n értelmezett ekvivalenciareláció. Egy ekviva- 
lens, de egyszerűbb kifejezés megtalálásának problémáját úgy jellemezhetjük, 
mint egy olyan S: € 6 € kiszámítható transzformáció megkeresését, amely 
azzal a tulajdonsággal bír, hogy minden t €-beli kifejezésre 


S() at és S(t) At. 


Itt a - valamilyen egyszerűsítési koncepciót jelöl: s - t jelentése ,, s egyszerűbb 
€-ben, mint €". Ez például a következőket jelentheti: ,,5-nek kevesebb tagja 
van, mint t-nek", , s kevesebb memóriát használ, mint €", vagy ,,s olvashatóbb, 
mint $. Azt mondjuk, hogy az s és a t kifejezés megegyezik (azonos), és ezt 
s z t-vel jelöljük, ha s és t ugyanazon alapelemekből ugyanúgy épül föl, vagy 
még pontosabban, ha mindkettőnek ugyanaz az irányított aciklikus gráf felel 
5-et kanonikus egyszerűsítőnek nevezzük €-n, ha S olyan kiszámítható eljárás, 
hogy minden €-beli s-re és t-re 


S(t)etéssst — 0 §S(5)E S(b. 


A kanonikus egyszerűsítő minden ekvivalenciaosztályból egy egyértelmű kitünte- 
tett elemet választ ki, ezt kanonikus alaknak nevezzük. Egyváltozós polinomok 
kifejtett kanonikus alakját a következőképpen kaphatjuk meg : 


(1) rekurzív módon elvégezzük az összegek összeszorzását, 
(ii) összegyűjtjük az azonos kitevőjű tagokat, 


(iii) elhagyjuk a fölösleges tagokat, a megmaradókat pedig a kitevők csökkenő 
sorrendjében rendezzük. 


A kanonikus egyszerűsítéssel szemben támasztott követelmények nagyon ma- 
gasak, és nem is érhetők mindig el. Az egyszerűsítés egy gyengébb formája a 
normál egyszerűsítés. Tegyük föl, hogy €-ben létezik egy 0-val jelölt kitüntetett 
elem. Az § normál egyszerűsítő €-n olyan kiszámítható eljárás, hogy minden 
€-beli s-re és t-re a következők igazak: 


Sí) atésts0 — 5(t)E5(0). 
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A t kifejezést normál formájúnak nevezzük €-ben, ha S(t) zt. A normálalak 
tehát nem szükségképpen egyértelmű az összes ekvivalenciaosztályban (kivéve a 
0-t tartalmazó osztályt). 


Egyváltozós polinomok kifejtett normálformája, amelyet korábban gyűjtött 
formának neveztünk, a következőképpen kapható meg: 


(1) rekurzív módon elvégezzük az összegek összeszorzását, 
(ú) összegyűjtjük az azonos kitevőjű tagokat, végül 
(iii) elhagyjuk a fölösleges tagokat. 


A normál egyszerűsítés általában könnyebb, mint a, kanonikus egyszerűsítés. Po- 

, lnomok normálformájára további példákat szolgáltat a négyzetmentes alak és a. 
Horner-forma (az a zárójelezett alak, amelyet gyakran használnak hatékonysági 
okokból). 


5 poly :— expand( (xtytz)72r(xtyt1) ); 


poly:— 3 339yt:t331yi2ryt2zsztázzy b2rzty? 
Hy r2yzzk2dyzt őz tzzy it 2? 


5 readlib(cost)( poly); 
14 additions -- 32 multiplications 


5  horner form :-— convert( poly, ?horner? , [x,y,z] ); 


horner form :— 22 3 ((23 2) 24 (2zt1-tyyy 
1((242)24(214213y)yi(221143y4z)z)z 


5  cost( horner form ); 
14 additions -- 13 multiplications 


Racionális függvények parciális törtekre bontása tekinthető a függvényre alkal- 
mazott normál egyszerűsítőnek is. 


T.4.  Normalizálás 


A normal Maple eljárás a () fölötti racionális függvények normál egyszerűsí- 
tője. A racionális függvényt úgynevezett faktorizált normálformára alakítja. 
Ez számláló/ nevező alakú, ahol a számláló és a nevező egész együtthatós rela- 
tív prím polinomok, mindkettő kifejtett polinomok szorzata, és a normál egy- 
szerűsítés során a közös tényezők változatlanok maradnak, amennyire ez csak 
lehetséges: 
5  (x-1)r(xt2)/((xr1)rx) § (x-1)/(1tx)72; 
(z—1)(z-t 2) ja 3-1 
(z41z (z-4 1)? 
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5 normal("); 

(z—1)(144z71 2) 
(2-4 1)22 

5. (x724tx-2)/((xt1)rx)t(x-1)/(1tx)72; 

3 47-22 2-1 
srön . Er 

s  normai("); 

5 31332—22—2 
(AD zz 
5 normal( """, "expanded? ); 
531327 —22—2 
334222 tar 
Az expanded kulcsszó megadásával jelezhetjük, ha azt kívánjuk, hogy mind a 
számláló, mind a, nevező kifejtett normálalakú legyen. 

A racionális kifejezéseknek többféle normálalakja létezik, ezek némelyikét úgy 
is megkaphatjuk, hogy a normal, expand vagy factor eljárásokat külön-külön 
alkalmazzuk a számlálóra és a nevezőre. A lehetséges alternatívák: 

5 ratfunc :— (x744tx73-441x72-4rx) / (x734x72-x-1); 

34217 —43?—4z 


ratjunc :- 
f r34r2—r—1 


. jKTENE normálalak 
aktorizált normálala. 
5 factor( ratfunc ); 
(z—2)(212z 
(z—1)(T-41) 


k aktorizált normálalak 
kifejtett kanonikus alak 
5  factor(numer(ratfunc)) / sort (expand(denom(ratfunc) ) ) ; 
z(z—2)(rt2)(z-11) 


r34r2—r—1 
ő kifejtett kanonikus alak 
aktorizált normálalak 
5  sort(expand(numer(íratfunc))) / factor(denom(íratfunc) ) ; 
334779 —43—4x 


(z—1)(r-4 1)? 
jrdltett kanonikus alak 
e a 7 7 
efejtett kanonikus alak 
5  sort( normal( ratfunc, "expanded? )); 


373 —-4z 
:2—1 
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7.5.  Összegyűjtés 


A collect eljárást a polinomok hasonló tagjaiban szereplő együtthatók egy cso- 
portba gyűjtésére használjuk. Az összegyűjtés különböző módozatait legjobban 
példákkal mutathatjuk meg. 


5 poly :-— expand( (xtytz)72 k (xtyt1) ); 


poly :— 3? 3329ytah31yyFlryt2sőztárzy hazzáy 
htyF2yzzF2yztzőr dt zzy 2? 
Ebben a példában osztott vagy kifejtett alakú Maple polinomot láttunk. Az x, 


y és z ismeretlenekkel fölírt osztott egész együtthatós többváltozós polinomok 
halmazára a Z(z, y, 2] jelölést használjuk. 


Tekintsük a poly polinomot, mint z polinomját, amelynek együtthatói az T és 
az y változók osztott polinomjai, vagyis tekintsük a poly-t, mint Z(r, y]I[z] egy 
elemét: 


s  collect( poly, z ); 


(zty-41)2 4 (41yt2r-t423?42y?1-2y)2zr 2? h333y- 2? 
r31y42ryry ty? 


Most tekintsük poly-t, mint z polinomját, melynek együtthatói y olyan poli- 
nomjai, amelynek együtthatói z egész együtthatós polinomjai, vagyis tekintsük 
poly-t, mint a Z[x]lyIÍz] egy elemét: 


s  collect( poly, [z,y], "recursive? ); 


(z-3y-41) 2? (221 (4242)y4t2r4229)zty a (35141y? 
3 (357322) ytz th z? 
Pongyolán beszélve azt mondhatjuk, hogy poly-t a z és az y olyan polinomjának 
tekintettük, ahol a z határozatlant kitüntetetettnek vettük. 


Természetesen poly-t tekinthetjük olyan kétváltozós polinomnak is, amelyben 
egyik változót sem tüntetjük ki, vagyis tekinthetjük a poly-t mint ZIx]ly, 2] 
elemét: 


5  collect( poly, [z,y], "distributed? ); 


(3127 422)yt (25279) 21 2? t2 ty t(3211y 
31(45-H2)yzt(rzt1)z2r2yzztzy 
Végezetül a collect eljárás további argumentumaként megadhatjuk egy olyan 
eljárás nevét, melyet minden egyes együtthatóra külön-külön kell alkalmazni: 
5  collect( poly, z, factor ); t recursive order by default 
(zty31)2?32(1tyiD(rtyzt(z4tyi1(zryy 
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5  collect( poly , [z,y], "distributed? , factor ); 


1(3142y4t2r(z1 zi z (141 ryi(3741)y 
t(451t2yzt(r41)z2r2yzzázy 


A Maple-ben főleg az olvashatóság, valamint a memória-használatra és a szá- 
mítási időre vonatkozó hatékonysági szempontok miatt használjuk a többválto- 
zós polinomok gyűjtött alakját. Ha a polinom valamely változójára nézve tömör 
(dense), akkor a tagokat erre a változóra vonatkozóan előnyös összegyűjteni, 
mivel ez csökkenteni fogja a fölhasznált memóriaterületet a kifejtett formához 
képest. A tagok összegyűjtése egy lehetséges módja a Maple objektumokra vo- 
natkozó méretkorlátok megkerülésének. A Maple-ben egy összegnek legföljebb 
65535 (azaz 21. 1) tagja lehet, ha ezt túllépjük, a rendszer a következő üzenetet 
küldi: 


System Error, object too large 


Ha a kifejezést valamely határozatlanra vonatkozóan összegyűjtött alakban tart- 
juk, akkor ezáltal csökkenthetjük a kifejezésben lévő összegek maximális számát. 
Fönti példánkban poly kifejtett alakja 15 tagból áll, ugyanekkor a Z[z, y][2] fö- 
lötti faktorizált együtthatós gyűjtött alakja mindössze 3 tagot tartalmaz, . 

A normal-hoz hasonlóan a collect eljárás alkalmazható általánosított racio- 
nális kifejezésekre is: 

5  1n(x)73/a t 1In(x)72krx/(a72ta) t a7r2rln(x) 2rx/(a72ta) 

5 4 2rx72/(1ta)tarx72/(1ra) t a73k1n(x)/(a72rta) 

s 4 241n(x)$ra/(a72ta) t In(x)/(a72-ta) 4 a/(a72-ta); 


ln(3)?  In(aj2z . a2ln(2)2x x? ax a3ln(m) 
a a? a a? ta lta 1ldta ata 
4.2 ma In(zja , ln(r) a 
azta alta adta 
s  collect( ", [x,1n(x)], "distributed? , normal ); 
1 (2-t-a)z?  (at2a1lln(z) , (1-4 a?) zIn(z)? 
14 a 1ta a(1-- a) a(1-- a) 
1 3 
a, (2 
a 


Figyeljük meg, hogy csak nevekre és függvényhívásokra vonatkozóan lehet gyűj- 
téseket végezni, polinom-kifejezésekre nem. Ha a 

5 xb - 5rx74ry72 t 10rx73ry74 - 104x72ry76 t 5ixty"7B 

2 -y10- 2; 

3 —-5zty F10z3yt —1023y7 34 5ry? —y9 2 

kifejezés első négy tagjáról az (r—y?)? jut eszünkbe, nem kérhetjük egyszerűen 
az x — 4? szerinti gyűjtött alakot: 

5.  collect( ", x-y 2); 


Error, (in collect) cannot collect, x-y72 
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Ehelyett az z — y? — z mellékfeltétel szerint egyszerűsíthetünk: 
5 siderel :— íz — x - y72); 
siderel — (2—- z—y?) 


5 simplify( "", siderel, [x,y,z] ); 
—2-4 ző 


5 subs( siderel, " ); 
—24(z—y?) 


Ilyen polinomiális egyszerűsítésekre vonatkozó további példák találhatók még a 
14.7. alfejezetben. 


7.6. Rendezés 


A sort eljárást arra használjuk, hogy polinomokat valamilyen alkalmas sorrend- 
be rendezzünk. Erről már volt szó az 5.2. alfejezetben. Itt mindössze egy olyan 
példát mutatunk, amelyben egy általánosított racionális függvény számlálóját 
és nevezőjét rendezzük: 


5 r :s sort( (cos(x) - sin(x)) / (cos(x) 4 sin(x)), 
s [cos(x) ,sin(x)], ?"plex? ); 

.. cos(z) — sin(z) 

" cos(g) -- sin(r) 


s. sort( r, [sin(x),cos(x)], ?plex? ); 
—sin(T) 4 cos(T) 
sin(x) 1 cos(r) 


T.T. Gyakorlatok 


Megjegyzés: Az alábbi gyakorlatok megoldásában a tényezők sorrendje eltérhet, 
az itt megadottól. 


1. Írjuk le az egyváltozós racionális együtthatós racionális függvények egy le- 
hetséges kanonikus egyszerűsítőjét. 


2. Tekintsük a következő racionális kifejezést: 
3 2 — 47? — 47 
344r3—g2 gt 
Hozzuk ezt a kifejezést a Maple segítségével a, következő alakokra: 


3? —4 


a) x2—-1 


7.7. Gyakorlatok 


Ha 


on 


(z—2)(z4 2) 
2-1 


b) 


. Tekintsük a következő racionális kifejezést: 


33 — yi? — ya ty? 


2 
33—y:2—rty 


Alakítsuk át a Maple segítségével a következő kifejezésekké: 


3 —y 
2 
a) xr2—1 


5? —y 


KÉLTETZEST 


. Tekintsük a (22? — z)(22? 4 z) polinomot. 


Alakítsuk át a Maple segítségével a következő polinomokká: 
a) (—1 4 47?)x? 

b) z2(27—1)(25 4-1) 

c) (22? 4 1?)(2z — 1). 


. Tekintsük az (x? - gy - z 4 y)(z 1 y) polinomot. 


Alakítsuk át a Maple-ben a következő polinomokká: 
a) 23 42339y try? ht 3? 3 2gy ty 

b) (241)(zty)? 

c) 2 —(2yty)zt(142y)z? 4 z? 


d) s? 4? 3 (27? 4 27)y 4 (4 1)y?. 
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Függvények 


A. Maple rendszerben függvénykapcsolatot három módon definiálhatunk: kép- 
lettel, a szokásos matematikai jelöléshez hasonló nyíl operátor segítségével és 
eljárásként. A fejezet részletesen tárgyalja mindegyik módszert. Külön figyel- 
met szentelünk a rekurzívan definiált eljárásoknak és függvényeknek. Részle- 
tesen vizsgáljuk a remember opció használatát hatékony rekurzív függvények 
definiálására. 

Ez a fejezet nem a programozásról szól, csak arról lesz szó, hogyan kell ma- 
tematikai függvényeket definiálni a Maple rendszerben. Főleg az olyan gyakor- 
lati kérdésekre koncentrálunk, mint például , hogyan kell függvényt definiálni", 
,hogyan kell egy formulát függvénnyé alakítani" , , mikor használjunk névtelen 
függvényeket". 


8.1. . Matematikai függvények 


Az előző fejezetekben már láttunk néhány olyan általánosan használt matema- 
tikai függvényt, amely a Maple-ben is rendelkezésünkre áll. Ezek teljes listáját 
a ?inifcns (help about initially known functions) utasítás segítségével kaphat- 
juk meg. Ez a fölsorolás kevéssé ismert függvények neveit is tartalmazza, ilyen 
például a Lambert-féle W függvény. Ezt a [66]-ban található következő egyenlet 
megoldásaként definiálták: 
s f(x) x exp(f(x)) — x; 
f(x) elm — z 
s  solve( ", f(x) ); 
Lambert W(z) 
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A Lambert-féle W függvény részletesebb leírása megtalálható [48]-ban. Ez 
egy többértékű komplex függvény. Két valós ágát együttesen ugyanazon az 
ábrán legjobban a Maple paraméteres rajzoló eljárásával jeleníthetjük meg. 
Az eredmény a 8.1. ábrán látható. 


5  plot( [ yrexp(y), y, y — -5..0.75 1 ); 


8.1. ábra: A Lambert-féle W függvény két valós ágának képe 


A komplex többértékű W függvény egyes ágainak értékkészlete a branches eljá- 
rással jeleníthető meg. (Lásd a 8.2. ábrát.) Az eljárás mostani változata , ismeri?" 
a trigonometrikus függvények inverzeit és a természetes alapú logaritmust is. 

5 readlib( branches ): it load the library function 

5  branches( LambertW, thick ); 


Branches of LambertW 


Im(z) tt 


is. MENNENESÉSE TS a 


3pi-t LambertW(2,27) 


[EZ 


LambertW(1,2) 
Ve LambertW(z) 
(Principal Branch) 
-Pij LambertW(-1,z) 


-3Pit JÖNNE ggg ESZE 


-30 -20 -i0 (7 10 20 Re(z) 


8.2. ábra: A Lambert-féle W függvény ágainak értékkészlete 
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Az alábbiakban két példát adunk olyan számításokra, melyekben ez a függvény 
játszik szerepet. 


5 akxrx Tt bíx —c; 
artb —c 


5  solve(!",x); 
In(b) c 


LambertW a] a — In(b) c 
aln(b) 


s f(x) — solve( f(x) — xf(x), f(x) ); 
. LambertW(-In(z)) 
TŰ sz In(z) 


Az utóbbi eredmény pontosan azt jelenti, hogy tetszőleges z € (0, 1)-re az 


Ize a7 
leképezés megegyezik az 


LambertW(—- ln T) 
ff: ——— —— 
Inxz 
függvénnyel. A. függvény gráfja a 8.3. ábrán látható. 
5  plot(rhs("), x-0..1); 


új 7 
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gő 
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8.3. ábra: A — fembertti(— In) függvény a (0, 1)-en 


A Maple-ben függvénykapcsolatokat három módon definiálhatunk: 
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e Formulával 
Valamely mennyiség változóktól való függését leírhatjuk formulával. Ha 
például egy test hőmérséklete az idő függvényében exponenciálisan csök- 
ken, a Maple-ben ezt a következő képlettel adhatjuk meg 


5 T :- TO $ exp(-crt); 

T :— ToeCe?) 
Ha egy adott időpontban akarjuk megkapni a hőmérsékletet, a, t-t valamely 
konkrét értékkel kell helyettesítenünk. 


5  subs( t-1/c,T ); 
T0e65 


Függvényként 
A matematikában szokásos módon: 
5 T :— t -3 TO £ exp(-ckt); 
T:—-to Toe(e9 

s T(2/c), T(time), T(0); 

T0eC2, TO et-etime) TO 
Az úgynevezett nyíl operátort részletesebben a következő alfejezetben tár- 
gyaljuk. 


Eljárásként 
Az előző függvény Maple eljárásként így írható fölé 
5 T :- proc(t) TO $k exp(-crt) end; 
T :- proc(t) T0 x exp(—c x t)end 
s T(2/c), T(time), T(0); 
T0e729, TO eletime) Tg 
Valójában a nyíl operátor az eljárásdefiníció speciális esete. 


A matematikai függvények gyakran igen hasznosak lehetnek, a Maple-ben azon- 
ban gondosan meg kell különböztetnünk azon változókat, amelyek egy kifejezésre 
mutatnak és azon változókat, amelyek értéke egy függvény. Az előbb definiált 
T függvényre hivatkozva: 

5 T; H evaluation to the name of the function 


áj 


s T(t); $ evaluation of function value at t 
TO e(7e?) 


s  solve( T — 100, t ); 


Az utolsó parancs után semmilyen eredményt nem írt ki a Maple, ami azt jelzi, 
hogy nem talált megoldást. Ha infolevel[solvel] értéke nagyobb nullánál, 
akkor szól is a rendszer, hogy nincs megoldás: 

s infolevell[solvel] :— i: 

s solve( T — 100, t ); 
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solve: Warning: no solutions found 


Olyan t érték valóban nem létezik, amelyre a T függvény a 100 számmal lenne 
egyenlő. Természetesen nem ezt akartuk megtudni. Ha helyesen kérdezünk, a 
Maple megtalálja a megoldást. 

5  solve(T(t) — 100, t ); 


8.2. A nyíl operátor 


Az előző fejezetben már találkoztunk a függvények definiálásának egyik mód- 
szerével a Maple rendszerben, megismertük a nyíl operátort, amellyel a mate- 
matikában szokásoshoz hasonló szintakszissal adhatunk meg függvényeket: 


function name :- parameter(s) — kifejezés 


Az Olvasó könnyen kísértésbe eshet, hogy a következő módon definiáljon függ- 
vényeket: 
s  T(t) :— TO x exp(-cst); 
T(t) — TO ee 
A Maple elfogadja az utasítást. Ez biztatónak tűnik, de amint az alábbi példából 
kiderül, valójában nem azt csinálja, amit szerintünk jelentene a parancs. 
s  T(t), T(1/c), T(0): 


T0 el-e), TC), T(0) 


Mi történt? Függvényt hoztunk létre, de nem adtuk meg a definícióját. 
5  print(T); 
proc( ) option remember; "procname( args )" end 


Helyette a T eljárás emlékezőtáblájába írtuk be a függvény tí helyen fölvett ér- 
tékét. Ha az 1/c-hez tartozó függvényértéket kérjük, ezt a Maple nem találja 
sem az emlékezőtáblában, sem a függvény leírásában. Így a rendszer nem is tud 
annál többet tenni, mint hogy kiírja a függvényhívást, gondolván, hogy a szekció 
folytatásában majd bizonyára hozzárendelünk T-hez egy függvényleírást. 

Már találkoztunk az egyváltozós függvények esetével. Többváltozós függvé- 
nyek hasonlóan definiálhatók: 

s f :— (x,y) -2 x73 - 3rxry72; 

f.—(5, yos —3zy 


s §8.21ó 
—9 
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3. pilot3a( ff, side da 
5  numpoints-2500, style-patchcontour, axeszframed ); 


Az így kapott grafikon a 8.4. ábrán látható. Ügyeljünk a függvénydefinícióban 


8.4. ábra: Az r? — 31y? függvény felületi rajza a (0, 1] x (0, 1] fölött 


a paraméterek köré írt zárójelekre. Ezek elhagyása esetén a Maple az utasítást 
a következő módon interpretálja 
5 f :— x, ( y -2 x73 - 3rxry72); 
f—23s yos? —3ry? 
vagyis az f nevű kifejezéssorozatot hoztuk létre, amely az x változóból és az 
ye 2? — 37y? névtelen függvényből áll. Paraméter nélküli nullváltozós függ- 
vények is megadhatók. 


5:  goldenratio :— () -2 (1tsgrt(5))/2; tt constant function 
; 1 
goldenratio :— () — 51 g vV5 
5  goldenratio(); 
L.A 
zt-V5 
atgy 
5  goldenratio( x ); tt no check on number of arguments 


1 1 
stgvi 
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Legyünk óvatosak a függvénydefinícióban paraméterként nem szereplő változók 
használatával. Mellékhatások léphetnek föl. Néha, a Maple figyelmeztet, hogy a 
kifejezésben szereplő változót lokálisnak deklarálja: 


5 duplicate :— (x,n) -2 seg(x, j — 1..n); 


€.5b 


Warning, "j" in call to "seg" is not local 


duplicate — (x, n) - seg(z, j — 1..n) 
Ez egy , hamis riasztás" volt, amit az seg operátor implementálásának módja 


okozott. Máskor meg nem szól a Maple, holott valamely globális változóval 
nemkívánatos interferencia lépett föl. 


s  ERF :— x -5 2/Pi7(1/2) x int( exp(-t72), t — 0..x ); 


/ elő) dt 


s  ERF(1); t indeed, ERF is nothing but the error function 
erf(1) 


s t :-— 0: di let t be assigned a value! 
5  ERF(1); tt all goes wrong 


Error, (in int) wrong number (or type) of arguments 


Ez a probléma csak úgy oldható meg, ha t-t lokális változónak deklaráljuk. 
Mivel a nyíl operátoros definícióban csak egy kifejezés, egy föltételes utasítás 
vagy egy eljárásdefiníció szerepelhet, az eljárásokat definiáló hosszú alakot kell 
használnunk. 


5  ERF :- proc(x) 
5 options operator, arrow; 
5 localt,; 
s 2/Pi7T(1/2) x int( exp(-t72), t — 0..x ); 
5 end; 
e(—?) dt — 0..x 
ERF :— x — local t; 2 
b VT 


Ezzel megszűntek a mellékhatások. 
s  ERF(1); tt indeed, ERF is nothing but the error function 
erf(1) 


A 8.4. alfejezetben közelebbről is megvizsgáljuk az eljárások definiálásának ál- 
talános formáját. 
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8.3.  Szakaszonként definiált függvények 


Szakaszonként definiált függvényeket is könnyen bevezethetünk a nyíl operátor 
segítségével. Ennek két módja van, a második a jobb. 


e A case utasításhoz hasonlóan 
Használjunk föltételes utasítást az egyes esetek megkülönböztetésére. Az 
általános alak a következő: 


parameter(s) — 

if st condition then 
1st value 

elif 2nd condition then 
And value 

elif Nth condition then 
Nth value 

else 
default value 

fi 


e A piecewise eljárással 
Ha a Maple rendszerben a piecewise eljárást alkalmazzuk, a szakaszon- 
ként definiált függvényekre vonatkozó matematikai ismeretek is elérhetők. 
Az általános alak a következő: 


parameter(s) — piecewise ( 
Ist condition, I1st value 
And condition, And value 


Nth condition, Nth value 
default value 


) 


Megvizsgáljuk a szakaszonként definiált függvények definiálásának mindkét mód- 
ját. Először tekintsük azt a lépcsős függvényt, melynek értéke 1-nél kisebb valós 
számokra —1, az 1 helyen 0 és 1 különben. 


5 step :— x -2 if xci then -1 elif x-1 then 0 else 1 fi; 


step : proc(T) 
optionoperator , arrow; 
ifr cÍthen —lelifzr—IthenOelselfi 


end 


5  step(3/2), step(1), step(1/2); 
1, 0, —1 
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5  plot( step, -1..Pi, 


5  titlesígraph of step function", style-line ); 


A függvény Maple által kirajzolt grafikonja a 8.5. ábrán látható. 


graph of step function 


8.5. ábra: Lépcsős függvény grafikonja, 


Ennek a definíciónak néhány első pillantásra nem látható gyenge pontját vi- 
lágítja meg a következő utasítás: 

5  printlevel :— 2: ti make Maple more communicative 

5  step(Pi); 


Error, (in step) cannot evaluate boolean 

executing statement : 

if x c 1 then "..." elif x — 1 then "..." else "..." fi 
step called with arguments: Pi 


A problémát az okozza, hogy a Maple nem tudja kiértékelni az 
if 1 c Pi then ... 


föltételt. A rendszer ugyanis csak a numeric típushoz tartozó (egész, racionális 
és lebegőpontos) számokat tud összehasonlítani. Mi természetesen tudjuk, hogy 
1 c Pi. Mivel a Maple képtelen logikai környezetben kiértékelni a, kifejezést, a 
kirajzoló utasításban is a függvény nevét adtuk meg, nem pedig ezt 


5  plot( step(x), x —- -1 .. 3.14 ); 
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Error, (in step) cannot evaluate boolean 

executing statement: 

if x € 1í theneiss. ," elit xstüvttena 4 sas telser sed fi 
step called with arguments: x 


Egy valós szám előjelének meghatározása tekinthető a, (0, 00) nyitott interval- 
lumra vonatkozó tartalmazási tesztnek is. Ilyen célra fölhasználható az assume 
parancs, és hívható az is eljárás. Ekkor nem lesz gondunk a kiértékeléssel, és 
használhatunk olyan határozatlanokat is, amelyekhez tulajdonságokat rendel- 
tünk. A step függvény alábbi javított definíciója a pontosság aktuális értéke 
szerinti intervallum-aritmetikán és az assume-ban megadott tulajdonságokkal 
való számoláson alapul. 


v 


step :— x -2 if is( xci ) then 

1 
elif is( x-1i ) then 

(0) 
elif is( x21 ) then 

1 
else tt nothing known or all fails 
"procname? (x) 
fi; 


SG VEVE SÉRE 


step : proc(m) 
option operator , arrow; 
ifis(z c 1])then —1 
elifis(z — 1) then0 
elifis(1 c 2) then1 
else procname(T) 
Ai 


end 


Az eljáráson belül a procname speciális névvel hívatkozunk arra, a névre, amivel 
az eljárást hívtuk (ez most step). Lássuk, hogyan működik a függvény: 


5  step(Pi), step( 1 t sgrt(2)rsart(3) - sgrt(6) ); 
1,0 


5  step( exp(Pi/3rsgrt(163)) - 640319 ); 


13 
5  assume( s 2? sgrt(2) ): 
step(s); 
1 
5: step(u); 


step(u) 
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A case utasításban a logikai tesztek balról jobbra értékelődnek ki, s ha. valame- 
lyik föltétel teljesül, ez lesz a visszaadott érték, nem történik további kiértékelés. 
Emiatt a következő függvény definiálása és a 0 argumentumra való meghívása 
teljesen korrekt dolog: 


s f :— x -5 if xc-0 then x else 1/x fi: 
5 f(0); 
0 


A föltételes utasításokkal megadott szakaszonként definiált függvények nagy 
hátránya, hogy matematikai műveletek nemigen végezhetők velük. Semmi ilyes- 
mi nem lehetséges: 


s diff( step(u), u ); 


fo) 
31 step(u) 


5  solve( step(u)-0, u ); 
RootOf(step(.2)) 


s diff( g(m), u ) — step(u); 

(0) 

Hy g(u) — step(u) 
5  dsolve( ", g(u) ); 


g(u) — f step) du- .C1 


A föltételes utasításokkal megadott szakaszonként definiált függvények sok hát- 
ránya kiküszöbölhető a piecewise Maple eljárással. Először tekintsük ismét az 
előző példát: 


s STEP :— x -5 piecewise( xx1, -1, 

s x—-1, 0, 

pl Sole álha 

szi "procname? (x) tt default 
s B 


, 


STEP :— z — piecewise(r C 1, —1, 7-1, 0, 1 c z, I, procname(T)) 


5  STEP(3/2), STEP(1), STEP(1/2), STEP(Pi); 
Tt 0ET1 


Nagyszerűen működik. Használhatunk változókat is: 


5 STEP(u); 
-1 uc1 
0 Üü s 
1 Lét 


STEP(u) otherwise 
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Eredményül a függvényhívásnak megfelelő leírást kaptunk, ami további paran- 
csokkal földolgoztatható: 


5  dsolve( diff( g(u), u ) -— STEP(u), g(u) ); 
—út-61 uzi 
glu) — ( vdermeg úz1 
u—14.CI 1Cu 
A piecewise eljárás is sorbarendezi a logikai teszteket. A piecewise hívásakor 
azonban minden argumentum kiértékelődik és behelyettesítődik az eljárástörzs- 


be, még mielőtt eldőlne, hogy melyik ágon folytatódik a számítás. Ezért nem 
alkalmazható a. következő függvénydefiníció az z — 0 argumentumra: 


5 fÍ :— x -2 piecewise( xc-0, x, x20, 1/x ); 


1 
f:— 33 piecewise( C0,3,0 c gr, sa 


a. TŐJE 


Error, (in f) division by zero 
executing statement: piecewise(x cz 0,x,0 c x,1/x) 
f called with arguments: 0 


A piecewise előnye az, hogy a Maple ezekre az objektumokra alkalmazni tudja 
beépített matematikai ismereteit. Áz ilyen szakaszonként definiált függvényeket 
differenciálhatjuk és integrálhatjuk, megoldhatunk őket tartalmazó (differenci- 
áljegyenleteket, kiszámíthatjuk Taylor-sorukat stb. Ráadásul több jólismert ma- 
tematikai függvény, mint például az abszolút érték, a maximum, a minimum és a, 
Heaviside-féle lépcsősfüggvény a piecewise-nak megfelelő formára konvertálha- 
tó a további számítások elvégzéséhez. Itt elég lesz egyetlen példa; továbbiakkal 
majd a diferenciálásról és az integrálásról, a sorfejtésekről, a határértékekről és 
a differenciálegyenletek megoldásáról szóló fejezetekben találkozhat az Olvasó. 


5 f :z min( x - 1, x 2-4); 
f : min(xz — 1, x? — 4) 


5: plot( f, x 5 273) 


A megfelelő grafikont a 8.6. ábra tartalmazza. 


Az f függvényt így konvertáltathatjuk a szakaszonkénti definíciónak megfelelő 
alakra: 


s  F :— convert( f, piecewise ); 
x—-1 z£ 3-3 vI3 
F::-4 322-4 2c3143vI3 
4-1 2 t3vVI3cg 
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8.6. ábra: A min(z — 1, z? — 4) függvény grafikonja a (—2, 3) intervallumon 


Ezután már differenciálhatjuk F-et x szerint, megoldhatunk F-et tartalmazó 
egyenleteket vagy kiszámíthatjuk valamely pont körüli Taylor-sorát. 


3 jdE( B, kk Já 


1 1 
1 ibn dák. álat 
undefined T— 5 a v13 
do 
22 25 tzvl3 
1 
undefined x- 5 2 2 v13 
§ Szat! 
1 2tavIScz 
5 integrate( F, x ); 
A FR 2 2 ető 
mi 2 19 1 573 1 
esse pi sálat SZ ré E 
1 is irta tz? pézt Ad. bite 
szaj eza sz a éz tes ige, 
27 5 13—2 3t3 3.€£ 
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5 plot( ", x — -2..5 ); 
A grafikon a 8.7. ábrán látható. 


8.7. ábra: f min(x — 1, r? — 4) dx grafikonja a (—2, 5) intervallumon 


5 solve( F5--3, x ); 
—2, 1, —1 


5 series( F, x-i, 3 ); 


—342(z—1)-4-(2— 1)? 


5  convert( ", polynom ); 
—5421-(z—1)? 


5 expand( " ); 


8.4. Maple eljárások 


Vessünk még egy pillantást az előző alfejezetben a nyíl operátorral definiált step 
függvényre: az ott látható output egy eljárás. A Maple eljárások definíciója 
általában a következő szintakszist követi: 
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proc( parameter seguence) 
[local name seguence; ] 
( global name seguence; ]) 
[ options name seguence; ] 
statements 

end 


ahol a name seguence Maple nevek vesszővel elválasztott sorozata. Sok eset- 
ben a parameter seguence ugyancsak Maple nevek sorozata, ám ha a dinamikus 
típusellenőrzést használjuk, akkor a nevek után a : : dupla kettősponttal elvá- 
lasztva típusukat is megadhatjuk. 

s sgn :— proc( n::integer ) (-1)"n end: 

5  sgn(Pi); 


Error, sgn expects its i1st argument, n, to be of type 
integer, but received Pi 


s  sgn(-2); 
1 


Az sgn eljárásnak egy paramétere van. Az eljárás meghívásakor a Maple ellenőr- 
zi, hogy a megadott argumentum integer típusú-e. Ha nem, vagy ha egyáltalán 
nem adtunk meg argumentumot, akkor a rendszer hibaüzenetet küld, egyébként 
pedig kiszámolja a hatvány értékét. 

Általában az eljárás által visszaadott érték az utoljára végrehajtott utasítás 
értéke (hacsak nem használjuk explicit módon aRETURN utasítást). Nézzünk 
egy példát: 


5 MEMBER :- proc( x::anything, L::list, pos::name ) 
5 local i; 
s for i to nops(L) do 
5 if L[i)] - x then pos :— i; RETURN(true) fi 
b od: 
s. false 
5 end: 
5  MEMBER( 2, [2,1,3,2], "position? ); 

true 
5 position; 

1 

2. MEMBERK 4, (2.153521 95 

false 


:a:2z 


definiáltunk sem lokálisként, sem globálisként, akkor a Maple automatikusan 
lokálisnak föltételezi. A. következő példa ezt illusztrálja: 


5 f :-— proc(x) 

5 y :—- 1 § sin(x); 

5 y724 yt 1/y t 1/y72 
5 end; 
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c 


Warning, "y" is implicíitly declared local 


f : proc(x) localy; y :— 1-- sin(z) ; v" ty 4 1/y 4 1/y? end 


s y :5— unspecified: f(Pi); 
4 


Magától értetődik, hogy jobb megadni a local és a global deklarációkkal az 
eljárásdefinícióban használt változók hatókörét. Ezek a deklarációk bármilyen 
sorrendben következhetnek, de mindegyik legföljebb egyszer fordulhat elő. 


A Maple-ben lehetőség van úgynevezett indexelt függvényhívásra. A rendszer 
ezt használja például a különböző alapú logaritmus függvények hívásai során. 
loglb] a b alapú logaritmust hívja. Itt csak egy példát mutatunk. Ez talán 
elegendő ahhoz, hogy némi elképzelésünk legyen az indexelt függvények definí- 


BEEE ÁE EA dan ÁÁ e / s PAT ST Vtsrlásn 00. ús zt báále a KÉRÉS E áráés ás 


Elő e J 19-1(1 — 2-1 dt. 
0 


B1(p, a) tehát a szokásos (teljes) béta függvény. A Maple-ben a B. (p, ag) egy 
kezdetleges, de nem , bolondbiztos" implementációja lehet a következő: 


5 BETA :— proc(p,a) 
s local xs 
5 if type( procname, indexed ) then 
5 x :— op( procname ); 
5 int( t7(p-1)r(1-t)"(g-1), t-0..x ) 
s else 
bej Beta(p, ag) 
5 fi 
5 end: 
5  BETA[1](2,3), Beta(2,39; 

1 

12" 12 
5  BETA(3/2,5/2); 

1 

zi 
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A BETA eljárás hívásakor a Maple először a, tényleges eljárásnevet vizsgálja 
meg alaposabban. Ellenőrzi, hogy az eljárásban belül szereplő procname vál- 
tozó értéke BETA[IK] alakú indexelt név-e. Ha nem, föltételezi, hogy BETA 
a, szokásos (teljes) béta függvényt jelenti. Ha. indexelt nevet használtunk, az 
x lokális változó az index értékét veszi föl, és a nem teljes béta függvénynek 
megfelelő integrál kerül meghatározásra. 
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8.5. Rekurzív eljárások 


A Maple-ben definiálhatunk rekurzív függvényeket és eljárásokat. Ezt a Lucas 
féle Ln, számok meghatározásával illusztráljuk, melyeket a következő lineáris 
rekurzió definiál 


I1—-1,12—3és5L,—L, 13 £n-2 han 7 2. 


A képlet a nyíl operátor segítségével egyből átírható a következő formába: 


5 L :m n -: 

5 if not type( n, posint ) 

then ERROR( "wrong type of arguments" ) 
elif n-1 then 1 

elif n-2 then 3 

else L(n-1) 4 L(n-2) 

fi 


VV.V VAN 


L :— proc(n) 
optionoperator , arrow; 
if not type(n, posint) thenERROR( wrong type of arguments") 
elifn— 1thenl 
elifn — 2then3 
else L(n — 1) 4 L(n — 2) 
fi 


end 


Az ERROR. eljárást a függvény végrehajtása során hibaüzenet generálására. 
használtuk, ha a megadott argumentum nem pozitív egész szám volt. Kicsit 
kényelmesebb a Maple eljárások definiálásának következő szabványos módja: 


5 L :-— proc( n::posint ) 
5 if n— í then í 

5 elif n — 2 then 3 

z else L(n-1) 4 L(n-2) 
5 fi 

5 end 

5 L(6); 


18 


Ez azonban nem valami hatékony módja a Lucas-féle számok kiszámításának. 
Számoltassuk meg a Maple eljáráshívások számát az exprofile eljárással (rész- 
letesebb leírása a help rendszerben található meg). 

5 readlib( exprofile ): tH load the library function 


5  kernelopts( profile — true ): it enable profiling 
s writeto( ?output? ); t redirect output to file 


Amíg ebben a módban vagyunk, a prompt jel nem jelenik meg a képernyőn. 


5  L(6): 
5 kernelopts( profile - false ): it disable profiling 
5 writeto( "terminal? ); $ redirect output to screen 
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5  exprofile( "output? ); 


name ftcalls 
Main Routine 1 
type/posint 15 
L 15 


saAnt ! Jz. 


adatokat. A fönti információk rögtön világossá válnak, ha megértjük, hogyan 
számítja ki a Maple a Lucas-számokat. L(6) meghatározásához ki kell számí- 
tani L(5)-öt és L(4)-et. Ezek mindegyikéhez két újabb függvényhívásra van 
. szükség, s ez így megy mindaddig, míg az összes szükséges Lucas-számot meg 
nem kaptuk. A 8.8. ábra tartalmazza az L(6) meghatározása közben végrehaj- 
tott függvényhívások gráfját. A gráf, az exprofile eredményével összhangban, 


2 L(5) L(4) 

3 L(4) L(3) d L(2) 
4 L(3) L(2) L(2) L(1) L(2) L(1) 

5 L(2) L(1) 


8.8. ábra: L(6) rekurzív kiszámítása a remember opció használata nélkül 


világosan mutatja, hogy L(2)-t például ötször is kiszámoltuk. Az L eljárás fönti 
definíciója mellett tehát exponeciális (2") idő szükséges az n-dik Lucas-szám ki- 
számításához, ezért L(100) meghatározása a végtelenségig elhúzódna. De ennél 
okosabban is eljárhatunk. Nyivánvaló, hogy ,emlékeznünk" kellene az egyszer 
már kiszámolt függvényértékekre, hogy szükség esetén újra föl tudjuk használni 
őket. Ezt a Maple remember opciója segítségével érhetjük el. 


5 L :— proc( n::posint ) Lucas( n ) end: 

5 Lucas :-— proc(n) 

5 option remember ; 

5 if n 7 íi"tnen7T 

5 elif n — 2 then 3 

5 else Lucas(n-1) 4 Lucas(n-2) 

5.  Íi 

5 end: 

5  kernelopts( profile — true ): 

5 writeto( ?output? ): 

5 £(6): 

5  kernelopts( profile — false ): it disable profiling 
5 writeto( "terminal? ); t redirect output to screen 
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5,  exprofile( ?output? ); 


name tcalls 
Main Routine 1 
Lucas 6 
type/posint 1 
188 1 


:4:g 


történik: az argumentum típusának ellenőrzése után a Lucas rekurzív eljárás 
kerül meghívásra. Így az argumentum típusát a számítás során csak egyszer 
ellenőrizzük (és nem újra meg újra minden egyes rekurzív híváskor). Minden 
Maple eljárásnak van egy emlékezőtáblája. Ez a tábla sokszor nem létezik ab- 
ban az értelemben, hogy a rá mutató pointer értéke NULL. De ha az eljárás 
chanizmusa azonnal aktiválódik. Az emlékezőtábla elemei a híváskor megadott 
argumentumokkal indexelt függvényértékek lesznek. Amikor a példánkban sze- 
replő Lucas eljárást valamely n argumentummal megbívjuk, a Maple először 
az emlékezőtáblában nézi meg, hogy a Lucas (n) értéket korábban kiszámolta-e 
már. Ha igen, akkor a táblabeli értéket adja vissza. Egyébként pedig végre- 
hajtja az eljárás törzsében definiált utasításokat, és automatikusan elhelyezi az 
(n, Lucas(n)) értékpárost a Lucas emlékezőtáblájában. Így minden Lucas 
számot csak egyszer számítunk ki. 


Az előző függvényhívási gráfnak megfelelő terminológiával kifejezve módsze- 
rünk a következőt jelenti: , járjuk be a gráfot a mélység szerinti (depth first) 
bejárási stratégiával, minden függvényértéket csak egyszer számítsunk ki, a ka- 
pott eredményt tároljuk, és szükség esetén ezt a tárolt értéket használjuk föl 
újra". 
verboseproc interfész változó értékét 3-ra állítjuk. Esetünkben ez a következőt 
eredményezi: 


5  interface( verboseproc — 3 ): 
5 print( Lucas ); 


proc(n) 
optionremember ; 
ifn—-1thenlelifn — 2then3 else Lucas(n — 1) 4 Lucas(n — 2) fi 
end 
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Az eljárás emlékezőtáblája az eljáráshoz rendelt struktúra negyedik operandu- 
szaként érhető el. 


5  op( 4, eval(Lucas) ); it remember table of Lucas 


table([ 
4-7 
57-11 
67-18 
1—1 
253 
3-4 
) 


Az emlékezőtábla közvetlenül is módosítható procedure(argument) :— value ala- 
kú funkcionális értékadásokkal. Ezt mutatjuk be a továbbiakban. Először is 
kezdjünk új Maple szekciót: 

. restart: 

5 Lucas :— proc(n) Lucas(n) :- Lucas(n-1) t Lucas(n-2) end: 

5  Lucas(1) :s 1: Lucas(2) :- 3: 

5 op( 4, eval(Lucas) ); tt initial remember table 


table([ 
171 
2-3 


: Lucas(4): op( 4, eval(Lucas) ); it updated remember table 


A Maple forget segédfüggvényével törölhetjük az emlékezőtábla egy vagy több 
elemét: 


5 readlib( forget ): tt load the utility function 
5 forget( Lucas, 3): tt forget the result of Lucas(3); 
5 op( 4, eval(Lucas) ); Ht updated remember table 


table([ 


1 
2 
4 


) 


II 
xy www 


I 
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Ha a Lucas mellett minden olyan eljárás emlékezőtáblájának elemeit is törölni 
akarjuk, amelynek neve a Lucas/ karakterekkel kezdődik, akkor a következőt 
írhatjuk: 

5 forget( Lucas ): 

5 op( 4, eval(Lucas) ); t clear remember table 


table([ 
b 


A Lucas és a Lucas/ karakterekkel kezdődő nevű eljárások emlékezőtáblájának 
eltávolítása : 
5 Lucas :— subsop( 4 -— NULL, eval(Lucas) ): 


5  op( 4, eval(Lucas) ); 4 NULL pointer to remember table 
s 


Az Olvasó megkérdezhetné, hogy a forget( Cname- ) parancs a name nevű eljá- 
rás mellett vajon miért törli az összes olyan eljárás emlékezőtábláját is, amely- 
nek neve a name/ karakterekkel kezdődik. Ennek oka az, hogy ily módon az 
int, az evalc vagy a hozzájuk hasonló rutinok tábláit anélkül törölhetjük, hogy 
ismernünk kellene a táblákat használó összes int/. . . vagy evalc/. . . nevű segéd- 
függvényt. Tehát a forget lehetővé teszi, hogy tiszta lappal induljunk. A forget 
viselkedésének további részleteit megismerhetjük a, beépített help rendszerből. 


8.6. Az unapply függvény 


Új függvények létrehozásának létezik egy harmadik módja is; ez különösen ak- 
kor kényelmes, ha egy Maple szekció közepén jutunk el egy olyan szimbolikus 
kifejezéshez, amelyet egy függvény megadására, szeretnénk fölhasználni. Ezt az 
unapply eljárással tehetjük meg. Ahogy a nevéből is kikövetkeztethető, ez épp 
az ellenkezője annak, amikor egy függvényt alkalmazunk szimbolikus paraméte- 
rekre. 

5 formula :— ( b-72rx-2isin(brx) - 2xsin(brx) 

5 4 2ibirxrcos(brx)rart ) / b73; 
b? 2? sin(b 2) — 2sin(bx) £2bzcos(bxr) at 

b3 


formula :— 


5  F :- unapply( formula, x, t ); 
Hisz fá b? 2? sin(b 2) — szel H2bzcos(br) at 
5  F(0,1), F(Pi/b,5); 
Ta 


0, 40, 
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Ha a nyíl operátorral megadott függvénydefinícióban a " operátorral próbálunk 
hivatkozni az előző kifejezésre, kudarcot vallunk: 


5 formula :— ( b72kx-2xrsin(brx) -2rsin(brx) 
5 4 2xibixicos(brx)trart ) / b73: 
s JE szve(xty 5 És 

F:sslg a" 


s  F(u,v); 
5 


A problémát az okozza, hogy a " operátor valójában egy környezeti változó, 
amely az F eljáráson belül lokálisan működik, de nem hivatkozhatunk vele sem- 
miféle ezen kívüli objektumra. Az eljáráshívás előtti értéke a verembe került, és 
csak az eljárásból való visszatérés után állítódik vissza: 
5 G :— (x,t) -2 formula; 
G :— (z, t) - formula 


5. G(1.2 
b? 2? sin(b 2) — 2sin(br) t2bzcos(b Tr) at 
bő 

Most pontosan azt kaptuk, amit kértünk: bármilyen argumentumokkal hívjuk 
is G-t, a formula kiértékeléséből származó értéket kapjuk vissza. A függvény 
leírását tehát valójában paraméter — description formában kell begépelnünk. 
Az egyetlen alternatíva az lehet, hogy a kifejezést egy globális változó, mondjuk 
a body segítségével helyettesítjük be a függvény leírásába: 

s  H :— subs( body - formula, (x,t) -2 body ); 
b? 22 sin(b 2) — 2sin(b Tr) -2bzcos(br) at 

b3 


H:— (rt) o 


s  H(u,v); 
b? u? sin(b u) — 2sin(b u) (- 2b u cos(b u) av 
b8 


8.7. . Függvényműveletek 


A függvényekkel végzett elemi műveletek, mint például az összeadás, a szor- 
zás vagy a kompozíció, könnyen végrehajthatók a Maple rendszerben. Néhány 


példa: 
5 f :— x -2 In(x) 11: g :— y -2 exp(y) - 1: 
s h:5sf 4.g: h(2); 


In(2) 4 e? 
s h:—- f rg: h(2); 
(In(z) 41) (e — 1) 
3 has 0pm h(zje 
ln(e?—1)-1 


s: h:-g 0 f: h(2); 
eln(2)4-1) ET 
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5 simplify("); 
2€—1 


5  (f£004)(z); $t eguivalent to f(f(f(f(z)))) 
In(in(In(In(2) 41) 41) 41) 4-1 


A. € operátort a macro paranccsal kombinálva a Maple hatékony mechanizmust 
nyújt rövidítések bevezetésére. Ennek egyik példája a helyettesítés. Emlékez- 
zünk vissza, hogy a 6.3. alfejezet szerint a subs csak a helyettesítést végzi el, 
de a végén nem végez kiértékelést. 

s  subs( n-2, Zeta(n) ); t substitution 


c(2) 


s !"; Ht evaluation 
l 2 
8" 
Tegyük fel, hogy a helyettesítés végeredményét mindig ki akarjuk értékelni, ek- 
kor a következőt tehetjük: 
5  macro( subs — eval € subs ): tH new version of subs 
5  subs( n-2, Zeta(n) ); ítt with new version of subs 


1 


6 


8.8. Névtelen függvények 


Nem vagyunk kötelesek nevet adni a függvényeknek. A névtelen függvények 
hasznosak lehetnek, ha, például valamely műveletet csak egyszer akarunk végre- 
hajtani, és nem akarjuk időnket azzal vesztegetni, hogy ennek még külön nevet 
is adjunk. Névtelen függvényeket leginkább a map, select, remove, zip és a 
collect eljárásokkal kapcsolatban használunk. Néhány példa: 
5 map( x -2 x t 2, [1,2,3] ); $ add 2 to list elements 
[3, 4, 5] 
5  map( x -2 x72, a t b 4 c ); $t sguare summands 
9234 -t e 
2. "data ss TIL 401 [28815 E35L1 Ís 
5. it take the logarithm of the 2nd element of each entry 
5  map( x-2 applyop(1n,2,x), data ); 
([1, 0], [2, 1.335001067], [3, 1.629240540 ]] 
5  § compute sums of derivative and antiderivative 


s" mápc CÉSx es dirt(é.x) H Ínt(É 0 
5  [cos(z), sin(z), exp(z), In(2) 1], z ); 


1 
[0, 0, 2 ef, e. -4 2 In(2) — 2] 


5: sumi xx ijg 282 E Ozab6 s 
132427 42? rra ző hb ző 
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5 § select low and high terms in polynomial 
5  select( t -2 degree(t)c3, " ); 


14242? 
5  remove( t -2 degree(t)cx3, "" ); 
3 azta za ző 
5 dt combine two lists of data 
5. zip( (K,y) -5 [x,1n(y)1; [12.31], [1.0,3.-8,5:.1) ); 
[[1, 0], 2, 1.335001067], [3, 1.629240540]] 
5 1 collect a polynomial in x and sguare coefficients 
5  collect( x72 1 yrx72 41 2kx ty, x, z -2 272); 
(13-y2 3? t4zry 


8.9. Gyakorlatok 


1. Oldjuk meg az 3? — (a— 1)2? 4 a2z — a? — 0 egyenletet T-re. Határozzuk meg 


azt a függvényt, amely az előző egyenlet első megoldását adja a függvényében, 
és számoljuk ki a megoldást a — 0 és a — 1 esetén. Adjunk közelítő megoldást 
a — 2-re. 


2. Definiáljunk egy Maple függvényt, amelynek értéke 1 a [—1, 1] intervallumon 
és 0 különben. Rajzoltassuk is ki a függvény gráfikonját. 


3. Definiáljuk a következő függvényt f : tm Bgval sin(nt). Számítsuk 
n7-1 
ki f(150-et és f(§)-ot. Rajzoltassuk ki a függvény gráfikonját. 


4. Milesz f(1), f(4) és fO értéke a következő értékadások után? 


) x : 1: 
, f :5- proc(x) 2 end: 
(f(x) sz Bi 


5. Írjunk Maple eljárást az Ln(7) Legendre-polinomok kiszámítására. Ezek a 
polinomok az Lo(x) — 1, L1(x) — z és La(x) — S(zLn-1(z) — Dn—2(2)) 4 
zLn-1(7) haz 5 1 rekurzív relációt elégítik ki. Számítsuk ki L7(T)-et, és ellen- 
őrizzük az eredményt a Maple orthopolyf[PJ] eljárásával. Ki tudja-e számítani 


a megírt eljárás Ls50(2)-et? 


6. Írjunk olyan névtelen függvényt, amely egészek egy halmazából kiválasztja 
azokat, amelyek 0 és 10 közé esnek. A rand eljárással generáltassunk 100 egész 
számból álló halmazt, és alkalmazzuk névtelen függvényünket erre a, halmazra. 


7. Írjunk olyan névtelen függvényt, amely egy kétváltozós polinomból (ilyet 
a randpoly eljárás segítségével is létrehozhatunk) elhagyja mindazon tagokat, 
amelyeknek negatív az együtthatója. 


Diflerenciálás 


Ez a fejezet elmagyarázza a szimbolikus differenciálásra szolgáló diff és D el- 
járásokat, példákat mutat az implicit differenciálásra, és röviden tárgyalja az 
automatikus differenciálás lehetőségeit a Maple-ben. 


9.1. Szimbolikus differenciálás 


A diff Maple eljárással formulákat differenciálhatunk: 
s  Jdiff( exp(-x72), x)?; 

fo) 2 

Zeeer) 

öz" 


-2xető) 


Az első parancs körüli aposztrófok arra szolgálnak, hogy késleltessék a derivált 
kiszámítását, és kétdimenziós formában jelenítsék meg az inputot. Ugyanezt 
elérhettük volna a Diff tétlen paranccsal, amely csupán a kiértékeletlen ered- 
ményt adja. Ezután explicit módon kérnünk kell a kifejezés értékét: 


5 Diff( In(x/(x72-41)), x ): " - value("); 
1 a? 8 
fo) z Vári "fama e 420 


BEEE x 
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5  normal("); A 
[0 In( z fa z7—-1 
Oz "3231 r(1241) 

Egy igazi Maple szekcióban először valószínűleg a Diíf tétlen eljárást alkal- 
maznánk, csupán azért, hogy lássuk, a kívánt formulát gépeltük-e be. Ezután, 
ha valóban a differenciálandó formulát kaptuk, a munkalapos fölhasználói felület 
szolgáltatásait alkalmazva kicserélhetjük a Diff-et az , aktív" diff eljárásra, vagy 
a value-val kérhetjük kiértékelését (a karakteres fölhasználói felület esetében a 
beépített sorszerkesztőt használhatjuk). Az alábbi példákban a könnyebb ért- 
hetőség és az eredmények jobb megvilágítása miatt a Diíff-et fogjuk alkalmazni. 


3. DÍTÍ(C( x (xx), k d): T — válúe(l("js 
fo) gi űj 7 vég 
(27) — (27) (ue s 
öz 2 za) (27 (In(x) 4 1) In(g) - kz ) 


5  collect( ", 1ln(x), simplify ); 

sz z(29) — (zt) In(g)? 4 alt) In(g) -- z(z7tz— 0) 

A differenciálási szabályok egyszerűsítések nélküli merev alkalmazása nagyon 
gyorsan áttekinthetetlen eredményekhez vezethet. A kifejezések ilyen , fölfúvó- 
dásától" eltekintve a magasabb rendű deriváltak kiszámítása sem okoz bonyo- 
dalmakat: 


5  Diff( x7(x7x), x, x ): " - value(!"): 
5  collect( ", In(x), simplify ); 


acs z(2) — z(z) (zt In(g)t a (lt) 4. 22() (a2)7) In(g) 
4 (2x(zt2) 4 2 g(z—1) (z2)" a z(2) (z2)") In(g)? 
3 (B z(z7te-1) 4 z(s7a) , 2 (2-1) (g2je) In(g) 4 ezt) (g2jz 
42 r(z7ta—1) (27 -4a—2) 
5  Diff( exp(-x72), x$5 ): " - value("); 


5 
at az eget? 4 d60 et elé — szet l-t 


Az input lerövidítésére a $ sorozat operátort használtuk. A 
diff( exp( -x72), x$5 ) 
kifejezés ekvivalens a hosszabb 
diff£(-exp( -x 2), XXX Kyx ) 


alakkal. 

Megjegyzés: diff( expression, ( var$n ] ) a magasabb rendű deriváltak alterna- 
tív jelölésmódja. Azért vették hozzá a Maple rendszerhez, hogy az üres lista 
megadásával hivatkozni tudjunk a 0-dik deriváltra, vagyis az eredeti kifejezésre: 


5 for i from 0 to 8 by 4 do 
5  "".i."th derivative" — diff( x78 / 1680, [x$ij] ) 
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5 od; 


Oth derivative — fi 


1 
1680 3 
4th derivative — x 
8th derivative — 24 


Az z változó egyenlettel definiált y függvényének differenciálása a következő 
elegáns módon végezhető el. 


s alias( y — y(x) ): it consider y as a function of x 
5 eg :— x72 41 y72- c; $ eguation defining y; c is constant 


eg :— a? ky? ze 
5 diff(eg,x); 


de agt 7-0 


az" 
s dydx :5 solve( ", diff(y,x) 2); tt ist derivative 


dydz :— sző 
y 


5 diff(eg,x$2); 
fő) 8? 
242(—yj? 1 2y(— y) — 
tk (37) § yzy [0 
5  solve( ", diff(y,x$2) ); tt 2nd derivative 


1 HÁÉW 
y 
s d2ydx2 :-— normal( subs( diffí(ly,x) - dydx, " ) ); 


922 y? 
y3 


d2ydx2 :— — 


Az eredeti egyenletet mellékföltételnek tekintve tovább egyszerűsíthetünk: 
5  d2ydx2 :— simplify( ", f(eg), [x,y,cl 2); 


c 
d2yda2 :— ég 
s dg3ydx3 :— diff(",x); 
c(sz 4) 
dgydz3 :— 3 5 a 


I 


5 d3ydx3 :— normal( subs( diff(y,x) — dydx, " ) ); 


d9ydz3 :— —3 5 
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A magasabb rendű deriváltak ugyanígy számíthatók ki. A fejezet végén az 
implicit differenciálásra szolgáló implicitdiff eljárást is ismertetni fogjuk. 
5 alias( y- y ): it unalias y for further usage 


A parciális deriváltak sem okoznak gondot a diíff-nek. Két kétváltozós függ- 
vényt tartalmazó példa: 


5 Diff(exp(arxtry72), x, y$2 ): " - factor( value(") ); 
9" ú 
öy2öz elező) — 2gelezvő) (145ary" 42a? yt 2?) 
5 Diff( sin(xty)/y74, x$5, y$2 ): " - value("); 
07 — sin(zty) zzj cos(z - y) 46 sin(z 4 y) ál cos(z -- y) 
9y? 05 yi yi vő ő 


5  collect( ", cos(xty), normal ); 
07 — sin(z-ky) —— (y? — 20) cos(z 4-y) ús sin(z ty) 
dy? 0x5 yi y6 yő 
Ha nem formulát, hanem függvényt szeretnénk differenciálni, akkor a D ope- 
rátort alkalmazhatjuk. D függvényként hat, az általa előállított derivált is függ- 
vény lesz. Ez különösen akkor kényelmes, ha a, függvény deriváltját akarjuk 
kiszámítani vagy specifikálni egy adott pontban. 


s g :— x -5 xön $ exp(sin(x)); $ the function 
9:— 7 z? efin(r) 


5 D(g); t the derivative 


Tr?n esin(z) 


EVET Ea 3 2? cos(x) esir() 


5 D(g)(Pi/6); t the derivative at Pi/6 
ák 
(-mrne/2) dől ! 
A epe (mr v3et/2) 
2 "6 
D(f) lényegében ugyanaz, mint unapply( diff(f(x),x), x ). 

Lényeges, hogy világosan lássuk a diff és a D közti különbséget: a diff formu- 
lát differenciál és formulát ad vissza, míg D leképezést differenciál és leképezést 
is ad eredményül. Néhány példa: 

s diff( cos(t), t ); tt derivative of a formula 

—sin(t) 
5  D(cos); tt derivative of a function 
—sin 
5 (D002) (cos); ítt 2nd derivative of a function 
—cos 


5  D(cos)(t); $ derivative of a function at some point 
—sin(t) 
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5  D( cos(t) ); 
D(cos(t)) 


Az utolsó parancsban a Maple cos(t)-t nem a koszinusz függvényként fogja 


utóbbi cél eléréséhez szigorúan követnünk kell a Maple szintakszisát és szeman- 
tikáját, ezért a € kompozíció operátort kell használnunk: 
s  D( cos € t); 
(—sin) at D(t) 
Ha azonban azt tesszük föl, hogy t konstans, akkor már valóban hajlandó a 
Maple a cos(t)-t függvénynek tekinteni, ti. konstans függvénynek: 
s  assume( t, constant ): D( cos(t) ); 


0 


Még könnyebben érthető a, dolog, ha egy ismerős konstanst használunk: 
s D( cos(1) 2); 
0 


A cos(1) szám konstans függvénynek tekinthető, ezért deriváltja a 0 függvény: 


s t :5- 0t?: it unassiígn t, i.e., forget assumption 
s diff( cos, t ); 
0 


Az utolsó példában a Maple a cos-t olyan kifejezésnek tekintette, amelyben a 
t nem fordul elő. 


Ha implicit függvényt akarunk definiálni, a leképezést kényelmesebb kifejezés- 
ként kezelni és a D-vel elvégeztetni a differenciálást. Az előzőekben a, diff-fel 
megoldott példa az új formalizmus szerint a következő lesz: 


5, eg :— x72 t y72—- c: D( eg ); 
2D(z)z42D(yy-D( 
Megmondjuk, hogy x független változó, c pedig konstans: 
s  D(x) :— 1: D(c) :— 0: dydx :— solve( """, D(y) 2); 
177 
dydz :— —— 
y 


5. (D002)( eg ); 
232(DO)(y)y-3-2D(y? -0 
5  solve( ", (D002)(y) ); 
.1-4D(y)? 
y 
5  da2Zydx2 :— normal( subs( D(y)-dydx, " ) ); 
32 3 y 
y8 


d2ydx2 :— — 
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És így tovább. 
A D operátor nem csak egyváltozós függvényekre alkalmazható. A parciális 
deriváltak a D-re vonatkozó indexelt függvényhívásokkal érhetők el: 
s h :— (x,y,z) -2 1/(x721ry72tz72)7(1/2) ; 
1 


V21?d3y az? 


h :— (2, y 2) jú 


5 tt partial derivative w.r.t.x 
s 9D[11(n)? - D[1](h); 


D1(h) — ((z, y, 2) — — si 


(22 4 y2 zyr) 
D[1](h) a h függvény első argumentuma szerinti parciális deriváltját jelenti. Ez 
ekvivalens az unapply( diff(h(x,y,z) ,x), x,y,z ) kifejezéssel, az esetleges 
eltérések az egyszerűsítésekből adódhatnak. 
5 § partial derivative w.r.t.x andy 
s 9D[1,2](n)? - D[1,21(h); 
es y7 
D1,2(h) — ((z, y 2) e egrpizyn) 
D[1,2]1(h) ugyanazt jelenti, mint Df1](DE2] (h) ) . 
5: ft 2nd partial derivative w.r.t. x 
s 9DI[1,1](h)? - D[1,1](h); 


Di, 1(h) — ((z, y, 2) - 


x? 1 


3 teszi 
(22 alj y? -k 22)5/2 (z2 je y? 4 zip) 


Ha a ( kae -k kés Pk 8) h Laplace-operátort alkalmazzuk, az egyszerűsítések 
elmaradása miatt nyilvánvalóvá válnak az operátor-módszer korlátjai: 
5" LIh] :- ( DI1.1] § D(2.2] §"DIS,31.3 (42; 


2 Al 
En :— ((z, y, 2) 0 3 (22 3 y2 4 22)5/2  (224y2- zn) 
2 
y 1 
zt ((z, y; 2) EA 3 (32 Ty -4 22)5/2 pe Sipiayr! 
2 
1 
KEEN EGK BEN ; 


(22 4y2 122)? (323 y2 2 22)3/2 
5  normal( L[h](x,y,z) ); 
(4) 


Minden út Rómába vezet. Bár az eddigiekben az implicit differenciálás vég- 
rehajtására a diff és a D eljárásokat használtuk, ugyanerre a célra a Maple 
könyvtár is tartalmaz egy implicitdiíf nevű rutint. Ezzel igyekeznek meg- 
könnyíteni a szoftver használóinak életét. Az [53] irodalom 1.5.4. fejezetében 
a MACSYMA rendszerrel megoldott példán mutatjuk be az eljárást. Legyen 
9(z,y) olyan implicit formula, amelyben y az z függvénye. A továbbiakban y 
zx szerinti első, másod és harmadrendű deriváltjára adunk meg képleteket a g 
parciális deriváltjainak segítségével. 
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, dydx :- implicitdiff( g(x,y), y(x), x ); 
D1(9)(2, y) 
dydx — ——— 
7 D2(9)(z, v) 


Lehet, hogy az Olvasónak ismerősebb ez a jelölésmód: 
5  convert( dydx, diff ); 
. széle, v) 
3; 8(z, y) 
Folytassuk y magasabb rendű deriváltjainak meghatározásával: 
5 d2ydx2 :-— implicitdiff( g(x,y), y(x), x$2 ); 


dgydz2 :— —(D1,1(g9)(x, y) D2(9)(z, y)? 
— 2 D1,2(9)(z, y) D1(9)(z, y) D2(g)(z, y) 4 D2,2(9)(z, y) Di1(9)(z, y?) / 
D2(9)(z, y)" 


5  convert( ", diff ); 


(asz ela, )) (ay ela, 7 — 2 (gaz ele, 4) (25 ele, 4) (zt. ele, w)) 


2 
a (gyz (a, w)) (az ea, 2) / tár ela, 


y harmadik deriváltjának kiszámítása már jól mutatja a számítógépes algebra 
használatának előnyeit a hagyományos papírral és ceruzával szemben: 


5 d3ydx3 :— convert( implicitdiff( g(x,y), y(x), x$3 ), 
2 TAiít 95 


83 9 ú 
dóydz3 :— —((57z B(z, v)) (gy 82 4) 
3 
13 (zz elz, v))? (25 ela, 2 (zsgz ele, 4)) — 3962 (2- ela, v))5 968 
169627 (57 elm, 4)? (2Z elm, 1) 
3 
— (zzz Ela, 4) (az ele, 4) (ar ela, 3 
9 ő 33 

— (az ele, 1)? (25 ele, 1) (zés ele, 4)) 

3-3 (25 ela, 4)) 961963 (2 elm, 4)? 39612 (2Z- ela, w) 

—992 (2; ela, w) 61 (zt ela, 2) / ela, S 


0? 
701 :— ay e y) 
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0? 

702 :— öy öz 82 y) 
0? 

793 :— 37 g(z, y) 


Befejezésül kiszámoljuk a g(r,y) — exzp(z? - y?) függvény deriváltjait: 
5 g :5 (x,y) -2 exp( x72 t y72 ); 


9: (my o dé) 


5 dydx; 
1) 
y 
5  normal( d2ydx2 ); 
32 4 y? 
HZ 


5 normal( d3ydx3 ); 
vég (22 4 y?) 
yő 


Ezek a képletek összhangban vannak az z? ty? — c egyenlettel definiált y 
implicit függvényre korábban kapott eredményekkel. 


9.2. Automatikus differenciálás 


A D operátor fölhasználható automatikus differenciálásra, vagyis Maple eljá- 
rások differenciálására is. Kezdjük egy olyan példával, amely case utasítással 
megadott szakaszonként definiált függvényt tartalmaz: 


s F :— x -5 if x20 then sin(x) else arctan(x) fi; 


F :— proc(z) 
option operator , arrow; 
if 0 c zthensin(7T) else arctan(z) fi 
end 


s Fp :- D(F); $ ist derivative 


Fp :— proc(2) 
option operator , arrow; 
if 0 c zthencos(z) else 1 /(1- 2?) fi 


end 
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Rajzoltassuk ki F-et első deriváltjával együtt. 
s  plot( ( F, Fp ), -3$Pi..3£xPi ); 


9.1. ábra: Szakaszonként definiált függvénynek és deriváltjának grafikonja 


A Maple több utasításból álló eljárásokat is tud differenciálni. Lássunk egy 
egyszerű példát: 


5 Í :5— proc(x) 
5 local s,t; 
s s :— ln(x); 
5 V.SZ KDK 
pl sktt tt 3rt 
5, end: 

5 íp :— D(£); 
fp : procíz) 


localtg, sz, t, s; 
sz:—1/2;s:—ln(m); tr —2xzöt—g;szxttsxtrt3xtr 


end 


Az fp eljárás valóban f/-t számolja ki? Ezt úgy bizonyíthatjuk be, hogy az 
eljárást szimbolikus paraméterekkel hívjuk meg, ami ténylegesen az eljárás által 
leírt függvény képletté alakítását jelenti. 
5 diff(f(x),x) - fp(x); 
0 


Ez a fajta ellenőrzés nem lehetséges olyan eljárásokra, amelyekben formális pa- 
ramétert tartalmazó föltételes utasítás fordul elő (ilyen volt az előző F függvény 
is). Mellesleg ez az egyik oka az automatikus differenciálás bevezetésének: nem 
minden függvény írható le (kényelmesen) képlettel. 
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Hogyan konstruálható meg az fp eljárás? f és fp forráskódjának összehason- 
lítása kulcsot ad az automatikus differenciálás következő általános módszerének 
megértéséhez: 


Az eljárásban szereplő minden v :— f(vji, . . . , n) alakú értékadó uta- 
sítás elé (ahol v; lokális változó vagy formális paraméter) szúrjuk be a 
vz :— fp(vi, . . . , Vn) utasítást, amelynek jobboldalát az f(vi, . . . , Un) 
formális differenciálásával kapjuk. Helyettesítsük az utolsó utasítást 
(és minden RETURN utasítással visszaadott értéket) a deriváltjával. 


A módszer neve előre tartó automatikus differenciálás; a függvényt és derivált- 
ját az eljárás kódján végighaladva egy menetben adja meg. Ezt az algoritmust 
használja a Maple is. Alkalmazhatóságának néhány korlátja: az eljárás törzsé- 
ben nem lehet rekurzív eljáráshívás, nem használható a remember opció, globális 
változóknak nem adhatunk értéket, ciklusváltozó pedig csak konstans lehet. 

Létezik egy másik, hátrafelé tartó automatikus differenciálásnak hívott mód- 
szer, amely egy előre haladó első menetben a függvényt, majd egy hátrafelé tartó 
második menetben a deriváltat számítja ki. Ezt (még) nem implementálták a 
Maple-ben. Az automatikus differenciálásba, történő bevezetést tartalmaz [87] 
és [88]. Sokféle algoritmust, implementációt és alkalmazást leíró jó kézikönyv 
[89]. 

Ezt a pontot azzal zárjuk le, hogy rámutatunk az automatikus differenciálás 
használatának másik okára. Ez a számítási idő és a memóriahasználat költség- 
kihatása. Tegyük föl, hogy az 


h:z fan — mfi han51 


rekurziós összefüggéssel definiált iterált hatványokra és deriváltjaikra vagyunk 
kíváncsiak. Amint a 9.1. alfejezetben korábban láttuk, a deriváltak kifejezései 
már kis n értékekre meglehetősen terjengőssé válnak. A deriváltra automatikus 
differenciálással kapott eljárás viszont nagyon tömör. Az fn következő iteratív 


5 f :5— proc(x,n) 

5 1ocal its 

3. ih edge B 

b. för 1:-tó ndot zs xőt od; 
e kj 

5 end; 


f :: procíz, n) locali, t; t: 1; foritondot :— zt od;tend 


s; fp:s DIITCSÍ; 4 iet derivatíve eft wirst: a 


fp: procíz, n) 
localtr, z, t; 


te EÜ; 

tes Lá 

foritondotz :— ag! x (tr x In(z) 4-t/x); t— zod; 
tz 


end 
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Kiszámítjuk f22 harmadik deriváltját kétféle módon: automatikus differenciá- 
lással és szimbolikus differenciálással. Látható lesz a memóriahasználatban és a 
számítási időben mutatkozó nagy eltérés. 


e automatikus differenciálás 


5 íppp :— D[1$3](£): t 3rd derivative of f w.r.t.x 
5 $H register memory usage 
5  setbytes :— kernelopts( bytesused ): 
5 H start timing 
5 settime :— time(): 
5 fppp( 1.1, 22 ); 
18.23670379 
5  cpu.time :— (time(O)-settime) $ seconds; í computing time 
cpu.time :— .290 seconds 
s memory used :7- evalf( 
s  ( kernelopts( bytesused ) - setbytes ) / 


5 1024 : kbytes, 5); 
memory-used :— 426.17 kbytes 


e formális differenciálás! 


s f22 :-— unapply( f(x,22), x ); 


ég 


z 


f22—272Ör 


5  setbytes :— kernelopts( bytesused ): 
settime :— time(): 
3 (DOSZ T ERZI 1 13 


v 


18.23670379 


s  cpultime :— (time()-settime) $ seconds; tt computing time 
ecpu.time :— 63.959 seconds 
5 memory used :— evalf( 


s  ( kernelopts( bytesused ) - setbytes ) / 
5 1024 : kbytes, 5); 


memory. used :— 40997. kbytes 


l Az unapply eredményét az olvashatóság érdekében egyszerűsítve közöljük. (A Fordító 
megjegyzése.) 
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9.3. Gyakorlatok 


1. Legyenek f,g és h a következő többváltozós valós függvények: 


In(1-- zt -- yt) 


f(z, y) gú Va ay 


1 
my ————— —— —— —— ————  —— — 
9(z,y. 2) (z— a)? 4 (y— b)? tt (z — 0)? 
Z 
la ZT 


(a) Határozzuk meg f összes másodrendű parciális deriváltját. 


(b) Ellenőrizzük, hogy g a Laplace-egyenlet megoldása, vagyis 


0? 0? 0? 
(dztág tsa) 


(c) Ellenőrizzük, hogy Ah a 


02h 4. 49 Oh ü 
Ör0y 32 hy2t 22) dy 


differenciálegyenlet megoldása. 
2. Hasonlítsuk össze a következő Maple parancsok eredményét: 


5. :dítffC( f(xi, x); 
) convert( ", ?D? ); 
, unapply( ", x ); 


3. Határozzuk meg az f(x) : max(x?, x) függvény deriváltját. 


4. Jelölje y(r) a T-t /y — 1 egyenlettel meghatározott implicit függvényt. 
Számítsuk ki az y! első és az y" második deriváltat. 


5. Valamely h háromváltozós függvényre jelölje z(x,y) a h(z,y, z) — 0 egyenlet- 
8i 02 
tel meghatározott implicit függvényt. Állítsuk elő a ZZ és a 3 deriváltak 


ÖT ro 
képletét. Hogyan néznek ki az eredmények, hah— /T-4/ytV2—1? 


6. Tekintsük az alábbi rekurzióval definiált f, függvényt: 
fo 5-0, fi JI, Tin zni - sin(fn-2) han 5 ii. 


Határozzunk meg (automatikus differenciálással) eljárást az f, első deriváltjá- 
nak kiszámítására. 


10. 


Integrálás és összegzés 


A (határozatlan és a határozott) integrálás a számítógépes algebra egyik fon- 
tos területe. A Maple az elemi függvények integrálására a legtöbb matemati- 
kai kézikönyvben tárgyalt heurisztikus integrálási módszerek helyett olyan nem 
klasszikus algoritmusokat használ, mint a Risch-féle algoritmus. Röviden is- 
példát közlünk, hogy képet kapjunk a Maple lehetőségeiről, valamint arról, ho- 
gyan segíthetünk a rendszernek. Mutatunk példákat integráltranszformációkra 
(a Laplace, a Fourier, a Mellin, a, Hilbert és a Mellin-félére) is. 

Az integrálás diszkrét megfelelőjének tekinthető összegzés az analízis másik 
olyan fontos területe, ahol a Maple fejlett módszereket alkalmaz. Ezt néhány 
példával fogjuk szemlélteni. 


10.1. Határozatlan integrálok kiszámítása, 


A Maple-nek több hatékony, beépített függvényintegrálási algoritmusa van. Elő- 
ször a középiskolában és az egyetemen tanított hagyományos technikákat próbál- 
ja alkalmazni: táblázatokban keres, mintaillesztéssel, parciális integrálással, új 
változó bevezetésével, a láncszabály alkalmazásával stb. próbálkozik. Ha ezek a 
heurisztikus módszerek nem vezetnek eredményre, akkor a rendszer determinisz- 
tikus módszereket alkalmaz, főleg az úgynevezett Risch-féle algoritmust [163]. 
Tekintsünk először egy példát az int eljárással végzett határozatlan integrálásra: 
5. Ent4 eA(x ati), xx 9 7 dtex ety x) s 


1 
[As -: ml) a (2? — 2-1) 4 5 vBarctan(i Oz — 1) V3) 
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Figyeljük meg, hogy a Maple elhagyta az integrációs konstanst. A kapott ered- 
mények így könnyebben kezelhetők. Egy kis óvatosság azért nem árt; ellenőriz- 
zük a rendszer válaszát. 


5 rALHEC rha("9)s XKoz 
1 1 271—1 2 1 


1 
3142" 6242-mti" 3 


5  normal( ", "expanded? ); 
x 


331 


A fejezet további részében találkozunk majd olyan példákkal is, ahol az integ- 
rálás eredménye nem ellenőrizhető ilyen könnyedén. 


A fönti példa baloldalán a megjelenítés kedvéért az Int tétlen eljárást alkal- 
maztuk. Ezentúl az Int-et fogjuk használni az integrandus és az integrálási 
határok megmutatására, és ténylegesen a value eljárással számíttatjuk ki az 
integrált. 

A racionális függvények integrálására az iskolában tanult módszerek közül a 
parciális törtekre bontás a legfontosabb. Jól alkalmazható a fönti integrálra is. 
A következőhöz hasonló esetekre való alkalmazása azonban már jóval fárasztóbb, 
és több hibalehetőséggel jár: 


s Int( x/(x"54t1), x ): " zs value("); 


1 ; 
fi s dz——- (14) 4 og n(227— 2 V5z2) 


x5 31 
431—1— 45 
1 eget TET ] 
— —In(222—2—4V5212)vV51É zh 
20 5 10—2V5 


1 
tzgh(22? rt vVőrt2)t gm22- rt vVőz42)v5 


47—1 

LT HB ag 
104245 

5 10325 


arctan( 


5  normal( diff(rhs("),x), "expanded? ); í check the answer 
im 


x5-1 


És ha csak egy kicsit megváltoztatjuk az integrandust, már nem is alkalmazható 
a parciális törtekre bontás trükkje: 


5  infolevell[int] :— 2: it make Maple more communicative 
5  Int( x/(x7542rxt1), x ): " -— value("); 
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int/indef: first-stage indefinite integration 
int/ratpoly: rational function integration 
int/rischnorm: — enter Risch-Norman integrator 
int/risch: enter Risch integration 
int/risch: the field extensions are 
[-X] 
unknown: integrand is 
szt 
-XS342.X.£41 
int/risch/ratpoly: integrating 
-X 
-Xő34.2.X31 


int/risch/ratpoly: — Horowitz? method yields 


fú 
jazzt 
-X"t2.X1£1 

int/risch/ratpoly: 
starting computing subresultants at time 1.830 
int/risch/ratpoly: 
end of subresultants computation at time 1.840 
int/risch/ratpoly: 
Rothstein?"s method - factored resultant is 

500 4 1 

5 3 
ege szelet szg 
KLERTES TÁM TETTÁÉÉTETTÁET 


int/risch/ratpoly: result is 
65376045600 4  4270752875 3 
2, -RM(X 4 Sg28G70 Tt — 64828679 Tt 


-R—91 
— 625000000 re, 447235682. 21514240, 
64828679 7 64828679 " —— 64828679 
951 :— RootOf(11317.27 — 500.2244 2741) 


int/risch: — exit Risch integration 


A. 65376045600 
szesz szeza GÉ Ez .Rl éseket ölzáatétászt Bi "za 
[iz 7 Zz a(z eggagg7 B 


. 4270752875 s — 625000000 2 , 447235682 , — 21514240 
64828679 7 64828679 7 64828679 " "—— 64828679 
91 :— RootOf(11317. 27 — 500 2244 711) 


5  normal( diff(rhs("),x), "expanded? ); ft check the answer 
6 


) 


25-42511 
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5  infolevellint] :— 0: ii back to default information level 


Az előző példában az infolevell[int] értékét 2-re állítottuk be, így látható, 
hogy a Maple milyen módszert használ. A Maple racionális függvények integ- 
rálására a következő általános megközelítést alkalmazza. 


e A határozatlan integrálás , első lépcsőjében" a Maple a táblázatokban való 
kereséshez hasonló, egyszerű módszerekkel kísérletezik, és az integrandus 
formája alapján eldönti, hogy a továbbiakban melyik módszert kellene 
még kipróbálni. 


Ha az egyszerű módszerek nem vezetnek eredményre, elkezdődik a , má- 
sodik lépcső". Ebben a Maple heurisztikus módszerekkel próbálkozik: 
derivált-osztással (az integrandus ? alakú-e, ahol g/ osztja p-t), helyet- 
tesítésekkel és (hétnél alacsonyabb fokszámú nevezőkre) parciális törtekre 
bontással. Továbbá megvizsgálja az olyen speciális formájú integranduso- 
kat, mint az f(ur tv) zi vagy Bessel(T) p(r), amelyekben f az exp, ln, 
sin, cos, sinh és a cosh függvények valamelyike, p és g pedig polinomok. 


Ha a második lépcső heurisztikus módszerei kudarcot vallottak, a Maple 
a Risch-féle algoritmusba kezd. Racionális függvényekre ez a következő- 
képpen történik. 


(1) A [105] szerinti Horowitz-redukciót alkalmaz az integrál 5-7 f § alak- 
ba történő átírásához, ahol a,b, c és d polinomok, b négyzetmentes 
és a fokszáma, kisebb, mint b fokszáma. Ebben az alakban a §5-t 
racionális résznek hívják, mivel a maradék integrál kifejezhető csak 
logaritmusok segítségével. Ezért az f 5 kifejezést logaritmusos rész- 
nek szokás nevezni. 


(ii) A Rothstein-Trager-féle módszerrel (lásd [164, 182]) a Maple a loga- 
ritmusos részt ) "; cs log v; alakúra hozza, ahol a c;-k nemnulla kons- 
tansok, a v;-k pedig pozitív fokszámú relatív prím négyzetmentes 
főpolinomok. A Lazard-Rioboo-Trager-féle javítást implementálták 
a rendszerben, amely a logaritmusos rész számításánál elkerüli az 
algebrai bővítéseket és faktorizációkat. 


Természetesen megkérdőjelezhető az utolsó válasz használhatósága, mivel egy 
ötödfokú polinom analitikusan kiszámíthatatlan zérushelyeit tartalmazza. De 
ugyanez az algoritmus eredményre vezet a [181]-ből vett következő példához 
hasonló esetekben. 

s  Int( (7xx713410rx78414kx77-7rx76-4xx73-4rx72-H3rxt3) / 

5  (x"14-2kx78-2xx77-2kx74-4kx73-x72t2kxt1), x ): 

5  " z valüe("); 


SETS EE 
x4.238—217—2211—433— 72 32711 


2 n(a — V22? 4 (-V2-1)2-1)V2 


10.1. 


5 
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15 h(a7 — 227? 1 (-V3—-1)z- 1) 
-k 2 n(aT 4 V2 2? 3(V2—1)z—1) 
— 5 n(a7 a 22? (V2 1:—1)v2 
normal( diff(rhs(") ,x), "expanded? ); ít check the answer 


7x2341028-44237—737—433—47213113 
r14. 2378—217—2711t—473—27227--1 


A Riscb-féle algoritmus [163] ereje akkor válik nyivánvalóvá, ha egy tágabb függ- 
vényosztályra, nevezetesen az elemi függvények osztályára alkalmazzuk. Az 2 
változó elemi függvényeinek hevenyészett definíciója: 


Induljunk ki konstansok valamely halmazából (ez lehet például 0, IR vagy 
0. 


Konstruáljuk meg az összes konstans együtthatós p(zr) polinomot. 


píz) 
a(z) 
Vegyük mindezek exponenciális kifejezéseit (ebbe bele fognak tartozni a 


trigonometrikus és a, hiperbolikus függvények, valamint ezek inverzei is, 
ha az i komplex szám előfordul a konstansok között). 


Konstruáljuk meg a, alakú racionális törtfüggvényeket. 


Bővítsünk az eddig kapott függvények logaritmusaival (ezzel az elemi transz- 
cendens függvényeket kapjuk). 


Bővítsünk az algebrai függvényekkel, vagyis az olyan polinomiális egyenle- 
tek megoldásaival, amelyeknek együtthatói a korábban bevezetett típusú 
függvények (ilyen például a V3x2 -- 1, amely az y? — x? — 1 — 0 egyenlet, 
megoldása). 


A konstrukció minden lépésében (a konstansok választását kivéve) megengedett 
az iteráció is, így képezhetjük logaritmusok polinomjainak racionális függvényét 


stb. . 


Risch [163]-ban egy olyan algoritmust írt le, amely adott elemi transzcendens 
függvényről eldönti, hogy az integrálja kifejezhető-e elemi függvényként, és ha 
igen, kiszámítja az integrált. Ez az algoritmus a következő tételen alapul: 


Liouville-elv Ha az f(z) elemi függvény integrálja is elemi függvény, akkor 


fr) dr — v(T) 4 2 a log(u:(7)) 
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alakú, ahol a c;-k konstansok, és a v meg az u; függvények nem tartalmaznak 
f-ben és a c; konstansokban elő nem forduló mennyiségeket. 


Liouville tétele tehát bizonyos értelemben az elemi integrálok keresési terét kor- 
látozza. Tovább általánosításként vehetnénk a Liouville-féle függvények osztá- 
lyát, amelyet az elemi függvényekből úgy konstruálunk meg, hogy az osztályhoz 
tartozó tetszőleges f(r) függvénnyel fölírható f f(r) dr integrálokkal bővítünk 
(ez a konstrukció is iterálható). Az így kapott osztály tartalmazza például az erf 
hibafüggvényt és az Ei exponenciális integrálfüggvényt, amelyeket a, következő 
képletek definiálnak: 


erf(z) — s a exp(—t"))dt és  Ei(z) — 9. maz dt. 


A Risch-féle algoritmus részletei után érdeklődő Olvasó további információkat a 
[20,21,52,53,74,76,143,163] munkákban találhat. Itt csak röviden vázoljuk, hogy 
a Maple általában hogyan végzi az elemi függvények integrálását: 


e Ha a heurisztikus módszerek sikertelenek, akkor a Maple a , Risch-Norman 
előtétet" (lásd [74]) alkalmazza, hogy trigonometrikus és hiperbolikus függ- 
vényeket tartalmazó integrandusokhoz ne kelljen bevezetni komplex expo- 
nenciális és logaritmus függvényeket. 


e Ha továbbra sincs eredmény, akkor elkezdődik a Risch-algoritmus. 


Az utolsó lépés legnehezebb része az algebrai függvények integrálása. A Trager- 
féle módszert [118] az algebrai függvények RootOf-os jelölésével implementál- 
ták. A jelenlegi megvalósítás azonban néhány korlátozást tartalmaz: 


e Ha az együtthatók testje nem algebrai számtest, az integrál transzcendens 
részét nem számítja ki a rendszer. A gyakorlatban ez azt jelenti, hogy ha 
az integrál paramétert tartalmaz, akkor előfordulhat, hogy a Maple nem 
találja meg a választ, jóllehet az létezik. 


e Az algoritmus bonyolultsága miatt lassú. 


e Az integrandusnak az integrálási változó egyetlen RootOf kifejezését kell 
tartalmaznia. Az evalaöPrimfield eljárás használható föl ennek a fölté- 
telnek az elérésére. 


Vizsgáljunk meg néhány példát, hogy pontosabb képet kapjunk a Maple integ- 
rálási képességeiről: 
5 Int( In(x-1)"3, x ): " -— value("); 
fe —1)3dz —1n(z—1)(z—1)—3(z— 1) In(z — 1)? 
16(3—1)ln(z—1)46-6z 
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5 diff( rhs("), x ); tt check the answer 
(x — 1)? 


5. inti in(edY 2/x, xs 


[5 1)? ds 


Az első integrált parciális integrálással és táblabeli kereséssel számította ki a, 
Maple integráló eljárásának előtétje. A Risch-algoritmussal eldöntötte, hogy a 
második integrál nem fejezhető ki zárt alakban elemi függvényekkel. Ilyenkor 
a Maple vagy csak egyszerűen visszhangozza az input parancsot, vagy új függ- 
vényeket vezet be (mint például a hibafüggvény, az exponenciális integrál, a 
szinusz integrál stb.). 


5  Int( exp(-x72), x ): " - value("); 
fe dx — 5 VT ert() 
5 Int( exp(-x)/x, x ): " —- value("); 


e(—2) 
J dx — —Ei(1, T) 
3 


A heurisztikus módszereken kívűl a csak logaritmusokat tartalmazó integrandu- 
sok esetén a Maple a következő utat választja: 


5 Int( 1In(1-brx/(atcrx72))/x, x ): " - value("); 
baz 
In(1— ———) 
 ÜBBET gz egz. a 
f 5 dz — In(7T) In(1 egés 


slag BENSŐ pee Ess hátát ate s 
2 c b-t-Vb2—4ca 
1 -btvVb2—4ca .2cr—b- vb? — 4ca 


ja a SENNE SEL s 37 V77— Tea ) 
-k dilog(2 TENY SET -k dilog(—2 JET 
sa mi S) ven ő a ets zza) 
— dilog( 7) dilog( 772) 

s Int( sin(x) / ( x34tx64§1), x ): " — value("); 


sin(r) c 
Í Htrit1l Hl 
Si(z — .R1) cos(.R1) 4 Ci(z — .R1) sin( R1) 
2 
-R1—91 3-R1 t1 


951 :— RootOf(.2? 4.271) 
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Az előző esetben a Maple észrevette, hogy az integrandus egy szinusz függvényt 
tartalmaz, és a. Hermite-féle redukciót alkalmazta a pusztán trigonometrikus 
függvényekből álló kifejezésekre. 


5 Int(i / ( x x (xr2-41)7(1/3) ), x ): " - value(9); 


f k da J s d. 
kamásszázsászmemnájazíttjéető — ——  ——  — —— dx 
s (52 4.1)V8 s 18 
Ebben az esetben a Maple ragaszkodik a radikálok RootOf-os jelöléséhez. Je- 
lölje a az 1? 3-1 köbgyökét. Az eredményből kitűnik, hogy a 2? 3- 2 -- 1 polinom 
gyökére célszerű a, 8 rövidítést bevezetni: 
5  alias( alpha — RootOf( 273 - x72 - í, z ), 
s beta - RootOúf( 272 tzt1, z) ): 
5  convert( "", Rooto0f ): 
Ezekkel a jelölésekkel már föl tudja írni az integrált a Maple: 


5 settime :— time(): it start timing 
s ""; it evaluation 


— dr — ola(-(5—198—482 222982 148227 -9a8 


— 24a-t 15 a? 249? B) /2?) €- 5 AIn(( 
178—-4—48? 4482? 11183? — 33? 421a—21a? —21a? 8) 
/27) 


5 §H check the answer 
5  evala( Normal( diff(rhs(") ,x) - 1/(xtalpha) ) ); 


0 


s cpu tíme :-— (time()-settime) x seconds; $ computing time 
cpu.time :— 87.610 seconds 


A [41] szerinti 


fj 217 3- 475 377! — 357 — 32 —87—8 
E — — — — ———— ——————— dx 


(292 —1)2V21 3 47? 4 272? 3-1 


Csebisev-integrált [52]-ben a REDUCE segítségével számolták ki. A Maple ese- 
tében a számítás folyamata és az eredmény a következő: 


s  alias( beta — 


s RootO0f( z72 - x74 - 4rx73 - 2rx72 - 1, z ) ): 
s settime :— time(): 
s Int( ( 2rx76 4 4xx75 4 74x74 - 3rx73 - x72 - 8rx - 8) / 
5 ( (2xrx72-1)72 k beta ), x): " — value("); 
6 5 4 3 vú 
[PF pr43? 4723 —31797—gs—8mT ege ETET enn 
(232 —1)28 2 246-1 2 


1025 x!9 4. 6138 2? 4- 12307 2? 4- 10188 27 -- 4503 x" -- 3134 x? 
-- 1589 1" 4 140 1? 4 176 1? 42 — 4104 827 — 2182 B 2? 
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— 5084 8 x" — 805 8 1" — 624 8 3? — 288 3 — 10 8 3? — 1023 8 2?) 
fee -If) 


5 tt check the answer 
5  evala( Normal( diff(rhs("),x) - op(i,1lhs(")) ) ); 


0 
5 cpu time :— (time()-settime) x seconds; it computing time 
cpu.time :— 19.261 seconds 
A transzcendens rész kiszámítása igényli a legtöbb időt. 
Algebrai függvényeket láthatunk a következő két integrálban: 


s Int( x/(x3 4 x 4 a), x ): " — value("); 
ri pi 
[azzá 
6 j 
"tata RE 
a(43.27a?)-R?  (43-27a?).-R a 
1 ket alt lkastéltezel : Seesú:ző8 vösssszsábásáőéset Sásés sé összészl ászesáú 
Klale49— gya 242702 272722) 
951 :— RootOf((4 4 27 a?) .2? 1.2 4 a) 
s Int( 1/(x71i6 4 a), x ): " 5 value("); 
1 
fszt rlz SAKTAKARALÁNA ZA 


951 :— RootOf(18446744073709551616 a! 775 4.1) 


A következő példa, amely nem más, mint az egyik előző integrál parametrizált 
változata, megmutatja az algebrai függvények integrálásának a jelenlegi imp- 
lementációban meglévő korlátját, miszerint az együtthatók teste csak algebrai 
számtest lehet. Az outputban nagybetűsre változtattuk az erre vonatkozó üze- 
neteket: 

5  alias( gamma — RootOf( z73 - x72 - a, z ) ): 

5 infolevellint] :— 1: it set higher information level 

5 int( 1/(xkigamma), x ); 


int/indef : first-stage indefinite integration 
int/indef2: second-stage indefinite integration 
int/rischnorni: enter Risch-Norman integrator 

int/risch: — enter Risch integration 

int/algrisch/int : 

Risch/Trager?s algorithm for algebraic function 
int/algrisch/int: 

computation of the algebraic part: start time 114.250 
iínt/algrisch/int : 

computation of the algebraic part: end time 114.280 
int/algrisch/int : 

computation of the transcendental part: start time 114.299 
int/algrisch/transcpar: —— PARAMETRIC CASE NOT HANDLED YET 
int/algrisch/int: 

computation of the transcendental part: end time 114.310 
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int/algrisch/int : 
could not find an elementary antiderivative 
1 
— dr 
Ty 
5  infolevellint] :— 0: it back to default value 


10.2. Határozott integrálás 


A Maple rendszerben a határozott integrálás is az int-tel, illetve a neki meg- 
felelő integrate álnévvel végeztethető el. A megjelenítésre ismét a value-val 
kombinált Int tétlen formát használjuk: 


5 Int( x/(x7331), x- 1..a ): " - value("); 
eg Nt ! 1 LEE 
[77-i 3m1 a) 5 In(a —at1) 
1 1 1 1 
t 2 V3arctan(z v3(2a—1)) 4 7 n(2) — mg v8r 
s Int( In(t)/(1-t), t —- 0..x ): " - value("); 
7 In(t) a. 1 ;, 
hi 1; it — dilog(z) rű 
5 Int( 1/((1tx72)r(142xx72)), x - 0..1 ): 
s " z value("); 
Tess a e tás (vV2) 
MENTES Ti azsátslát teléátásktattái 


A határozott integrálás nem mindig a megfelelő határozatlan integrál kiszámí- 


tásával és a határok behelyettesítésével történik. Ezt mutatja az J —; dT-re 
—12 
vonatkozó következő példa: 


5 Int( 1/x72, x ): " -— value( 9; 


1 1 
[aa7-- 


s  subs( x-1i, rhs(") ) - subs( x—-1, rhs(") ); 
—2 


Itt az a probléma, hogy az analízis alaptételének alkalmazásához szükséges ana- 
litikus föltételek nem teljesülnek: az integrandusnak a (—1, 1) intervallum z — 0 
belső pontjában nem megszüntethető szingularitása van. A Maple ellenőrzi az 
adott intervallumon az integrandus folytonosságát, és hibás válasz lehetősége 
esetén egyszerűen visszaadja a parancsot. Mellesleg a Maple rákényszeríthető 
arra, hogy az integrandust folytonosnak tekintse, ha megadjuk a continuous 
kulcsszót. A választott példában maga a Maple is be tudja bizonyítani, hogy a 
határozott integrál divergens: 
2. Int( 17x2; xs sás íirhs "s waluelis 
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Nehezebb feladat az 


2m 1 
o 1-43sintt 


integrál meghatározása: 


5 Int( 1/(i43ksin(t)"72), t — 0..2xPi ): " - value("); 


2x 
f szösz áketét 
o 1-4 3sin(£$)2 


Az eredmény korrekt. De ez sem úgy jött ki, hogy kiszámoltuk a határozatlan 
integrált, és behelyettesítettük a határokat. A Maple által kiszámolt határo- 
zatlan integrál még csak nem is folytonos az integrálási intervallumon (lásd a 
10.1. ábrát), bár létezik folytonos antiderivált is, a, 


t — arctan ( 


sin(2t) 
cos(2t) — 3) 
2 


s Int( 1/(it3xsin(t)72), t ): " - value("); 


1 1 
tan(7 2) tan(; ?) 
2 szasa Ba St KÉS 
43243 43273 
Hi sz sasszé ÖKEZTTT esz eszebe azaz EE E 
1-4 3sin(t)? 44243 442473 
1 
tan(s t) VB tan(z t) 
—— E — 3 arctan ] 2 —— 
4—243 4-243 
42 


4-24V3 4—24V3 


arctan arctan [2 


arctan [2 


s plot( rhs("), t — 0..23Pi ); 
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jz 
Es i 
1 ks s 
gét 
o Pad j 
Vá 
ke 1 Ld ta adi 
[ 1 $ $ j) fi [3 b 7 
0.5 a 
Í sgt 
j sű 
-1. ; eg 


10.1. ábra: Az IZ3 HINTI nem folytonos antideriváltjának grafikonja 


A határozott integrálok kiszámítására a Maple sokszor alkalmazza a, táblabeli 
keresést, a mintaillesztést (lásd (73, 167]) és a speciális függvények paraméterek 
szerinti differenciálását. 


5 Int( exp(-sart(t)) / ( t7(1/4) 4 (1-exp(-sagrt(t))) ), 
5 t - 0..infinity ): " - value("); 


00 elv?) d d 3 
H an menj) Té) 


5 evalfí( rhs(") ); 
4.630314748 


2. dint( t"4 k IN(t22 7. (IA3EE2)7 3, 4 s 0. intipity ): 
s "! — value("); 


09 14 ]n(t)? 
o (14322)$ 
V3T-t 576 7 v3 


dt — 


1 1 1 
sm bő s 1 2 
ST SzjE r V31n(3) -- 5787 V3 n(3) 


Ezek az integrálok az alábbi általános alakú integrál speciális esetei: 


TT exp(—uit" — uot? dt" In(bti)" HEESTR (ct") Fa 
0 


(ag 4 a1 ff)? 
ahol 
f -t vagy exp(t"), 


p és m nemnegatív egészek, 
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signum(aog/a1) 5 0, 
S1 és 52 nemmulla valós számok, 
d és d; tetszőleges valós számok, 


b, ui és uz pozitív valós számok, 


1 
w olyan komplex szám, amelyre EB) 5 0 teljesül, valamint 
vagy r — 0, vagy T — s, vagy T — 25, vagy s — 2r. 
Mintaillesztéssel meghatározható további típusintegrálok: 
J exp(—ut")t"In(ot)" at (ft 3 g) dt 
o erfc 3 


oo 
f exp(—u tt" BesselJ(b, ct"r)" BesselY(-tb, etőr)v dt, 
[ 


[, (Gy eteje9) (2 09 a 


Két további példa: 


s Int( tt x exp(-t72) x erf(2rtt1), t — 0..infinity ): 
s " z value(!"); 


és 


hi ter) erf(2t- 1) dt — 


o 
1 2 
5 erf(1) ető el71/5) V5 — a el71/5) vV5erf(e v5) 


5 Int( x £ exp(-x72) $ BesselJ(0,x) $ BesselY(0,x), 
s xs 0. .dinfinity J: " — value( DN; 


0 9 a e? BesselK(0, Én 
z zel") BesselJ(0, 2) BesselY(0, x) da — 5 2 
[0 


T 
s Int( sin(ízrsin(x)) x sin(3rx), x — 0..Pi): 
S. ús value(V s 
[9 sin(7)) sin(3 7) d7 — 
ú 8 mr BesselJ(1, 2) — 4 x BesselJ(0, 2) ÁÁ, a 


22 z 
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Az első-, másod- és harmadfajú elliptikus integrálok mind algebrai formában 
(a Jacobi-féle jelöléssel), mind a Legendre-féle alakban rendelkezésünkre állnak. 
Két jelölésmód létezik: az egyik a Byrd és Friedman [29], , Handbook of Elliptic 
Integrals" című könyvében használtat követi, a másik az [1]-nek (, Handbook of 
Mathematical Functions") megfelelő. A részleteket lásd a 10.1. táblázatban. 


Elnevezés 


elsőfajú nem teljes el- 
liptikus integrál 
másodfajú nem teljes 
elliptikus integrál 
harmadfajú nem tel- 
jes elliptikus integrál 
elsőfajú teljes ellip- 
tikus integrál 
másodfajú teljes el- 
liptikus integrál 


harmadfajú teljes el- 
liptikus integrál 


asszociált elsőfa- 
jú teljes elliptikus 
integrál 


asszociált másodfajú 
teljes elliptikus integ- 
rál 

asszociált harmadfa- 
jú teljes elliptikus in- 
tegrál 


Definíció 


23 dt 


Jo /(1—12)(1—k2t2) 


Jo 


z 1 
Jo (1—at2)4/(1—12)(1—k2t2) ki 


M 1—k2t2 dt 
V1—t? 


Z dt 


1 
Jo (1—£2)(1—k2t2) 


ho 


ELESETT ESÉSSSti REESE SESEP TET 
Jo (1—at2)4/(1—t2)(1—k2t2) új 


M 1—k212 dt 
V1—t2 


z dt 


1 
Jo (1—t2)(1—c2t2) 


fo 


V4a—-8)(1— et) ai 


1 
Jo (1— at?) 


V1—c2t2 dt 


d. 


Maple függvény 


LegendreF(z, k) 
EllipticF(z, k) 
LegendreE(z, k) 
EllipticE(z, k) 
LegendrePi(z, a, k) 
EllipticPi(z, a, k) 
LegendreKc(k) 
EllipticK(k) 
LegendreEc(k) 
EllipticE(k) 
LegendrePic(a, k) 
EllipticPi(a, k) 
LegendreKc1(k) 
EllipticCK(k) 


LegendreEc1(k) 
EllipticCE(k) 


LegendrePicI(a, k) 
EllipticCPi(a, k) 


10.1. táblázat: Elliptikus integrálok a Maple rendszerben 


Föltesszük, hogy 0 € k c 1 és c— V1— k?. A Maple legtöbbször az [1] szerinti 
jelöléseket preferálja. Néhány példa: 


5 Int( 1/sart((t72-1)r(t72-2)), t — 2..infinity ): 


s " - value("); 


áz 1 
I /8-1(t8?-2) 


a  readlib( radnormal ): tf load simplification routine 
Int( 1/sgrt((t-1) r(t-2)r(t-3)xr(t-4)), 


5 t - 4..infinity ): " — 


v 


1 
dt- 5 V2 EllipticF (5 12, 3 vV2) 


radnormal( value(") ); 
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Vv 


Vv 


ja ) 
dt — 
a V/t—-1Gt—2G—3)(1— 4) 
—EllipticK(—2V/239/1 4. 4V/231/4) 
2 EllipticF(7 V2-4 2 4342, —2 4/2371 4 44/23/9))(v3 — 2) 


Int( 1 / sgrt(tr(1-t)r(1tt)), 
t — 0..1 ): " - radnormal( value(") ); 


. , EllipticK(3 — 242) (3. V2 — 4) 


§ 1 
hA-EETg ÉT V2—-2 


Int( 1 / ( 1 - 1/9xsin(t)72 )7(5/2), 
t 5 0..Pi/2 ): " -— value("); 
1/2m 
fi 1 8 dt — a Elliptiek(5) a EllipticPi( 5, 5) 
6 (1 — a sin(2)2)9/2 


10.3. Numerikus integrálás 


A számítógépes algebrai rendszerek általában pontos eredmények elérésére tö- 
rekednek, de a Maple-ben van több numerikus számítási lehetőség, például nu- 
merikus integrálás is: 


a 


int( exp( arcsin(x) ), x — 0..1 ); 


; 
fi esrcsin(z) dx 
o 


1.905238690 


evalf("); 


Int( exp(-2rt) $ t xk 1n(t), t — 0..infinity ): 
[ ", value(") 1]; 


bi 11 1 1 
(—21) zös ME zi 
[/ e tIn(t) dt, 1 In(2) 4 Tag v] 


evalf("); 
[—.06759071137, —.0675907114] 


evalit 98, 20.37; 
[—.067590711365369542506, —.06759071136536954251 ) 
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Figyeljük meg, hogy az előbb az Int tétlen formát használtuk az , aktív" int he- 
lyett. Így elkerültük a pontos eredmény kiszámítását, s azonnal a numerikus kö- 
zelítésre tértünk át az evalfülnt kompozícióval (még pontosabban az evalf/int 
eljárással). Az alapföltételezés szerinti integrálási módszer a Clenshaw—-Curtis 
kvadratúra, de ha lassú a konvergencia (a szinguláris helyek közelsége miatt), a 
rendszer megpróbálja kiküszöbölni a szingularitásokat, vagy átvált egy adaptív, 
kettős-exponenciális kvadratúra módszerre. Egy adaptív Newton-Cotes mód- 
szer is elérhető, ha kisebb pontosság (például Digits cz 15) is elegendő. Az 
evalf/int hívás opcionális negyedik argumentuma a, preferált integrációs mód- 
szert jelöli ki: 
5 evalf( Int( i/sgrt(x, X 5 0..1, 10; Dexp ) 33 
1.999998825 


A Maple evalf/int eljárása szingularitásokkal rendelkező analitikus integrandus 
kezelésére egyéb technikák mellett általánosított sorfejtéseket és változótransz- 
formációkat használ. Az érdeklődő Olvasó forduljon [71, 75]-höz. 


10.4. Integráltranszformációk 


Ebben az alfejezetben a Laplace-, Fourier-, Mellin-, Hilbert- és Hankel-transz- 
formációra mutatunk példákat. Az f függvény K magfüggvényhez tartozó 7(f) 
integráltranszformáltjának általános definíciója a 


b 
T(f)(5) — J f(D.K(s, 1) dt 


képlettel adható meg, föltéve, hogy az integrál létezik. A Fourier-, Laplace-, és 
a. Mellin-transzformáltak a legismertebbek, ezekhez rendre az e7"st, e-5t és a 
t"-! magfüggvény tartozik. A 10.2. táblázatban fölsoroljuk a Maple inttrans 
csomagjában megtalálható integráltranszformációkat. A polinomok racionális 
kifejezéseinek összegeként fölírható kifejezések és bizonyos más függvények (így 
a Dirac-, Heaviside- és a Bessel-függvények) Laplace-transzformáltja a Maple 
laplace eljárásával állítható elő. A megfelelő inverz Laplace-transzformáltat az 
invlaplace adja meg: 


5 with( inttrans ); 


[addtable, fourier, fouriercos, fouriersin, hankel, hilbert, invfourier , 
invhilbert, invlaplace, laplace, mellin] 


5 t x BesselJ(0,art); 
t BesselJ(0, at) 


s laplace( ", t, s ); 
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Transzformáció Definíció 


Maple függvény 


00 . 
Fourier ! f(D)erist dt 
—o0 


Fourier—Bessel, Hankel f/ T0tJ60) dt 
[/ 


Fourier-koszinusz 2 [7 
a t) cos(st) dt 
VE [109 cost 
Fourier-szinusz 2 Tf j 
— t t) dt 
VE [7 700 sincs 
Hilbert 1( JO gy 
Tt Jszt 9 
oo 
Laplace J f(De"t dt 
0 
Mellin § FIDE dt 
[9] 


fourier(f(t),t, s) 


hankel(f(t),t, s,n) 


fouriercos( f(t),t, 5) 


fouriersin(f(t),t, s) 


hilbert(7(£),t, s) 


laplace(f(t),t, 5) 


mellin(f(t),t, 5) 


10.2. táblázat: Integráltranszformációk a Maple rendszerben 


pb. Aúvlapbacet 4", a, € 2; 
t BesselJ(0, at) 


s  (cosh(3rt) - 3rtxsinh(3rt) - 1) / t72; 
cosh(3t) — 3tsinh(37) — 1 


? 


z laplaceti ", b, s 1; 


—sln(s) 5 (s —3)s- 5 n(8 b 5)s 


p.. invitaplaeei ",-s, t 9; 


1 
—invlaplace(s In(s), s, t) - 5! invlaplace(In(s — 3) s, s, t) 


-k 5 invlaplace(in(3 th 5)s, s, t) 
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Túl optimisták voltunk: a Maple nem tudta belső táblázataiban tárolt inverz 
Laplace-transzformációkká konvertálni a feladatot. Kicsit segítenünk kell. Elő- 
ször is irjuk át a formulát és tegyük föl, hogy s 5 3: 

5 factor( "" ); 


5 s (—2]n(s) -- In(s — 3) 4- In(3 -- 5)) 


s assume( s23 ); 
5  combine( ", ln, integer ); 
(5 —3)9(3-4 57) 
 SZECN BEzK öl, 
Most már ki tudja számolni a Maple az inverz Laplace-transzformáltat: 
5  invlaplace( ", s, t ); 
3e8) 3et39 1 1e689 1etG39 

"e rá a B ERR 

Ellenőrizzük az eredményt: 


557 n( 


z öönvert( ", "trig? )z 


3 cosh(3t) 4 sinh(3t) 4. 3 cosh(3t) —sinh(38) 1 


t 
va 1 cosh(3 1) 4- sinh(37) 4 1 cosh(3t) — sinh(32) 
2 [za 2 jaj 
5  normail("); 
—cosh(3t) 4 3tsinh(3t) 4-1 
SES zlllölötua 
5  combine("); t get rid of the minus sign (if necessary) 
cosh(3t) — 3tsinh(37) —1 
£ 
A következő példa azt mutatja, hogy integráltranszformációk alkalmazásával 
bővíthetjük a Maple által megoldható integrálási feladatok osztályát: 
5  integrate( x"5$kBesselJ(0,x), x — 0..t ):; 
fi 25 BesselJ(0, x) da 
0 
Belátható azonban, hogy az 


t 
J 2 A)ds 
0 


integrál kifejezhető a Bessel-függvények és t hatványai segítségével, ha m-kn 
páratlan. Segítsünk a Maple-nek a Laplace-transzformált kiszámításában, a 
részeredmények egyszerűsítésében, az inverz Laplace-transzformációban és az 
integrációs konstans vizsgálatában: 

5 Jáplacel ", ts 2 


5 
s 
945 (52 1)11/2 


sz E ek ÁB szaz éa 
(52 4 1)9/2 (52 --1)7/2 
§ 


— 1050 
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5  normali("); 
851—40524-15 


15 (52-44 1)11/2 


s invlaplace( ", s, t ); 
s BesselJ(3 jr y BesselJ(2 da ő BesselJ(1, t) 
21 ; 21 ú 63 " 
40 4, 40 ; 5 5 
53 t" BesselJ(4, t) 63 t" BesselJ(3, t) 4 57 t" BesselJ(5, t) 


5  eval( subs( t-0, " ) ); 
0 


Ellenőrizzük differenciálással az eredményt: 
s  expand( diff( "", t ) ); 
tő BesselJ(0, t) 


Tehát a következő konklúzióra jutottunk: 


f 7 aa 7 
B zség Mázsa B géza ezés  Ászás a Ea 
97? J3(z) 4 517 Jo(z) 4 53? Ji(2) 63 Ja(a) sz: J3(2) 4 217 J5(2) 


A többi integráltranszformációhoz hasonlóan a Laplace-transzformáció legfon- 
tosabb alkalmazásai is a differenciál- és az integrálegyenletek területére esnek. 
A differenciálegyenleteket a 17. fejezetben fogjuk részletesen vizsgálni. Itt az 
integrálegyenletekre adunk egy példát: 

, int egn :— integrate( exp(arx) k f(t-x), x — 0..t ) 

5 $ bif(t) — t; 


Tt 
int-egn :— / el2f(t— n)da 4 bf(t) —t 
[/ 


s laplace( ", t, s ); 
tapsa, 2 aj -- blaplace(f(t), t, 5) — 2 

s5—a 52 

5 readlib(isolate)( ", laplace( f(t), t, s ) ); 
laplace(f(t), t, 5) — 


52 ( s 


$—a 


b) 
s, invlaplace( ", s, t ); 


f(2) 1 at 


§i A e) 
. (-14ba)? -1iba (-1-4 ba)? 


3. úápC factory "9 
(—1d4-b a)t 
. 1—at-ta?tb— el 7) 


Mr (-1-- ba)? 
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Ellenőrizzük az eredményt. 


5 f :5— unapply( rhs("), t ); 


f::Et-o 1 — at a2tb— el 5) 
éti (—1-- ba)? 
5 testeg( int egn ); 
true 


A fourier Maple eljárással polinomok racionális függvényeiből képezett össze- 
gek Fourier-transzformáltját határozhatjuk meg: 


s  1/(1rt73); 
el 
1--t? 


5 fourier( ", t, omega ); 
a7el 9) r (Heaviside(—w) — Heaviside(w)) -- ee zero 
51 (—1—I 43) ell/273w) Tr Heaviside(—w) 
— aI( HI V3) el? v34) r Heaviside(w)) 


A választ úgy ellenőrizhetjük, hogy kiszámítjuk az inverz Fourier-transzformáltat 
az invfourier-vel: 


5  invfourier( ", omega, t ); 
4 


(t41)(—-I4V3-42It)(—V3—I-421It) 


5  normal( ", "expanded? ); 
1 
14-t 

A Maple konvolúciós módszereket, táblabeli kereséseket és határozott integ- 
rálást is tud alkalmazni az olyan speciális függvények kezelésére, mint a trigo- 
nometrikus függvények, a Dirac- és a Heaviside-függvények, az exponenciális 
függvény és a, Bessel-függvények. 

5 fourier( BesselJ(0,t), t, omega ); 

b. Heaviside(w — 1) — Heaviside(w -- 1) 


V1 — w? 


5: fourier( BesselJ( 0, sgrt(t72-r1) ), t, omega ); 
2 ell 9) cos(—1 4 w2?) (Heaviside(w -k 1) — Heaviside(w — 1)) 


V1- 
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Az addtable eljárással adhatjuk meg az általunk definiált függvények Fourier- 
transzformáltját. Például a Maple nem ismeri az r/sinhz transzformáltját. Ha 
ezt a függvényt elnevezzük mondjuk F-nek, akkor az alábbiak szerint tudjuk 
hozzáfűzni a fourler keresési táblázatához: 

5  addtable( 

5 fourier, $ name of integral transform 

s F(t), tt name of user function 

57) 2/Pixrexp(Pirw)/(1i1trexp(Pirw))72, tt transform 
5 t, w $ variables used in transform 
s 
5 


fourier( F(x), x, omega ); 
elrw) 


Tr (1- elr9))2 


5  fourier( x72 xx F(x), x, omega ); 
(rw) (mr w) )2 (mr w))3 
Te 4.13 (eme eat Ti (ere) Sr 
az elm Tar elm Tr elrojja 


5  simplify("); 
kt" a elr9) (1 . 4 elrvw) 82 erv) 
(1-7 elrw))s 


Ugyanígy bővíthető az addtable fölhasználásával a többi integráltranszformá- 
ció keresési táblázata is. 

A fourier és az invfourier eljárás a szimbolikus Fourier-transzformáltak és 
inverzeik meghatározását végzi. Az FFT és az iFFT a numerikus gyors fourier 
transzformációt (Fast Fourier Transform), illetve annak inverzét hajtja végre. 
Elevenítsük föl a komplex számokból álló N hosszúságú z — [To, x1, . . . , 1-1] 
lista X — [Xo, X1, . . ., Xn -1] Fourier transzformáltjának definícióját. Tetszőle- 
gess0£ ke N — 1-re 


N-L 
XIk] — y me N. 
j—0 


Ha N valamilyen kettő hatvánnyal egyenlő, a [47]-ben leírt gyors Fourier transz- 
formáció alkalmazható. Az első példában N — 2? és a valós számokból álló 
[—1,—1,—1,—1,1,1, 1, 1] sorozat gyors Fourier transzformáltját számoljuk ki: 


5  readlib( FET ): it load the procedure FFT 

x :- array([-1,-1,-1,-1,1,1,1,1]): tH real parts of data 
y :- array([0,0,0,0,0,0,0,0]): tt imaginary parts of data 
FFT(3,x,y): it transform data 

print(x); $t real parts of transformed data 


VAY 


[0, —2.000000001, 0, —1.999999999, 0, —1.999999999, 0, 
—2.000000001] 


5 print(y); tt imaginary parts of transformed data 
[0, 4.328427122, 0, .828427124, 0, —.828427124, 0, —4.828427122] 
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Ha a komplex számokat a hagyományosabb alakban akarjuk írni, hasznos lehet 
a következő zip eljárás: 


5 Ht normal komplex notation 
5  zip( (a,b) -2 atbsI, x, y ): convert( ", list ); 


[0, —2.000000001 -t 4.828427122 I, 0, 
—1.999999999 -- .828427124 I, 0, —1.999999999 — .828427124 I, 0, 
—2.000000001 — 4.828427122 Tr] 


5  iFFT(3,x,y): tH check results 
5 print(x); 


[—1.000000000, —.9999999990, —.9999999995, —.9999999985, 
1.000000000, .9999999990, .9999999995, .9999999985 ] 


s print(y); 


[0, .2500000000 1079, 0, —.2500000000 107", 0, —.2500000000 107", 
0, .2500000000 10797 


Az fnormal eljárás akkor használható, ha kis abszolút értékű számokat 0-ra, 
akarunk normalizálni: 


s y :— map( fnormal, y ); 
y:—[0,0,0,0,0,0,0,0] 


A gyors Fourier transzformáció gyakori és fontos alkalmazása konvolúciók 
végzése az adatok simítása céljából. Az alábbiakban erre találunk egy egyszerű, 
bár mesterkélt példát. A részleteket nem kommentáljuk, az itt használt minden 
adattípussal és eljárással foglalkozunk még a könyv hátralévő részében. 


Először is betöltjük a stats csomag standard normális eloszlású véletlenszám- 
generátorát: 


5 noise :— stats[ random, normald 1]: 


Ezután adatokat generálunk; az adatok valós és képzetes részét külön állítjuk 
elő: 
5 re data :— array( [ seg( sin(0.0625kxk) 4 0.1tnoise(), 


s BEL: E258) IT 9 
5 im data :— array( [ seg( 0, k-1..278) ] ): 


Hogy legyen valami elképzelésünk a kapott adatokról, kirajzoltatjuk őket. Amint 
a 10.2. ábráról látható, a konstrukció miatt a szinusz függvényhez hasonló gra- 
fikont kapunk. 

5  xcoords :— array( L seg( 0.0625$k, k-1..278) 1] ): 

5  plotdata :— convert( zip( (a,b) -2 [a,b], xcoords, 

s re data ), list ): 

5  plot( plotdata, style — POINT ); 


10.4. 
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sál. 
Le 
t 
k. 
Ket 
i 
ov 


Te. 10 


10.2. ábra: Zajos szinusz függvény 


100 ,2 


Az adatok símítására a t — exp(— 555") magfüggvényt használjuk. 


- 
- 
- 


re kernel :-— array( [ seg( exp( -100.0 x (k/278)72 ), 
k-1..278 ) ] 2: 
im kernel :-— array( [ seg( 0, k-1..278) ] ): 


Kiszámítjuk az adatoknak a magfüggvényre vonatkozó gyors Fourier transzfor- 
máltját, az eredményt komplex számokból álló tömbökként írjuk föl: 


AZ AES 


FFT( 8, re data, im data ): 

FFT( 8, re kernel, im kernel ): 

data :-— zip( (a,b) -2 (atbrI), re data, im data ): 
kernel :5 zip( (a,b) -? (atbrI), re kernel, im kernel ) : 
newdata :— zip( (a,b) -2? axrb, data, kernel ): 
new re data :— map( Re, newdata ): 

new im data :— map( Im, newdata ): 


Befejezésül inverze gyors Fourier transzformációt alkalmazunk az adatok Fourier 
transzformáltjának és a magfüggvénynek szorzatára. A végeredmény csak egy 
skalárral tér el az eredeti adatok símított változatától. Ez jól megfigyelhető a 


10.3. ábrán. 
5 iÍFFT( 8, new re data, new im data ): 
s  plotdata :-— convert( zip( (a,b) -: [a,b], xcoords, 
b new re data), list ): 
5  plot( plotdata, style-POINT ); 


242 10. Integrálás és összegzés 


10.3. ábra: Adatsimítás 


A fejezetet a Maple-ben rendelkezésünkre álló további integráltranszformáci- 
ókra vonatkozó példákkal zárjuk: 


e Hankel transzformáció 


5 with( inttrans ): 
5  assume( k, integer, k?0 ): 
5  hankel( sgrt(t), t, s, k ); 


print mi, 


(SAT(A -2) 


e Fourier szinusz és Fourier koszinusz transzformáció 


v 


assume( a20 ): 
fouriercos( Heaviside(a-t), t, s ); 


V2sin(a" 5) 
VTs 


v 


5 fouriercos( ", s, t ); 


57-i 4 
£ — - gigenumít — a7 
2 2 "18 (1— a7) 


5  convert( ", Heaviside ); 
1 — Heaviside(t — a") 
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e Hilbert transzformáció 


s  assume( k, integer, k?0 ): 
5  hilbert( Dirac(x) 4 sin(krx)/x, x, y ); 
—1-- mr cos(k"y)— mr 


yT 


e Mellin transzformáció 


, mellin( 1 / (irt), t, s ); 
TT 


sin(r 5) 


s  mellin( 1n(1-rt), t, s ); 
TT 


— sin(r(s-41)) s 


10.5. Hogyan segítsünk a Maple-nek az integrálásnál? 


Ebben a részben néhány olyan integrálási problémát vizsgálunk meg, amelyre 
a Maple magára hagyva nem képes megoldást találni, de némi segítséggel meg 
tudja oldani a feladatot. Az emberi segítségre elég gyakran szükség van, ha 
a feladatban nem elemi függvények is szerepelnek, vagy ha a paramétereknek 
bizonyos föltételeket kel! kielégíteni. 


Az első integrálási probléma paraméterének ki kell elégítenie bizonyos föltételt 
ahhoz, hogy az integrált analitikusan meg lehessen határozni. 


s Int( exp(-crx72), x — 0..infinity ): " - value("); 


Definite integration: 

Can?t determine if the integral is convergent. 

Need to know the sign of --? c 

Will now try indefinite integration and then take limits. 


s e cx s ő — lim 1 Vr erf(vcx) 
0 7T—o0 2 HETE 


Gyakori logikai hiba, hogy mi ugyan pozitív valós konstansnak tekintjük c-t, 
de a Maple ettől még nem fog ugyanebből kiindulni. A fenti válaszból kitű- 
nik, hogy a Maple legalábbis a határozatlan integrált ismeri. Ahhoz, hogy a 
határozott integrál kiszámításában előbbre léphessünk, az assume-mal fölkell 
tennünk, hogy c pozitív valós konstans; nem pozitív értékekre ugyanis az integrál 
divergens. 


5  assume( c20): 
s  Int( exp(-crx72), x - 0..infinity ): " — value("); 


Tara da z z 
0 4 


mi 
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Az alábbi integrálási példában a Maple elegendő információ hiányában nem 
kezd el automatikusan dolgozni: 
5.  üúnt( sazt( (xi2zar2) kk. (b 2-2) 4; 5 a. sb di 


[7-2 aa 


Ilyesmi gyakran megesik: elfelejtettük a Maple-lel tudatni a paraméterekre vo- 
natkozó föltételeket. Javítsuk ki ezt a hibát: 

5  assume( a)0, b20 ): 

5 infolevell[lint] :-— 2: 

5 int( sart( (x72-a72) xx (b72-x72) ), x 5 a..b ); 


int/ellalg/trxlgdre: — cannot determine sign: 1/a772-1/b772 


int/indef : first-stage indefinite integration 
int/algebraic/algebraic: — algebraic integration 
int/rischnorm: — enter Risch-Norman integrator 
int/risch: enter Risch integration 

int/risch: — enter Risch integration 

int/risch: the field extensions are 


[-X, root(—( X? — a?) (—b"? 4 .Xx?), 2)] 


int/risch: Introduce the namings: 


(-tha — root(—(.X? — a?) (—b2 3 .xX?) 2) 


unknown: integrand is 
(Xg E ek) 
-tha 
int/risch/algi:  integrand is 
(CX ra (VT ex) 
-thi 
int/risch/algi: integral expressed as 


1. XI Ka) 


3 -thi 
2 li Kálbsb 1 
3 Gés ts esz 3 2 úg iii z-X pe 
Lső ÉetwtttótekGzuurVWVEKTTESAAEOÉCÉV.C 
Z -thi 

int/indef : first-stage indefinite integration 
int/indef2: second-stage indefinite integration 
int/indef2: trying integration by parts 
int/risch: exit Risch integration 
int/def: — definite integration 
int/def: — definite integration 


int/contour: contour integration 
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[ve - a?) (b7? — x2) dx 


5 infolevell[lint] :— 1: 


Még mindig nem kaptunk választ, de szerencsére az infolevel[int] értékének 
2-re növelésével a Maple sokkal közlékenyebbé vált. A képernyőn megjelenő 
rengeteg üzenetben a Maple elmondta, hogy éppen mit csinált. Már az első 
üzenetek egyike így szólt: 


int/ellalg/trxlgdre: — cannot determine sign: 1/a772-1/b772 


Itt a megoldás kulcsa: tegyük föl azt is, hogy b 5 a. Ezt mi bizonyára termé- 
szetesnek vettük, nem így a Maple: 


5 additionally( b2a ): 
s int( sgrt( (x72-a72) $x (b72-x72) ), x — a..b ); 


s. ARTNRE SOGRSRÍTRNNTABN a"? 
5 2 p7 EllipticK(41/ 1 — 17) 
1 ön la 


2 1 -2 BG) sa út áj a a 
a (3 ak 3 b") EllipticPi(1 b 1 5 
4 8 
Még egy záró megjegyzés ehhez a példához. Ha valami okból azt sejtjük, hogy 
elliptikus integrálok is föllépnek, az infolevellelliptici változónak nagyobb 
értéket adva is informálódhatunk a kifejezések előjeléről anélkül, hogy a Maple 
számos egyéb próbálkozását követnünk kellene. 

Meglehetősen bonyolult feladat a megfelelő föltételek kiválasztása, melyekkel 
legtöbbet segíthetünk a Maple-nek az integrálási feladatok megoldásában. Eh- 
hez gyakran szükség van minden matematikai ismeretünkre és számítási tapasz- 
talatunkra. A [141]-ben leírt módon úgy is átdefiniálhatjuk a beépített sigaum 
eljárást, hogy számolás közben a Maple információkat kérjen az előjelekről. A 
módszer hátránya, hogy a Maple olyan szituációkban is kérhet információkat, 
amelyekről nem világos, hogy mi közük van a megoldandó problémához. 

Néha utalnunk kell a követendő módszerre, például a, változó helyettesítésére 
vagy a parciális integrálásra. A Maple student csomagjával ezt kényelmesen 
megtehetjük: 

5 with( student ): it load the student package 

5 Int( sgrt( x 1 sgrt(x) ), x ); 


fV2r ada 


5  changevar( sgrt(x)-y, ", y ); 


Pp Vy? th yydy 
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. it as value("); 


JV2r szdsz 


2 1 1 d 
d ls ) kát a) vaytelhyt- tvt y) 


5  subs( y-sart(x), " ); 


fV2r zak 


2 1 1 1 
zet v2?-T2vza1) z4V/zrenyztztVztv7) 
5  radnormal( diff(",x) ); $t check answer 
VrtrdVs-dVzr vez 


Egy másik példa: 
5 Int( xtrexp(-a72rx72)kerf(brx), x ); 


fs el-e? 27) erf(b Tr) dx 


5  intparts( ", erf(brx) ): "" — value("); 
f (—a? 22) a/B2 5 
[ze erttba) d — -5 ÜSS 1 erf(vb? tra r)b 
2 a? 2 4/0234 a2a2 


Néha a vonalmenti integrálás jól ismert módszerét kell alkalmaznunk, s a 
Maple-t ehhez vetjük be számolási segédeszközként. Az alábbiakban ezen a. 


módon határozzuk meg Üss 
az 
f EL AEEES zzz dz 
szeg Late 


értékét a 0 c a c 1 föltétel mellett. Először az z valós változót a z komplex 
változóval helyettesítjük, s a 10.4. ábrán látható vonal mentén integrálunk. 


y 


—-R 4 2ri R $2ri 


10.4. ábra: Az integrálás görbéje 


Ha az R — oo határértékét vesszük, a görbe vízszintes részei a keresett in- 
tegrált adják, a függőleges részekhez tartozó integrál pedig eltűnik az a-ra tett 
föltétel miatt: 


esz 00 esz 
t ss dzz(1—e7") im 
a 1-tesz Rooo]J o 14 ef? 
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A vonalintegál értéke 2ri )  ,a téglalapba eső reziduumok összege". Keressük 
meg tehát a nevező itteni zérushelyeit és számítsuk ki a hozzájuk tartozó rezi- 
duumokat. 


5  exp(axz) / ( 1 3 exp(z) ); 


ele 2) 
174 ez 
s solve( denom("), z ); ítt the solution in the strip 
Im 
5 readlib( residue )( "", z—- " ); 
—ellan) 


5 ( 1 - exp(2xPirarI) ) $ integral — 24PirI § "; 
(1— e21"7)) integral — —2IreV! e" 
s (1hs/rhs)(") — í; 
I(1— ekTe7)) integral — 


1 
2 xellar) 1 
5 simplify( ", exp ); 
integral sin(a 7) — 1 
T 


5  Int( exp(arx)/(1texp(x)), x -— -infinity..infinity ) 
5 - solve( ", integral ); 


00 e(az) 7 
Tass 
—olte sin(a Tr) 
Az olyan szokásos trükkök, mint az integrálás előtti, paraméter szerinti diffe- 
renciálás könnyen végrehajthatók a Maple-ben. Egy példa: 
5 assume( a20 ): 
s  int( tanh(arx/2) / (xkrcosh(arx)) , x — 0..infinity ); 
1 
00 tanh(- a m) 
fi zcosh(a" 2) 
5  díffC( Y, a) 
0 
A határozott integrál értéke tehát nem függ az a pozitív paramétertől. 


Végül, de nem utolsósorban egy jó tanács: ha a Maple-lel dolgozunk, használ- 
juk agyunkat is, és kétszer is gondoljuk meg, mielőtt belekezdünk a számolásba. 
Például a Maple nem tudja meghatározni az 


7 Bt 
TA 
-r l-tsint 
integrált, de erre nincs is szükség, mivel rögtön látható, hogy az integrandus 
páratlan függvény, s emiatt az integrál 0. 
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10.6. Összegzés 


Számokból álló véges összegek könnyedén kiszámíthatók az add eljárással. 
5 Sum( k77, k — 1..20 ) - add( k77, k — 1..20 ); 


20 
2. k" — 3877286700 
kz1 


5 primes :— [11,31,41,71,101,131,181,191,211,241] : 
5 Sum( i, i — primes) — add( i, i — primes ); 


2 i- 1210 
i1—-91 
901 :— [11, 31, 41, 71, 101, 131, 181, 191, 211, 241] 
s poly :— add( alilrxri, i-r0..5 ); 


poly :— ag tai x t a2 3? - az x? 4 az raz 1? 


Lehetőség van , szimbolikus összegzésre" is. Először tekintsük a határozatlan 
összegzést: adott az 
d1, 42, 03, . 


sorozat, vagy pontosabban a sorozatot előállító kifejezés, és olyan sx kifejezést 
szeretnénk találni, amelyben nem fordul elő az összegzés jele, továbbá 


ük — Sk — §k—1. 


Ez a feladat a határozatlan integrálás diszkrét analógja. A Maple a, következő 
módszereket használja sz megtalálására: 


e A polinomok a Bernoulli polinomokon alapuló következő formulával össze- 
gezhetők: 


— ca (m-k m41-k 
Size ( eg Ja 


ahol a Bx Bernoulli számokat a 


implicit rekurzióval definiáljuk. 


Moenck módszerével (lásd [140]) összegezhetők az összegzési index raci- 
onális függvényei. Az eredmény olyan összeg, amely egy racionális függ- 
vényből, a Psi Polygamma függvényből, továbbá ennek deriváltjaiból áll. 


Gosper [82] döntési eljárása a Risch-algoritmus diszkrét megfelelője. Hi- 
pergeometrikus s, összegekre alkalmazható, ilyenkor s4/5r—i E OX(k). 
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e A [120] kiterjesztett Gosper algoritmus a következő kérdéssel foglalkozik: 
adott nemnegatív m-re és adott ax sorozatra keressünk az ax — 54 — 5§4—m 
föltételt teljesítő sx sorozatot, ha tudjuk, hogy sz k-szoros hipergeometri- 
kus összeg. 


A Maple tartalmazza a [193, 194]-nek megfelelő, hipergeometrikus sorokat összeg- 
ző és hipergeometrikus azonosságokat kezelő (kibővített) Wilf—Zeilberger mód- 


12I:2z 


és a bennük található hivatkozásokat. A Maple sumtools csomagja határozat- 
lan és határozott összegek explicit kezelését végzi. Sok esetben egyedül a sum 
eljárás is automatikusan megoldja a problémát. Néhány példa: 


s Á Bernoulli polinomok módszere 


$ Huni köt, k sdon ii "sz varuel"a 


n 
Hy - 

k-1 
1 


1 Vá Tá 1 
Észé JE esz 1y7 Mets tc ige álló 11 éb 2 
gént ) 2 (mt ) tezint1) 2 nt ) tazlnt) 


s factor("); 


k-1 


1 
17 Bn" 467 —m—4n42)(n41)7 


se Moenck módszere 


5  Sum( 1/(k72-Hk) "73, k—- i..n ): " —- value("); 
n 1 És 
aA c. AB 
hasi (k2 4 k) 
—2—3n-16(n1 1)? 


essínaim TOM et9j r-t 


5 limit( rhs("), n — infinity ); 


10 — 72 
5  Sum( 1/(k7542rk$ti) k — 0..n ): " — value("); 
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s 1 
pezzvrslai 0? 


-a—91 
4096 , 2560 41600 5, 1000 2625) 
11317 " 113177 7 113177 "113177 7 113177 
1(n1-.a)) — ; : 98 
-a—91 
4096 2560 4 1600 5 1000 2 625 
11317 "11317 7 7 113177 ti37 7 71379 


1-9) 


951 :— RootOf( 27 42.271) 
s limit( rhs("), n — infinity ); 


1 
(a 


-A7 /0 


(4096 -- 2560 a" — 1600. a? -- 1000 a? — 625 -a) 5-0) 


951 : RootOf(.27 42.241) 


5 evalf("); 
1.282579632 


5 Sum( 1/(k72 - 4) , k — 3. KENÉRSES ): " - value(!); 
— - 5 


—4 


( 1/(3rkt1)/(3rkt2)/(3kkt3)/(3rkt4) , 
- 0..infinity ): " - value("); 


SE 
sz 1 h.. d 1 
2. BETDBETHJGETJBETD "6 tzgrv8- zh) 


v 


Gosper módszere 


$t see (SIAM Review, 1994, Problem 94-2) 
Sum( (-1)7(kt1)x(4xkt1)x(2kk)! / 
(ktr47kr(2rk-1)k(kt1)!), k— 1..n ): 

" -— value("); 


MEN 


k JETD (4k 1) (2k) 
hin ZET (2k—1)(k-ED! 
(n42(—)6et) (2n- 2)! 


— 8 
s (n31)14€8t0 (2n3-1) (n- 2)! 
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e Hipergeometrikus azonosságok 
s Sum( (-1)7(n-k) £ binomial(2rn,k)72, k — 0..2xn ): 


s " - value("); 
2n sági 
bz (—1)-9) binomial(2 n, k)? — zzz KZÉVB sentes 
k—0 2(-2 n) I(n - 1) I(z - n) 


Végtelen összegek numerikus közelítésének kiszámolásakor a Maple a Levin- 
féle u-transzformáltat használja a konvergencia gyorsítására (v.ö. (91, 192]), 
ezzel még divergens összegekhez is rendel valamilyen számértéket. Célszerű a 
kapott eredményt mindig ellenőrizni: 

: Sum( 1/k72, k-1..infinity ); 
00 
3: 
7) 
k-1 k 
s evalf("); 
1.644934067 
5  value(""); tt the exact answer. 
2 


pezik .ú 


6 
5  evalf( " - "" ); $ comparison 
1.107 


5 Sum( 37(-k), k5r1..infinity ); 
3.369 
k-1 


s  evalí("); 
.5000000000 
5 value(""); 
1 
3 
5 Sum( 37k, k-1..infinity ); 


98 
k—-1 


5  evalf("); 
—1.500000000 


5 value(""); 


5 Sum( 1/k73, k-1..infinity ); 


Szál! 
2, 78 


k-1 
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5 evalf("); 
1.202056903 


5 value(""); 
§(3) 
5 evalf("); 
1.202056903 


5 Sum( 1/k7(1/3), k-1..infinity ); 
00 
pzva 

1/3 
$e k / 


5 evalf("); 


—.9733602484 
s value(""); 
00 

Ennél a két példánál: 

2.8 

ked 
és 

§7 ah 

ka Vk 


meg kell vizsgálni, hogy a kapott numerikus közelítés megfelel-e a divergens s0- 
rok összegzésére általunk használt definíciónak. A Maple válaszai elég furcsának 
tűnnek (pozitív sorok összege negatív), de valójában nem is olyan rendkívüliek. 
Az utolsó eredmény például a Riemann-féle ( függvény analitikus folytatásával 
igazolható (ennek alátámasztására, közelítsük C(1/3)-ot a Maple-ben). 


10.7. Gyakorlatok 


1. Számítsuk ki a következő határozatlan integrálokat, és ellenőrizzük az ered- 
ményeket differenciálással, valamint egyszerűsítéssel. 


(a) ; ved 


4) / aaz sgjer éz 
tá [ve da 


ab 
(d) ja ha? ki 


10.7. Gyakorlatok 253 
(e) fi sec dx 


1 
(E) f eze vesz éz 
) [őn Inx 
EST ES 


f 
2. Határozzuk meg tetszőleges egész n-re ] 2" e? dr-et, az eredményt ellenőriz- 


zük különböző n értékekre. 


3. Számítsuk ki a következő kettős integrálokat: 
1 1 

2—-—y 

a FT dy) da 

a) fú ( o (2-4y) 
ÉT 
zdz)d. 
0 [ e Gryő 7) jú 


(c) Hasonlítsuk össze (a) és (b) eredményét. A Maple hibázott, vagy valami 
másról van szó? 


4. Számítsuk ki a, következő határozott integrálokat: 


dx 


[zj Ha 49 3 493 — 272 — 107 7-6 
75 3 7xrt 3 1617? 4 1072 


z 
(b) J 2 sin z cos x dx 
0 


1/5 1 
(c) fi E sszsüt 
1/7 1V532—6r-1 


5. Számítsuk ki a következő határozott integrálokat: 


) [Et 


1 
(b) T xarctanz dac 
0 


00 
(c) T e7"2 cos? (br) dx pozitív valós a-ra, 
[ 
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09 sinm 

(a) / E. da 
00 

9 / e "lnxidx 
[9 


00 9—az Ing 
(f) H4 dx pozitív valós a-ra 
[1 


Va 


00 a7vt 
9 / FETZTT ENSZ F jei 
a) / MOL ABE 9 
i Vrt—1 
) [/ vesszda 
[1 
—————— d 
8 Vat 347? 33 a 
) [7 vtanzdz 
0 


00 442 : 
a) Í sin" az sin bzx dx 
0 


XT 


(e el 
1 
(m) É dx pozitív valós a-ra, 
o coshaz 


T exp(—u2T) 
u 


6. Legyen F az F(T) : — J du integrállal definiált függvény. 
1 


(a) Értelmezzük a megfelelő F Maple függvényt, és adjuk meg F(2) egy kö- 
zelítő értékét. 


(b) Állítsuk elő (D-vel) az F" deriváltat és számítsuk ki F"(2) értékét. 


7. Jelölje A az ((r,y) e RP]1/2£2yC£2,1cz S 3) tartományt. Számítsuk 


ki az a 
! ís ezp(1/24) mp gy 
AY (íg -z 1)? 
8. Ebben a feladatban a Risch-féle algoritmust követve bebizonyítjuk, hogy az 


pe 1) S 


integrált. 
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integrál nem fejezhető ki elemi függvényekkel. Ha az integrál benne lenne az 
elemi függvények osztályában, akkor a Liouville-elvből a következő előállítás 
adódna: 


B3(x) In3(z— 1) 4 Bo2(r) Int(z— 1) 4 B1(r) In(z — 1) 4 Bo(z), 


ahol B3(r), B2(x) és B1(r) racionális függvények, és csak Bo(z) tartalmazhat 
új logaritmusos bővítéseket. 


(a) Állítsuk elő Bo(r), . . . , B3(z) differenciálegyenletét. 
(b) Mutassuk meg, hogy Bo(z) racionális konstans. 


(c) Igazoljuk, hogy B2(z) differenciálegyenlete nem oldható meg a racionális 


2 ei 
függvények körében. Ez azt bizonyítja, hogy en integrálja nem 
fejezhető ki elemi függvényekkel. 


9. A reziduumok módszerével mutassuk meg, hogy 


Fil 1 2 
o a2cos29tb2sin29 ab 


ahol a és b nemnulla valós számok, továbbá 


b— a 
eri a 1. Hasonlítsuk össze 
b4a 


eredményünket a Maple-től kapott válasszal. 


10. Oldjuk meg az 
t 
dass J Jo(t — 0) (0) d8. 
0 
integrálegyenletet Laplace-transzformációval. 


t 
11. Oldjuk meg az f(t) 1-4 1 (t — 09) f(9) d integrálegyenletet. 
0 


sinwz dx integrált. 


köz NE 
12. Számítsuk ki az J Í 
[0 


ha? 
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Te 


1 


ki 
f) (1-£ k2 sin? $)98V1- k2 sin? t 


13. Számítsuk ki az 


dx integrált. 


S já 


oo 
L 
14. Számítsuk ki az fi 5 da integrált nemnegatív a-ra. 15. Számítsuk ki 
0 


tis Inz . Y ah 
az ——ar —ix üt integrált pozitív a-ra. 
[1 


(zt a)(z— 1) 


In(z? -- 1) 


ETT] dx integrált. 


16. Számítsuk ki az fj 


17. Számítsuk ki az 


dx integrált. 


éz 
V:S 41 


1 
18. Számítsuk ki az J tan (— arctan(z)) dx integrált. 


3 


19. Számítsuk ki az Hi arcsin? (z/a) dx integrált. 


20. Számítsuk ki az dz integrált. 


1 
J VatdvVzib 
21. Számítsuk ki az alábbi végtelen összegeket: 


oo 


2kt 3 


E (k3D(k32(k- 3) 


k 
) és (k—1)2(k 1)? 


T.S 3k12 
e) 112 ETRIDKTD 

ca k347k?44ki-6 
te) 2. PTE FDJ K232kr3 
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n 
2 ; 
22. Számítsuk ki a 9 ( vél (—3)" összeget. 
k—0 


n 2k 
2 1 
23. Számítsuk ki a ( a ) G) összeget. 
k—0 


24. Számítsuk ki az első 32 prímszám szorzatát. 


ie el 


25. Számítsuk ki a II 1— 1/k? szorzatot. (Útmutatás: határozzunk meg zárt 
k-—2 

képletet a szorzatra, ha k értéke 2 és n között változik, majd a limit alkalma- 

zásával számítsuk ki a határértékét, ha n végtelenhez tart.) 


n 


26. Számítsuk ki 9 (mk — 1)-et, és hasonlítsuk össze az eredményt a [84]-ben 


k—1 
található 0.112 formulával. 


n-1 
27. Számítsuk ki ba k2g?-et, és hasonlítsuk össze az eredményt a [84]-ben 


kel 
található 0.114 formulával. 


ET 


Sorok, közelítések és 
határértékekek 


Az analízis négy témakörét vizsgáljuk ebben a fejezetben: a csonkított sorfej- 
téseket, a formális hatványsorokat, az approximáció elméletét és a, határérték— 
számítást. A példákból kitűnik, hogy a csonkított sorfejtések különböző típu- 
sai, így a Taylor sorok, a Laurent sorok, a Puisseux sorok és a Csebisev sorok 
mind rendelkezésünkre állnak Maple-ben. A Padé és a Csebisev-Padé sorfejtés 
a numerikus közelítéseket számoló numapprox Maple csomagban található. A 
megfelelő esetekben a sorfejtések határértékek kiszámítására is fölhasználhatók, 
v.ö. [49]. 


11.1. Csonkított sorfejtések 


Egyváltozós függvények Taylor sorát könnyen és gyorsan meghatározhatjuk a 
Maple segítségével. Például a sin(tanz) — tan(sinz) függvény z — 0 körüli 
25-öd rendű sorfejtését pillanatok alatt kiszámíthatjuk: 

5 taylor( sin(tan(x)) - tan(sin(x)), x-0, 25 ); 


1 7 29 o 1913 u 95 13 311148869 1; 


—30" "756" — 75600" — 7392" — 54486432000 
10193207 17 —— 1664108363 — 19 —— 2097555460001 97 


4358914560" —— 1905468364800" " 7602818775552000" 
25074883 
374694625074883 20) 0(a25) 


6690480522485760000 
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A taylor eljárás hívásakor csupán a függvényt, a változót, a kifejtés helyét és a 
csonkítás rendjét kell specifikálnunk. Az O(2?5) szimbólum jelzi, hogy a Maple 
a sorfejtéseket egy speciális belső adatstruktúrában tárolja: 

s whattype("); 


sertes 
5 readlib(dismantle)(""); 
SERIES(22) 
NAME(4) : x 
RATIONAL(3): -1/30 
[7] 
RATIONAL(3) : -29/756 
[9] 
RATIONAL(3): -1913/75600 
[311 
RATIONAL(3) : -95/7392 
[131 
RATIONAL(3): -311148869/54486432000 
[151 
RATIONAL(3) : -10193207/4358914560 
[17] 
RATIONAL(3) : -1664108363/1905468364800 
[191 
RATIONAL (3) : -2097555460001/7602818775552000 
[211 


RATIONAL (3) : -374694625074883/6690480522485760000 
[23] 
FUNCTION(3) 
NAME(4) : 0 
EXPSEG (2) 
INTPOS(2): 1 
[251 


A series adatstruktúra általános alakja a 11.1. ábrán látható. 


functionJl 0 [1 


(series ] texpr [fexpr1 [expon1 ] texpr2 [expon2 ] 


11.1. ábra: A csonkított hatványsorok belső reprezentációja, 


Az ábrán szereplő expr kifejezés alakja általában x-a, ahol x az a változó, ami 
szerinti sorfejtést végeztünk, a pedig a sorfejtés helye. A további komponensek 
az együtthatókra és a kitevőkre mutató pointerpárok. Az adatvektor végén álló 
0O(1) együtthatót a Maple a rendet meghatározó tagként interpretálja. 

A fönti adattípussal egyezik meg a megfelelő series eljárás neve. Az eljárás 
alkalmazható általánosabb (például Laurant-féle) csonkított sorfejtések kiszá- 
mítására is: 
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: series( GAMMA(x), x-0, 2 ); 
1 1 
ál ér d a Eg 0(72 

x Tt teTlet (17) 
A Taylor sorfejtés csonkításának rendje az O ordó szimbólumot tartalmazó tag 
megvizsgálásán kívül az order eljárással is megkapható: 
5  order("); 

2 


A series eljárás harmadik argumentuma elhagyható. A Maple ekkor az Order 
globális változó értéke alapján határozza meg a csonkítás rendjét. Ennek alap- 
föltételezés szerinti értéke 6: 

5 Order; 


6 


s Order:— 3: series( f(x), xzsa ); 


f(a) 4. D(f(a) (z— a) 5 (DOJ()(a) (z — a)? -- O((z — a)?) 


5  series( f(x)/(x-a) 72, x-a ); 


f(a) (z — a)? 4 D(f)(a) (z— a)? 5 (DD) (a) 4 O(z — a) 


5  series( 1/(cos(x)-sec(x)), x5-0 ); 
szak 0(27!) 


Az utolsó példa azt illusztrálja, hogy Laurant sorok esetében a , csonkítás rend- 
je" a Maple által a sor meghatározása közben használt rendet jelenti. Lehet, 
hogy a végeredmény ennél kevesebb tagot tartalmaz. Ez a jelenség a numeri- 
kus számítások közben előforduló pontosságvesztésre hasonlít. De sorfejtések 
közben az ellenkező esettel is találkozhatunk: 


5 series( 1/(1-x72), x-0, 5 ); 
1-4 3? 4 zt 4 0(g?) 


Bár csak ötödrendű sorfejtést kértünk, a Maple egyedül eldöntötte, hogy az 
ötödrendű tag együtthatója 0, s tájékoztatott erről bennünket. A jelenséget 
sokszor az okozza, hogy a remember opció miatt a Maple korábbi, magasabb 
rendű sorfejtéseket is figyelembe vesz. Például a series(cos(x), x-0, 25) 
parancs végrehajtása után a koszinusz függvény minden sorfejtése legalább 25 
tagot fog tartalmazni. 

Ha csak Laurent sorokkal akarunk foglalkozni, a numapprox csomagból a 
laurent eljárást használjuk. Különben a Maple válaszában általánosabb, pél- 
dául Puisseux sorokat is megenged: 

5 1/(xxr(itsgrt(x))); 
1 


r(1-4 VI) 
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5  series(",x); 


vé Zár sk eáéb — 95/2 4. 93 — g7/2 4 gt — 99? 4 gő 
zt dt 
— z11/2 4. 0(x") 
A sorfejtésekben néha a Maple a független változót tartalmazó együtthatókat 
választ: 
5  series( x7(x7x), x-0, 5 ); 


z-4ln(x)? 2? - CG In(z)? -k 2 In(a)) 33 
(e ln(m)" -k 5 a(z) -k a (a) 9) z 3 0(x?) 
5  series( dilog(x), x-0, 3 ); 
2774 (mg) Der (5 n() — 5) 2? Oz) 


Az ilyen általánosított sorfejtésekben (v.ö. [72]) szereplő együttható-függvények 
növekedése legföljebb polinomiális lehet. 


A Maple szép tulajdonsága, hogy integrállal vagy differenciálegyenlettel defi- 
niált függvények csonkított sorfejtését is képes kiszámolni. Nézzünk egy példát: 
,  integrate( 1ln(itsxt)"72/(11t72), t-0..infinity ); 


00] 2 
Z n(1-- st) dt 
0 148 


5 series( ", s-0, 5 ); 
1 


VEVKA Tb ax. a 5 
37 5-3Ts 1 (-In(5) 4 a 97 )s tagról -H 0(5") 


A fönti sorfejtés kiszámítása három lépésben történik: 
e a rendszer s szerint differenciálja és integrálja az integrandust, 
e kiszámolja a kapott részeredmény s — 0 körüli sorfejtését, 
e integrálja a sorfejtés tagjait, és meghatározza a helyes integrációs állandót. 


Másik példánk a kétdimenziós ingát leíró differenciálegyenlet megoldásának 
sorfejtése (lásd a 17.3. ábrát). 


5 DESol( Llidiff(theta(t), [t$2]) - -grsin(theta(t)), 
5  theta(t), (theta(0)-0, D(theta) (0)-v[0]/13 ); 


DESON((L (25 9(2) 4 a sin(0(0))), 109), (DO) — 2, 90) — 0) 
5 series(" t); 


1 97v0(9t4—-) 
Tf" ap 120 18 
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Polinomok esetében eltűnik az ordó szimbólum, legalábbis ha a csonkítás rendje 
elég nagy: 
5  polynomial :— akx"3tbrx-2terxid; 

polynomial — ax? 4br?t$cecr-id 


5 taylor series :— series( polynomial, x, 4 ); 
taylor-series —dticrtbzx? haz? 


5  series( (xty)77, x, infinity ); it infinite order 

ya 7yőxrF2lyőz? 3 35yta hr 35yözt hF21ly ző 47yző ha 
Bár a sorfejtések polinomokra hasonlítanak (az utóbbi példákban különösen), a 
nekik megfelelő belső adatstruktúra, ahogy korábban láttuk, teljesen más. 


s  whattype( polynomial ); 
B 


5  op( polynomial ); 
ax, bz?, cx, d 


5 whattype( taylor series ); 
sertes 


5  op( taylor series ); 
d, 0, c, 1, b, 2, a, 3 
s op( 0, taylor series ); t the main variable 


T 


A series típusú objektumokkal másként bánik a Maple; a, polinomokra, megen- 
gedett műveletek közül sok nem alkalmazható sorfejtésekre: 


5 sin series :— series( sin(x), x-0, 6 ); 
; ges kés ha. 1 6 6 
sin. series —1— 57 éj; o? - 0(2") 


s  subs( x-2, sin series ); 
Error, invalid substitution in series 


5 sin series $ sin series; 


1 
s ő 5 642 
(z 5: to? t 0(z")) 
5  expand("); 
.1 5 Ig 642 
(z s tg? 1 0(r")) 


5 series( §, x ); 
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A fönti bonyodalmak egy részét elkerülhetjük a többváltozós Taylor sorfejté- 
sekre szolgáló mtaylor eljárás alkalmazásával. Ennek oka az, hogy az mtaylor 
eredményének típusa nem series, hanem közönséges polinom: 

5  F :-— (34xry-2ry72) kr (3kxty) / (6rx72-6ry); 
F .- 8zy—-2y) zi) 
i 672—6y 
5 readlib( mtaylor ): 
5 mtaylor( F, [x-1,y], 5 ); 


3 5 2 23 2 
jutasi tl te (e a eln DR zt 


2 6 
s  normal("); 
3 Tóra Ali szoi 94og aid 23 üzin2o ta 
sz kezelt). SÉRE ses ze 4 BéVÉSE kl 
3yt7y a ey Vay AY: ey hgy 
5  subs( y-ri, " ); 
4 
5 7etiz 


sek a normal-lal normalizálhatók, az egyes együtthatókat a coeff-fel nyerhetjük 
ki: 
5 series( F, x, 4); 
1. 1 19y—-2y? 
velt Ládgt VET 


5 normal("); 


1 
2 4 27 th 0(z?) 


ba. Éjábtés azt e Ér 
37 tayzt( 2tzyz taz - 0(2") 


5. eoefíg ", x2 s 

3 4 1 

ú7 a" 
Csak a, sorfejtés alapjául szolgáló ,fő változó" szerinti együtthatókat kaphatjuk 
meg: 


5 coeff( "", y7T2); 


Error, unable to compute coeff 


A coeftayl eljárással megkaphatjuk a Taylor sorfejtés valamely együtthatóját 
anélkül, hogy magát a sorfejtést kiszámoltatnánk. Az 


coeftayI(f,z — 70, k) 


eljáráshívás ehelyett az f függvény z — zo körüli Taylor sorfejtésében az (2—xzo)" 
tag együtthatóját a 


határértékként adja meg. 
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5 readlib(coeftayl): 
s  coeftayl( F, x-0, 20 ); 


A coeftayl többváltozós sorokra is alkalmazható: 


5. -eöettauii FE, E yjoli ő3, [1.31 35 
—23 


6 


Ha az egyváltozós sorfejtésből csak a főtag érdekel bennünket, ezt explicit módon 
is kérhetjük: 
5 series( 1/tan(x), x ); 


1 1 
Et, Szet BE 8 4 
x 37-3zT 4 0(z") 


5  series( leadterm( 1/tan(x) ), x, infinity ); 


fesz! 


A sorfejtések differenciálhatók és integrálhatók: 


5 sin series; 


ko a.b 6 
1—gT tag? HF O(r") 


5 diff( sin series, x ); 


12 1 4 5 
1 27 taz? - 0(z") 


5  integrate( sin series, X ); 


12 1 a 


Sorok invertálása a solve eljárással végeztethető el: 


s  solve( y-— sin series, x ); 


1 S 3 5 6 
Wat ai t O(y") 


Hasonlítsuk össze az alábbiakkal: 


s arcsin series :— series( arcsin(ly), y ); 


Í 3 
arcsin sertes : y k 3 y" 4 20 yő O(y") 


és 
5  series( RootDf( y -— sin(x), x ), y ); 


1 b 3 5 ir ő 
VIE Fagy 4 O(y) 
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Az alkalmazott matematika egyik, sorok inverzének meghatározásával kapcso- 
latos problémája az 


E-utesinE 


Kepler-egyenlet megoldásának sorfejtése. Itt E az , excentrikus anomáliát" je- 
löli, melyet az u főexcentricitás és az e pályaexcentricitás segítségével akarunk 
kifejezni (föltesszük, hogy e értéke kicsi, v.ö. [8]). A sorfejtés együtthatóit tri- 
gonometrikus függvények lineáris kombinációjaként írjuk föl: 


5 series( E - u - exsin(E), E-u ); 
-esin(u) -k (1 — ecos(u)) (E — u) --  esin(u) (B — uj? 4 a sgslkő 
(E — u) — -z eat sajt HE" ecos(u) (E — uj 4 O((E — u) 
s solve( ", E - u); 
sin(u) e -- cos(u) sin(u) e? -k (cos(u)? sin(u) — 2 sin(u)?) e 
Cöglrő ő elne — 5 enéftl alntnd jet 


(cos(u)" sin(u) — e cos(u)? sin(u)? -k aa sin(u)) ef 4 O(ef), 


3 24 
e 1 e 3 1 e(9etl) ; új 
Jr eire! gmiizai tó 100 


Az első megoldásra van szükségünk, egyszerűsítsük is az E e szerinti sorfejtését: 


5 u 4 map( combine, "[1], "trig? ); 
; a 8. da ŐL 1: 3 
u - (sin(u) e 4 5) sin(2 u) ef 4 (g sin(3 u) — Fi sin(u)) e7-k 
1 
(3 sin(4 u) — ő sintősöjet 4 


125 . 27 . La 5 6 
(384 sin(5 u) 138 sin(3 u) 192 sin(u)) e? 4 0(e")) 


Számolás közben sokszor kényelmes lehet a, sorfejtések polinommá, konvertálása. 
Ez egyszerűen elvégezhető: 


5 sin series; 


ig. 1 5 6 
1—gT tg? - 0(x") 


:  convert( sin series, polynom ); 
5 


nm sti EMELET 
6 120 
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A Padé-féle approximáció és a lánctörtek szerinti sorfejtés, vagyis racionális 
függvényekkel való közelítések ugyancsak rendelkezésünkre állnak a Maple rend- 
szerben. Ehhez fölhasználhatjuk a convert eljárást vagy a numapprox csomag 
pade és confracform eljárásait (hacsak nem akarjuk először meghatározni ma- 
gát a sorfejtést, vagy eredményként formula helyett nem eljárásra van szüksé- 
günk). 

5  convert( sin series, ratpoly ); 


LSB RT 
60 


1 
E ad 
1togT 


s  convert( sin series, ratpoly, 1, 2); 
x 
1 
14 — 2? 
6 
5  convert( sin series, ?"confrac? ); 
x 


TR esett 
7 
s sal 
6 10 x 
Ezek a közelítések használhatók az úgynevezett Csebisev sorfejtésekkel együtt is: 
s Digits :— 5: 
s  chebyshev( sin(x), x ); t Chebyshev expansion 
.88010 T(1, x) — .039127 T(3, x) 4 .00049952 T(5, z) 
— .30152107-" T(7, z) 
5  convert( ", ratpoly ); 
.89083 T(1, z) — .027887 T(3, z) 
T(0, x) 4 .025529 T(2, T) 


with( orthopoly, T ): ""; 
.97449 z — .11155 x? 
.97447 -- .051058 x2 


A Maple a polinom-konverziókat igen liberálisan kezeli: 


v 


5  series( sin(xta)/x72, x, 4 ); 


— 5 sin(a) — — cos(a) zt 0(2?) 


sin(a) 17? -- cos(a) z 


5  convert( ", polynom ); 


sin(a) , cos(a) 1. 1 
5) sin(a) — § cos(a) z 


a [4 j 
s series( sart(xr(1-x)) , x-0 , 2 ); 


a — 5 21/2 s a 22 4 O(a7/?) 
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5  convert( ", polynom ); 
1 1 
E get 2 29/2 ts FEJŰ 


s  (arx"3tbrx72)/(x72rt1); 


ax 4bz? 
3241 
5  series( ", x-infinity, 8 ); tt asymptotic expansion 
a b a b a b a 1 
tökös az tegtge sgt ti 


5  convert( ", polynom ); 
szé ká ek 
Beta öö ma mm mt om og gi 

A Stirling formula az általános típusú aszimptotikus sorfejtések egyik példája: 


5 asympt( 1n(x!), x, 4 ); 
1 4.1 1 
(n(3) — 1) 2-5 In(z) 4 In(vV2/m) 4 zt Of) 


A series parancs helyett az asympt eljárást alkalmaztuk a végtelenben vett 
sorfejtésre: 
5 simplify( ", In ); $ simplification of logarithmic terms 
1 ú s) Lt: 1 
(In(2) — 1) 2-7 2 ln(z) 7) 1ln(2) -- a n(7) -k FEJÉS 0(73) 

[3] szerint a számítógépes algebrai rendszerek alkalmazásának egyik nehézsége 
az, hogy a rendszer nem tudja a megfelelő helyen alkalmazni az összes rendel- 
kezésére álló matematikai tudásanyagot. Ezt illusztrálja a következő példa: 


E 
lim 
650 V1- ec sin? b 4 V1— e cos b — 1 


A Maple és sok más rendszer nem képes a, sin? $ 4 cos? $ — 1 trigonometrikus 
egyszerűsítési szabályt a kellő pillanatban alkalmazni, s emiatt hibás eredményre 
jut: 

s expr :— epsilon / ( sgrt(1ltepsilon) tsin(phi)72 t 

5 sart(1-epsilon) tcos(phi)72-1 ); 


€ 
V17 esin(£)2 4 V1— €cos($)2 — 1 


s  limit( expr, epsilon-0 ); 


expr :— 


0 


A válasz rossz. A probléma gyökere a, következő hibás sorfejtés: 
5  series( expr, epsilon, 3 ); 
1 1 
1 z Sin(d)? — 2 cos(4)? 


2 2 
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Az első tag nevezője nullára egyszerűsíthető. 

Szerencsére a Maple series parancsa megenged egy kis , finomhangolást" a 0 
együtthatók fölismerésénél. Csupán a Testzero környezeti változót kell átdefi- 
niálnunk, ami a rendszerben a viszonylag triviális 


proc() evalb(normal(args[(1]) - 0 ) end 


eljárással van inicializálva. Az ajánlott változtatás: a normal helyett használ- 
juk a Normalizer környezeti változót, és úgy definiáljuk át ezt az eljárást, hogy 
a series jobban kezelje az együtthatókat: 


5  Testzero :— proc() evalb( Normalizer(args[1]) — 0 ) end: 
5  Normalizer :—- proc() normal( simplify(args[1]) ) end: 


A Maple-t így adaptálva már minden nagyszerűen működik: 


5 readlib( forget ): 

5  forget( series ): it clear the remember table of series 
s forget( limit ): tf clear the remember table of limit 

5  series( expr, epsilon, 3 ); 


ki 2 
1 Hi sin(d)? szi 8 cos(d)? 
FESZ ESSÉNZÉ ESESZ ÜL 2 EEKEESNTERÁZJE ÜL E TEGHEATTZANADOAT BEZANYBATKNÁ LO 
5 sin(4)? — 5 cos(g)? —  (2cos(d)? — 1) (7 sin(g)? — 5 cos(d)?) 
2 2 2 2 
0(€?) 
s  map( combine, ", !trig? ); 


2 4. 1 
cos(26)  cos(46)-4-1 


s  limit( expr, epsilon-0 ); 


€ 4 O(e?) 


2 
sin(d)? — cos(d)? 
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A legtöbb matematikai függvény kiértékeléséhez először valamely könnyen kiszá- 
mítható közelítését kell előállítanunk. Általában mind a hely, mind az időigény 
szempontjából táblázatok tárolásánál és az ezekkel végzett interpolációnál ha- 
tékonyabbak az analitikus közelítések. Különböző alakú közelítő függvények 
léteznek: Taylor polinomok, Padé közelítések, Csebisev sorok stb. (v.ö. (155]). 
A numaprox csomag numerikus közelítések kifejlesztésére szolgáló különféle el- 
járásokat tartalmaz. Ebben a részben az exponenciális függvényre próbálunk jó 
közelítéseket találni a (—2, 2) intervallumon, ennek kapcsán meg fogjuk vizsgálni 
ezeket a módszereket. További példákat [77]-ben találhat az érdeklődő Olvasó. 
Első közelítésünk a 0 körüli ötödrendű Taylor polinom: 


5  with( numapprox ): tt load the numapprox package 
s Digits :— 4: tf set precision for approximation 
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5 taylor( exp(x), x ); 


1 1 1 1 § 
142456 sé di ezt ty 4 0(2") 


5  P[(5] :-— convert( ", polynom ); 


1 1 1 1 
-1 fact szag 
Bs tr4 za ba tag to? 
A polinom Horner alakra konvertálható. 


5  hornerform( P[5], x ); 


116 réti tgzdndnne 


: taylorapprox :— el at ak gégő 


taylorapproz :— z — 144 45 tisz ÉG 45 5):)2)z)z 


A Taylor-féle maradéktagból adódó hibabecslés 


— P; (je éz 


ahol £ valamely 0 és x közti érték. A hiba részletesebb vizsgálatára fölhasznál- 
hatjuk a maximize és a minimize eljárásokat: 
5  readlib(maximize)( exp(x) - P[5], x, -2..2 ); 


1 
(9). 1 
si 15 


5 evalf("); 
.06863 


5  readlib(minimize)( exp(x) - Pl5], x, -2..2 ); 
1 1 1 
1 a. — 1932 log b a 1 
e 1—91 2 701 671 24 "01 91 


120 
901 isz 
RootOf(24e-? —24—24 7—12.722—4 2? — 2, —.01787) 


5  evalf("); 
.00001125 


Másik lehetőségünk a numaprox csomag infnorm eljárásának alkalmazása a 
hiba kiszámítására. Az eljárás az [a, b] intervallumon folytonos f függvény 


Illes — max [2 


végtelen normájának közelítését számolja ki. 
5  infnorm( exp - taylorapprox, -2..2 ); 
.1224 
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A maximális hiba tehát közelítőleg 0.122. A 11.2. ábráról látható, hogy a hiba 


eloszlása nem egyenletes a (—2, 2) intervallumon. 
:- 10: t$ reset precision for plotting 


5 Digits : 
s  plot( exp - taylorapprox, -2..2 ); 


i 
í 
fi 
í 
i 
fi 
i 
fi 
i 
i 
í 


11.2. ábra: Az exponenciális függvény 0 körüli ötödrendű Taylor polinomjának 


hibagörbéje 


Ezután a (3,2) rendű Padé közelítést vizsgáljuk: 
$ set precision for approximation 


) 
s Digits :— 4: 
:- pade( exp(x), x, [3,2] ); 


5 R[3,2] 
3 3 
f sa deze: ) esztet 
ú s Tteptag? tag? 
ay e 1 5 
1—ezt:ge 


A. szorzások száma minimalizálható, ha lánctört alakra konvertálunk 


5  confracform(",x): 
1 Íí7 152 1 
"a "ga ir MIN I 
719 361755 
19 
5  padeapprox :— unapply(",x); 
1 17 . 152 1 
padeappror : 3 o 3 T-t 3 1 3 II7 3155 1 
19 361755 
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A hiba kisebb a Taylor közelítésénél: 
5:  infnorm( exp - padeapprox, -2..2 ); 
.05572 
A maximális hiba tehát közelítőleg 0.056. A hiba eloszlását a, (—2, 2) interval- 


lumon a 11.3. ábra mutatja. 
: DBigits :— 10: t reset precision for plotting 


5  plot( exp - padeapprox, -2..2 ); 


11.3. ábra: Az exponenciális függvény 0 körüli (3, 2) rendű Padé közelítésének 


hibagörbéje 
Ha jobb közelítéseket szeretnénk nyerni a (—2, 2)-n, az r" hatványok szerinti 
kifejtések helyett használhatunk ortogonális polinomokat. A numaprox csomag- 
ban Csebisev polinomokkal dolgozhatunk a chebyshev és a chebpade eljárások 
segítségével. További segédfüggvények a chebmult, chebsort és a chebdeg. 
A 11.4. és a 11.5. ábra az exponenciális függvény Csebisev, illetve Csebisev— 
Padé közelítésének hibagörbéjét mutatja. 
: 4: 4 set precision for approximation 


5 Digits 
s  chebP[5] :-— chebyshev( exp(x), x ); 
chebP; :— 1.266 T(0, x) 4 1.131 T(I, r) 4 .2715 T(2, T) 


- .04434 T(3, r) - .005475 T(4, x) -- .0005430 T(5, r) 


5  chebP[(5] :— (eval€subs)( T — orthopoly[T], " ); 


chebPs :— 
1.000 -- 1.001 x -- .4992 z? -4- .1665 x? -- .04380 z! 4 .008688 ző 
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s  hornerform(",x); 
1.000 -- (1.001 -- (.4992 -- (.1665 -- (.04380 -4- .008688 2) 3) 1) 2) z 


5  chebapprox :— unapply(",x); 


chebapproz :— z 
1.000 -- (1.001 -k- (.4992 -H (.1665 -- (.04380 -- .008688 5) 1) 2) 3) T 


5  infnorm( exp - chebapprox, -2..2 ); 
.07944 


5 Digits :— 10: t$ reset precision for plotting 
s  plot( exp - chebapprox, -2..2 ); 


11.4. ábra: Az exponenciális függvény 0 körüli ötödfokú Csebisev közelítésének 
hibagörbéje 


t set precision for approximation 


5: Digits :— 4: 
chebpade( exp(x), x--2..2, [3,21 ); 


5  chebR[3,2] :— 


chebR3 2 :— 
1 1 1 
1.208 T(0, - 7) -- 1.223 T(1, - 1) 4 .2894T(2, - z) 4 .03149T(8, - 2) 


1 
T(0, 52) — 7092 T(1, 52) 1.OSIGOT(2, £ 7) 


5  chebR[3,2] :— eval( subs( T -— orthopolyíT], " ) ); 
.9186 -- .5643 xz -- .1447 x? -- .01575 x? 


heb zni 
chebR3 2 .9184 — .3546 z 3 .04080 32 
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5 Digits :— 5: confracform("",x) 
65.125 
.38603 2 -- 6.9017 -- KEGYGYI 
— 6.6514 8 
Ka MESZ eat 
5 chebpadeapprox :— unapply(" ,x): 
5  infnorm( exp - chebpadeapprox, -2..2 ); 
.0016120 
s Digits : 


:5 10: it reset precision for plotting 
5  plot( exp - chebpadeapprox, -2..2 ); 


11.5. ábra: Az exponenciális függvény 0 körüli ötödfokú Csebisev-Padé közelí- 
tésének hibagörbéje 


Az exponenciális függvény fönti legjobb egyenletes közelítésének hibagörbéje 
váltakozó előjelű. A hibafüggvény , kisimításával" tovább javíthatunk rajta. Ezt 
a minimax eljárással tehetjük meg, amely a Remez algoritmus (1. (161,162]) se- 
gítségével keresi meg az adott súlyfüggvényhez és fokszámhoz tartozó legjobb 
minimax racionális közelítést. Részletesebben elmondva a minimax adott [a, b] 


intervallumon értelmezett w pozitív súlyfüggvényhez és f folytonos valós függ- 
vényhez kiszámolja azt a p/g racionális függvényt, amelyre 


max w(oJlf(a) — p(a)/a(2l 


minimális az összes olyan p/g racionális függvény halmazában, amelyek p szám- 
lálója legföljebb m-ed fokú, g nevezője pedig legföljebb n-ed fokú polinom. 
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Először tekintsük az exponenciális függvény ötödfokú polinommal való mini- 
max közelítését: 


5  minimaxPÍ[5] :- minimax( exp, -2..2, [5,0], 1, 
5 "maxerror? ); 


minimazPs; :— z a 1.003137731 -- (1.002686425 -- (.4860498437 
- (.1624711341 -- (.05072464720 -4- .01005370263 T) z) 2)r)z 
Az ötödfokú polinommal való minimax közelítés maximális hibáját is megadta 
a Remez algoritmus: 
- maxerror; 
.0032642362 


A hibagörbe a 11.6. ábrán látható. 
5  plot( exp - minimaxP[5], -2..2 ); 


11.6. ábra: Az exponenciális függvény ötödfokú polinommal való minimax kö- 
zelítésének hibagörbéje 


Ezután az exponenciális függvény (3, 2) fokú racionális függvénnyel való leg- 
jobb minimax közelítését határozzuk meg. A hibagörbét a 11.7. ábrán láthatjuk. 
5  minimaxR[3,2] :— minimax( exp, -2..2, [3,2], 1, 

s "maxerror? ); 
minimazRgz, 2 : xz — (.9223619741 
4 (.5751247262 -t (.1517495935 -- .01744849612 5) ) x) /( 
.9223699852 -- (—.3480389375 -4- .03881500741 T) x) 
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5  maxerror; 
.000294578 


5  plot( exp - minimaxR[3,2], -2..2 ); 


11.7. ábra: Az exponenciális függvény (3, 2) fokú racionális függvénnyel való 
minimax közelítésének hibagörbéje 


Ezt a részt az exponenciális függvénynek a relatív hibára nézve legjobb olyan 
minimax közelítésével zárjuk, ahol (3, 2) fokú racionális függvénnyel közelítünk: 


-  minimaxapprox32 :— minimax( exp, -2..2, [3,2], 
be x -D5 1/ exp(x), "maxerror? ); 
mintmazapproz32 :— x 3 (.9133842488 
4 (.5504989644 -- (.1363414316 -- .01407497787 7) r) T) A 


.9131465849 -- (—.3625452263 -t .04342670756 T) T) 


5  maxerror; 
.0002764958030 


A 11.8. ábrán együtt láthatjuk a mostani és az előző, az abszolút hibára, nézve 
vett minimax közelítés hibagörbéjét. 


plot( ( 1 - minimaxapprox32 / exp, 


5 
exp - minimaxapprox32 )], -2..2 ); 


pl 
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11.8. ábra: Az exponenciális függvény (3, 2) fokú racionális függvényekkel való 
minimax közelítéseinek hibagörbéje 


11.3.  Hatványsorok 


nálható eljárásokat. Mint az összes többi Maple csomagot, ezt is be kell tölte- 
nünk: 


s with( powseries ); 


[ceompose, evalpow, inverse, multconst, multiply, negatíve, powadd, 
powcos, powcreate, powdiff , powexp, powint, powlog, powpoly , 
powsin, powsolve, powsgrt, guotient, reversion, subtract, tpsform] 


A legtöbbet példák révén tudunk meg a csomagról. Mostantól fogva az 


SZER új lés (—1) eti 
exp(ar) — 92 ésaz (142) )—— at 
n70 n7-0 


hatványsorokat tekintjük. Először is definiáljuk a powcreate eljárással a két 
hatványsort: 


5  powcreate( f(n)—-a"n/yn! ): 
5  powcreate( g(n)-(-1)7(nt1)/n, g(09-0 ): 


Most azokat a szabályokat definiáltuk, amelyek segítségével a hatványsorok 
együtthatói meghatározhatók. Kérdezzük meg az első öt tagot a tpsform 
(truncated power series form) eljárással: 
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5 Í series :— tpsform( f, x, 5 ); 


1 1 1 
f-series— 1tar-t pad PF Fák kk Gyál 4 0(5) 


5 g series :— tpsform( g, x, 5 ); 
Észzcgatoszú il a.b ád a 5 
9-series —1— 57 tar 27 4 0(3") 


Próbáljunk ki néhány műveletet ezekkel a hatványsorokkal: az összeadást, szor- 
zást, a szorzásra, vonatkozó invertálást és végül a kompozíciót: 


5 s :- powadd(f, g): tpsform(s,x,3); 
1 1 
14(atDz-t(3a— 5) 4 0(2) 


s p :- multiply(f,g): tpsform(p,x,4); 


1 2, ri 1 1 298 4 
T-4( 249 t(; 2at59)z - 0(2") 
5 i :-— inverse(f): tpsform(i,x,5); 
1 1 1 
1—-az45ém— cak ozat rt 4 O(29) 
5 p :- multiply(i,f): tpsform(p,x,10); 
1-4 0(x) 


5 c :- compose(fí,g): tpsform(c,x,4); 
1 1 1 1 1 
14az4(—satzá]B(7a— zat za) 4 0(a1) 


1: dt special case, which may take a while 
compose(f,g): eval( tpsform(c,x,10) ); 


1-4 2-4 0(z) 


Vv 
§4 
NI 


Az utolsó eredményt hatékonyabban is megkaphattuk volna: 
5 c :5- powexp(g): tpsform(c,x,10); 
14 2-4 0(2") 


A hatványsorokra alkalmazható a logaritmus függvény: 


5 a :— Ja": tt reset a to a free variable 
5 r :- powlog(f): tpsform(r,x,10); 
az- 0(z) 


További műveletek a differenciálás és az integrálás: 
5 d :- powdiff(f): tpsform(d,x,4); 


1 1 
ataztzám 4 zata hr O(x) 
5 i :— powint(f): tpsform(i,x,4); 


1 1 
rtzadt za 4 0(x1) 
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A hatványsorok kompozícióra vonatkozó inverzének meghatározása is könnyen 
elvégezhető a Maple rendszerben. Az In(1 -- r) függvény hatványsorát használ- 
juk példaként; inverz hatványsorként az exp(r) — 1 függvény hatványsorát kell 
kapnunk: 
s r :- reversion(g): tpsform(r,x,5); 

ada Hi 2274 57 egz 10(2) 


s c :— compose(g,r): tpsform(c,x,5); 
3-4 0(x?) 
5 c :5 compose(r,g): tpsform(c,x,5); 


z-- 0(x") 


Befejezésül egy közismert példa: számítsuk ki az égi mechanikában az elliptikus 
mozgások bizonyos sorfejtéseinél használt f és g sorokat. (V. ö. [63].) A sorfejtés 
együtthatóit a következő rekurziók definiálják: 


Ofa- Öfn- Ofnz 
Ífn— —[49gn-1— 0(4k 271 he agas — 840 ETI tt fo- 1, 
09n— 09n- O04- 

9n — fn-1 — o(u 1 2€) s : 4 (€— 207?) — ks "öl 90 — 0. 
Először a koordináta-függvényeket definiáljuk: 
s mu :— (mu ,sigma,epsilon) -2 mu: 
s sigma :— (mu,sigma,epsilon) -2 sigma: 
s  epsilon :— (mu,sigma,epsilon) -2 epsilon: 


A D operátor segítségével megadhatók a rekurrens egyenletek: 

with( powseries ): 

powcreate( f(n) - -muxrg(n-1) - sigmax(mut2tkepsilon) 
xD[31(f(n-1)) 4 (epsilon-2tsigma"72) DI2] (f(n-1)) 
- 3kmursigmaxrD(1](f(n-1)), f(0) — 1): 

powcreate( g(n) -— f(n-1) - sigmar(mur2kepsilon) 
xD[31(g(n-1)) § (epsilon-2tsigma72) :D[2] (g(n-1)) 
- 3rmutsigmaxD[1](g(n-1)), g(0) - 0 ): 


NSZ RE GNEGNÉ NB 


és kiszámíthatók a sorfejtések első tagjai: 
s tpsform(f,T,5); 

1— 471? 4340T? 4(w4"43(e—209)n—94o?) Tt 4 0(T") 
Mindennek azonban van egy hátránya. Az Olvasó valószínűleg a részeredmé- 
nyeket is kifejtett formában szeretné látni, de mivel a rekurrens relációkat a 


powcreate paranccsal definiáltuk, ez nehezen érhető el. A sor kiszámítása 
után egyszerűsíthetjük a végeredményt: 


5  map(factor,"); 
1— uT? 4340T? 4 u(ut3E—1509)Tt 4 O(T") 
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is kihasználó következő trükkel lehetséges: mielőtt bármilyen csonkított sorfej- 
tést végeztetnénk a tpsform-mal, adjuk ki a következő utasításokat: 


5 f( k) :- "expand?( f( k) ): g( k) :— ?expand?( g(.k) ): 


Ezután valóban kifejtett formában jelennek meg a részeredmények. 


11.4. Határértékek 


A Maple gyakran használ általánosított sorfejtést határértékek meghatározásá- 
hoz. (Lásd [72, 80].) Például az 


5  1n(x) - In(xtexp(-x)); 
In(z) — In(x el?) 
5 series( ", xsinfinity, 2 ); 
) 
i  0() 
fának önsmántáen - szi Üllssgas 
péz (ez)2 
asszimptotikus sorfejtés alapján világos, hogy 
5  Limit( "", x-infinity ): " — value("); 
lim in(r) — In(z el?) — 0 
21-00 


Itt a value eljárással értékeljük ki a Limit tétlen eljárás hívásának eredményét. 
Világosan látszik, hogy nem kell sokat törődnünk a részletekkel, csak alkalmazni 
kell a limit eljárást. 


A limit-nek megadhatunk néhány opciót: left ,right , realés complex. Egy 
példa: 
5  Limit( cos(x)7(1/x73), x-0 ): " - value("); 
lim cos(a)( 25) — undefined 
230 


5 Limit( cos(x)7(1/x73), x-0, "right? ): " - value("); 


lim cos(z)(:5) — 0 
270-k 


5 Limit( cos(x)7(1/x73), x-0 , "left? ): " -— value("); 
lim cos(m)(-5) — oo 
130— 


Ha a limit-nek nem mondjuk meg, hogy melyik oldali határértékre vagyunk 
kiváncsiak, a (valós) kétoldali határértéket határozza meg (kivéve a --o00-ben 
vagy a —o0-ben vett határértékeket, ahol természetesen a, bal, illetve a, jobb 
oldali határérték értendő). 
Néhány esetben a Maple-nek több információra van szüksége. Például: 
s y :— exp(-aktx)tkcos(brx); 
u :— elv" 2) cos(br) 


11.4. Határértékek 281 


5 limit( y, x — infinity ); 

lim e(722) cos(b x) 

[Ae e] 
Természetesen a Maple nem tételezte föl, hogy mi az a változót pozitívnak 
képzeltük. De megadhattuk volna az 


5 assume( a)0 ): 


föltételt a határérték kiszámítása előtt. 
5 limit( y, x — infinity ); 
0 


Ahogy a fejezet elején megjegyeztük, a legtöbb határérték meghatározása 
sorok segítségével történik. Emiatt néha szükség lehet az Order környezeti 
változó értékének megnövelésére: 

5, expr :-— ( exp(x) - sum( x7k/k!, k-0..11 ) ) / x712; 
1 1! 1 1 1 1 
ee Ab ee és E es Ses 4 5 Bod Bs 
sazádsazl ztás dei satltsi iadltn Tán: ellát: Tall is 
1 8 1 9 1 10 1 Tis AB 
703207 — 362850? " 36288007 — 399168007 )/7 


5 limit( expr, x-0 ); 


1 s- Leszek ae bes e Lt sé Lt 


Enter A aszt bb E s gjőle a 
dm (e ab B, rxd a 120T r TD 5040" 
1 8 1 9 1 10 1 11 a2 

40320" — 362880 — 36288007  399168007 )/2 


5 Order :— 13: 
5  limit( expr, x-0 ); 
1 
479001600 


A csonkított sorfejtésekről szóló első alfejezetben már láttunk példát olyan 
sorfejtésre, ahol a helyes eredmények eléréséhez módosítanunk kellett a Testzero 
zérustesztelő függvényt. Most egy másik ugyanilyen jellegű példa következik: 


5 expr :— x / ( sin(phi)72 4t(14x) kcos(phi)72 - 1); 
[1 


ED sin(6)2 (17 7) cos(g)2 — 1 


s. limit( 4, xz0 Ji 
0 


A kifejezés valójában független z-től, de értéke biztosan nem O: 


5  simplify( expr ); 
Z 


cos(4)? 
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A rossz eredmény oka a 0 körüli hibás csonkított sorfejtés: 
5  series( expr, x-0, 3 ); 
1 cos($)? 
z 7 7 jesz 7 (d) ; 5 2? 3 0(2?) 
sin($)? - cos($)? —1 (sin($)? - cos(d)? — 1) 

Az első tag nevezője 0-ra, egyszerűsíthető, de ezt a Maple automatikusan nem 
veszi észre. A Maple a sorfejtések főtagjának meghatározására két eljárást hasz- 
nál, a Testzero-t és a Normalizer-t. A Testzero környezeti változó, amely a, 
viszonylag triviális 


proc() evalb(normal(args[1]) -— 0 ) end 


eljárással van inicializálva, azt határozza meg, hogy a főegyüttható az osztásra 
nézve nulla-e. A Normalizer környezeti változót a series az osztók főtagjai- 
nak normalizálására használja. A helyes eredmények eléréséhez csak ezt a két 
eljárást kell átdefiniálnunk. Az ajánlott módosítás: a Testzero-ban a normal 
helyett a Normalizer környezeti változót használjuk, és definiáljuk át úgy ezt 
az eljárást, hogy a series jobban kezelje az együtthatókat. 

5  Testzero :— proc() evalb( Normalizer(args[1]) -— 0 ) end: 

5,  Normalizer :-— proc() normal( simplify(args[1]) ) end: 


A Maple fönti módosítása után már minden jól működik. 


5 readlib( forget ): 

5 forget( series ): tt clear the remember table of series 
5, forget( limit ): it clear the remember table of limit 
s series( expr, x-0, 3 ), limit( expr, x-0 ); 


1 
cos($)2" cos(p)? 


11.5. Gyakorlatok 


1. Vizsgáljuk a szinusz függvény különféle numerikus közelítéseit a [—7, 7] in- 
tervallumon. 


2. Vizsgáljuk az 


gé 
FSS 5 sin(sin u) du 
mo u 


függvény különféle numerikus közelítéseit, ha Iz] mr. 


3. Számoljuk ki a következő határértékeket, és ellenőrizzük az eredményeket. 


sinx 


a) lim 


2500 2 


5 3 1/x 
b) lim (sin x) 
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T alsz 
sing 


e) lim z 
7230 


: a xy1/xz 
f) Jim (2 43") 


A 


. Számoljuk ki a következő határértékeket: 


A 324 sinz 
lim EGYEZÉST 
12-00 2277 - cos ár 


lim ——— — 

210 1-4 e71/z 

e) lim sinh(tanh 1) — tanh(sin x) 
T7—pOO 


5. Egy új Maple szekcióban vagy a restart parancs kiadása után számítsuk ki 
az 2? — 1 — 47? -- 5z polinom z — 1 pont körüli tizedrendű Taylor sorfejtését. 
Ügyeljünk arra, hogy a polinom tagjait ebben a sorrendben gépeljük be. Milyen 
típusú lesz a nyert kifejezés? Mit fog gondolni a Maple arról, hogy meddig megy 
a sorfejtés? 


6. Mi a (7) asszimptotikus sorfejtése? 


7. Mi a Lambert-féle W függvény hatványsorfejtése? 


8. Ebben a gyakorlatban a T(x) elsőfajú Csebisev polinomokat vezetjük be 
generálófüggvényük segítségével. 


2 


(a) Számítsuk ki az 1-97t482 


Taylor sorfejtését z — 0 és t — 0 körül 


nyolcadrendig. 


(b) A T(x) elsőfajú Csebisev polinomokat az 


1—8 — 
ITanTa 7 DeTale 
n7-0 


generátorfüggvény definiálja, ahol eg — 1 és e, — 2, han 2 1. Számítsuk 
ki a 712(z) és a 110(z) polinomot. Ellenőrizzük az orthopolyí[T] beépített 
paranccsal számításainkat. 
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9. Határozzuk meg az E — u-t-esin E Kepler egyenlet megoldásának huszonötöd 
rendű Taylor sorfejtését a RootOf eljárás segítségével. Vessük össze ennek az 
eljárásnak a hatékonyságát a jelen fejezet első alfejezetében leírt eljáráséval. 


10. Keressük meg az 


Fi vdlzei 1 


21—? 
xz — ag 


függvény z — a körüli harmadrendű sorfejtését. 


11. A Josephson-féle áramkör vizsgálata során szükségünk lehet a következő 
módon definiált ptan függvény sorfejtésére: ptan(s) — p, hap—tanp — s. 
Számítsuk ki ennek a függvénynek a sorfejtését. 


12. Hasonlítsuk össze az E — u-t esinE Kepler egyenletnek a fejezet első 
alfejezetében sorokkal előállított megoldását a Bessel függvényekkel fölírt egzakt 
megoldással: E —-u42991 Tn(n e) sin(n u) /n. 


jé 


Összetett adattípusok 


A Maple adattípusainak aktív ismeretére gyakran még akkor is szükségünk van, 
ha a Maple-t csak interaktívan, szimbolikus kalkulátorként használjuk. Emlékez- 
zünk vissza a polynom és a randpoly elemi adattípusokra és az ilyen kifejezések 
kezelésére, illetve egyszerűsítésére. Ez a fejezet megismerteti az Olvasót az olyan 
összetett adattípusokkal, mint például a, seguence, set, list és az array, amelyek 
elemi adattípusokból épülnek föl, és objektumok csoportosítására használhatók. 


12.1. Sorozat 


Már korábban is találkoztunk exprseg (expression seguence)! típusú objek- 
tumokkal. Például az op függvény eredménye a legtöbb esetben objektumok 
vesszővel elválasztott sorozata: 


5  polynomial :— x73 - 6rx72 t ilrx - 6; 
polynomial — 3? —623?4117—6 


s  seguence :-— op( polynomial ); 
seguence :— 3, —62?, IL Tr, —6 
Sorozatokat gyakran használ a Maple. Nemcsak a solve ( polynomial , x ) pa- 


rancs eredménye sorozat, hanem maguk a függvényhívás argumentumai is Soro- 
zatot alkotnak az alábbi példában: 


s arguments :-— polynomial, x; 


1A továbbiakban a , kifejezéssorozat? és a , sorozat"? elnevezéseket azonos értelemben hasz- 
náljuk, tehát nem (csak) számsorozatokról lesz szó. (A Fordító megjegyzése.) 


286 12. Összetett adattípusok 


arguments — 33 —63? 4117—6,z 
5 whattype( arguments ); 
exprseg 
5  solve( arguments ); 
I;2,8 


Eljárásdefiníció belsejében az aktuális argumentumok sorozatára az args vál- 
tozóval hivatkozhatunk; az aktuális argumentumok számát az nargs változó 
tartalmazza. Ezt illusztrálja a következő példa. 
5  procargs :- proc() 
5 print( "number of arguments" - nargs, 
"tactual arguments" — args ) 
end: 
procargs (x) ; 


MENET 


number of arguments — 1, actual arguments — (x) 


5  procargs(x,y,2); 
number of arguments — 3, actual arguments — (gx, y, 2) 


Figyeljük meg, hogy a sorozat egy objektum; belső reprezentációja egyetlen 
adatvektor (12.1. ábra). 


szet telet 


12.1. ábra: A sorozatnak megfelelő belső adatsruktúra 


Az ábra fexpr1, fexpr2, . . . szimbólumai az exprl, expr2 stb. kifejezéseknek meg- 
felelő adatvektorokra mutató pointereket jelentenek. A kifejezéssorozat egyes 
komponenesei nem föltétlenül azonos típusú kifejezések. 

5 segi :— M, a, p, Ll, e: 

5  seg2 :-— 77, 97, 112, 108, 101: t$ name in ASCII code 

5 — "concatenated seguence" :— segi, seg2; 


concatenated seguence :— M, a, p, l, e, 77, 97, 112, 108, 101 


Az üres sorozat jelölésére a Maple a NULL speciális nevet használja: 
5 "empty seguence" :- NULL; 
empty seguence :— 
5 1, 2, "empty seguence", 2, 1; 
HUS RÉS AR 5 


Sorozatokat előállíthatunk a seg függvénnyel is: 


5 tt generate the first nine odd prime numbers 
5 seg( ithprime(i), i — 2..10 ); 


3, 5, 7, 11, 13, 17, 19, 23, 29 
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Az seg(f(i) i — m...n) alakú függvényhívás által generált sorozat f(m), 


f(mi 1), f(m 2), . .., f(n). Ennek alternatívájaként a, $ sorozat-operátor is 
rendelkezésünkre áll a Maple-ben. 
s  x$4; 

Hl JR HEG 


A diff függvény hívásakor a fenti módon való használatát kivéve azonban a 
sorozat-operátor alkalmazási lehetőségei eléggé korlátozottak, sőt még veszélyes 
is lehet. 


5 ([k,1] $ k-i..2?) $ 1-3..4; 

[1, 3], (2, 3], [1, 4], (2, 4) 
Ebben a példában az idézőjelek föltétlenül szükségesek az idő előtti kiértékelés 
megelőzésére, és még több idézőjelre lenne szükség, ha a k és 1 sorozatindexekhez 


esetleg már korábban értéket rendeltünk volna. A legrosszabb esetben ilyen 
rémes parancsot kellene begépelnünk: 


s ([/k?9,"1?] $ ?"k?-1..2?) $ ?19-3..4: 

Az Olvasó ehelyett bizonyára a következő formát részesítené előnyben: 

s seg( seg( [i,j], i1-1..2 2), j- 3..4 ): 

Az seg( f(i),i — expression) alakú függvényhívás által generált sorozatot a 


Maple úgy állítja elő, hogy az expression kifejezés minden operandusára alkal- 
mazza, f-et: 
5 seg( i72, 1-7 (1, 2, 3, 4, 53); 
1, 4, 9, 16, 25 
kk sedl d 2, 4 ek tj egi 
22, 2, 2 
A sorozat egy elemének kiválasztását a, ( ] szelekciós operátorral végezhetjük el: 
s "[21]; tt 2nd element 
2 
y 
s. ""(-1]; t last element 


22 


Természetesen egyidejűleg a sorozat több elemét is kiválaszthatjuk: 
5  seguence :— v, w, x, y, z: seguencel 2..34 1]; 

w, Ty 
Az utolsó utasítást úgy tekinthetjük, mint a következő utasítás rövidítését: 
5 seg( seguence[i], i — 2..4 ); 

ts. 1 

Ilyen rövidítések máshol is előfordulnak, például amikor konkatenációval akar- 
juk generálni nevek pi, p2, ... sorozatát. 
5. b.tC d.s5 9 
pi, D2, p3, D4, pő 
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: seg( p.i, is: 1..5 ); 
pi, p2, p3, p4 , DS 


Ezt a paragrafust a 
left expression .. right expression 


alakú részkifejezésekre vonatkozó rövid megjegyzéssel zárjuk. Ez egy szabá- 
lyos range típusú Maple kifejezés. Láttunk már ilyen kifejezéseket, amikor az 
integrálás és az összegzés határait adtuk meg. Akármilyen Maple kifejezést 
használhatunk a left expression és a right expression megadására, de a leg- 
több esetben ezeknek numerikus értékre kell kiértékelődniük. Ennek kapcsán 
megjegyezzük, hogy a range operátort kettőnél több ponttal is jelölhetjük. De 
emlékeztetünk arra, hogy egy pont a konkatenációs operátor jele. 


12.2. Halmaz 


Leggyakrabban akkor használunk set (halmaz) típusú objektumokat, amikor 
a Maple solve eljárásával egyenletrendszereket próbálunk megoldani. Ennek 
az eljárásnak az argumentumai: egyenletek egy halmaza és ismeretlenek egy 
halmaza; a megoldás pedig általában set típusú objektumok sorozata. 

A Maple halmazokra az általánosan használt matematikai jelölést alkalmazza: 
kapcsos zárójelbe zárt sorozatot. A halmazban egy adat egynél többször nem 
fordul elő. Felhasználóként szinte semmi befolyásunk sincs a halmaz elemeinek 
sorrendjére, mivel a rendszer a belső címek szerinti rendezést használ. 

5 (1, 3, 5, 2, 4b; § used earlier in increasing ordering 


(1, 2, 3, 4, 5) 


2 í X, X, Xty, xk(x-1), ytx, x72-x ); 
íz, ry,r(z—1) 3-7) 


5 "empty set!" :-— (3; 
empty set :— (b 


A 12.2. ábrán látható a halmazok belső reprezentációja. 


exprseg tTexpr2 ] Texpr3 f exprt ] Kgvst s] 


12.2. ábra: A halmaznak megfelelő belső adatsruktúra 


A kifejezéssorozat tagjai tárolási címük szerint növekvő sorrendbe rendezettek. 
Ez biztosítja, hogy minden elem csak egyszer forduljon elő. 
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A set típusú objektumokra a szokásos műveletek: union, minus és intersect 
alkalmazhatók. 
5 (0,1,2,33 union (0,2,4,63; 
(0, 1, 2, 3, 4, 6) 

5 (0,1,2,33 minus (0,2,4,63; 

(1, 3) 
5 410,1,2,33 intersect (0,2,4,6b; 

(0, 2) 
Megkérdezhetjük, hogy egy bizonyos Maple objektum eleme-e egy halmaznak, 
és ha igen, akkor mi a halmazbeli pozíciója. 
5  member( 2, (0,1,2,3), "position? ); 

true 

5 position; 


3 


A halmaz egy elemét a [ ] szelekciós operátorral vagy az op függvénnyel vá- 
laszthatjuk ki. Az utóbbi kiválasztási séma kevésbé hatékony, mivel az egész 
halmazt kiértékeli: 


5 4 generate all subsets of 1,2,3 
s collection :- combinat[poverset] (3); 


collection :— (1), (1, 3), (1, 2, 3), (2, 3), (3), (1), (2). (1.2) 
5  nops( collection ); $ number of elements in the set 


8 


5  collection[4]; $ 4th element in set 
12, 31 
s  collection[-1]; $ last element in set 
(1, 23 
5 op( 8, collection ); 
(1, 21 
5  collectioníÍ6..8]; $ returns a subset 
((1). (2h (11,2)) 
5  collection[3..-3]; $ omit first and last 2 elements 
((1, 2, 31, (2, 3), 13). (1j1 
5  collection[]; t seguence of set elements 


14. (1.3). (1,2,3), (2.3). (3). (1). (24. (1. 2) 
Ha a halmaz bizonyos föltételeknek megfelelő elemeit egyszerre akarjuk kivá- 
lasztani, sokat segíthet a a Maple select eljárása. Létezik az ezzel ellentétes 
hatású remove függvény is. Nézzünk néhány példát. 
5 die :— rand(-10..10): numberset :— ( ?"die()? $ 11 ); 
numberset :— (0, —4, —5, —6, 6, 7, —8, 8, 10) 
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5  select( isprime, numberset ); $ select prime numbers 
17) 


5 ft select nonnegative integers 
5  select( type, numberset, "nonnegint? ); 


10, 6, 7, 8, 10) 


5: remove( x -3 x c -3, numberset ); $ remove numbers £ -3 
(0, 6, 7, 8, 10) 


A kiválasztás és az eltávolítás általános alakja: 


select( criterion, set, extra arguments ) 
és 


remove( criterion, set, eztra arguments ). 


A megadott kiválasztási föltételnek a true vagy a false logikai értéket kell ered- 
ményezni. A kiválasztási föltétel további extra argumentumait mindig a halmaz 
után kell paraméterként megadni. 


12.3. Lista 


Míg a halmazok kapcsos zárójelek közé írt sorozatok, lista típusú objektumot 
úgy konstruálhatunk, hogy a sorozatot szögletes zárójelbe zárjuk. Már láttunk 
ilyen objektumokat, amikor a, collect eljárásban a polinom változóinak sorrend- 
jét meghatározó argumentumokat adtunk meg: 


s d ait gazt ző 3 KR 2 Ft KOZEZ 9 E IIAKZ Ba 
143tyh24z3y ht 27z by 2? 


5 collect( ", [x, y, z]); 
ző jak zek deka ző ző 
(y y y 


ö. .eölLéetK ". [ 2. vs x1 02 
(2231-4y)zr(2211)yitzt1 


A list és a set típusú objektumok közti fontos különbségek az alábbbiak: 
e a listában ugyanaz az objektum többször is előfordulhat; 
e a lista megőrzi az elemek sorrendjét; 
e a lista elemeinek értéke könnyen megváltoztatható. 


A lista objektumok belső fölépítése (v. ö. 12.3. ábra) azonban hasonlít a halma- 
zokéra (lásd a, 12.2. ábrát). 
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list 


exprseg fexpr1 ] Texpr2 ] fexpr3 J Tf expr4 ] E gézó BE 


12.3. ábra: A listának megfelelő belső adatsruktúra 


3 Ű xs xs xéys érlxsdüzeyiny X2-x IG 
[z, z, 1y, z(z— 1), gy, 3? — 2] 
s sort( ", "address? ); t sort by machine address 
[z, TIT, 2y, Ty, mr H 1), 7 s z] 
s  convert( ", set ); 
(íz, ry, z(z—1), 3 — 2) 
s [ x$5 ]; $ list of five x?ses 
[d.e gát el 
5 "empty list" :— []; 
empty list :— [] 
Az alábbiakban fölsoroljuk a leggyakrabban használt listaműveleteket, és pél- 
dákat mutatunk arra, hogyan hajthatók végre ezek a Maple rendszerben. 
e Lista hosszának meghatározása 


5 cl :— [ black, red, green, yellow, blue, white ]: 
5  nops( cl ); t number of colors 


6 
e Elem keresése listában 
5,  member( indigo, cl ); 
false 
5  member( blue, cl, "position? ); 
true 
5 position; 
5 


e Egy vagy több elem kiválasztása 


5 el[5]; $t efficient selection 
blue 


5: op(5,cl); $ inefficient selection 
blue 
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A listaelem op-pal való kiválasztásának időigénye 0(n) (n a lista hosszát 
jelenti), mivel ekkor a teljes lista kiértékelődik. Ha a szögletes zárójeleket 
használjuk, a Maple más kiértékelési sémát használ, (elnyomja a teljes lista 
kiértékelését) és az időigény konstans lesz. Ezt illusztrálja a következő 
példa: 

5 L :— [ x $ (2717-2) ]: t x-list of maximal length 


5 H?t access-time to "1ong?" list 
s, timeO): L[1]: timeO: cpu time — ("-""") x second; 


cpu time —0 
5 timeO: op(1,L): time(): cpu time — ("-""") x second; 
cpu.time — .081 second 
s timeO: L[2717-2]: timeO: 
s cpu time — (1-""") x second; 
cpu.time —0 
s time(l): op(2717-2,L): time(): 
5 cpu time — ("-""") x second; 
cpu.time — .079 second 
A. listaelemek kiválasztása még általánosabban is elvégezhető. Néhány, az 
előző c1 listával kapcsolatos példa: 


5  cli[-1]; t first list element from the right 
white 


5 cl[3..6]; $ return a sublist 

Igreen, yellow, blue, white) 
5 op(3..6,c1); $t return a seguence 

green, yellow, blue, white 
5 cl[-2..-1]; $ the sublist of last two elements 

[dlue, white] 
5  cl[]; $ seguence of list elements 
black, red, green, yellow, blue, white 


$ ELL 2... mopsítei) 1; 
(red, green, yellow, blue, white) 
5. ELL. 2.sz sik Jó 


(red, green, yellow, blue, white) 
5  subsop( í - NULL, cl ); 
[red, green, yellow, blue, white) 
5. elf d. Hepsíei)-i 13 
[black , red, green, yellow, blue] 


3. ELER ne "EDS 
[black, red, green, yellow, blue) 


5  subsop( nops(c1) - NULL, cl ); 
[black , red, green, yellow, blue] 
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e Elem hozzáfűzése a lista elejéhez, végéhez és elem beszúrása, a, listába 


5  [( crimson, op(c1l) 1]; 
[erimson, black, red, green, yellow, blue, white) 


s [ op(c1), crimson 1]; 
[dlack, red, green, yellow, blue, white, crimson] 


a .£ epteiti. 3], eriuson, optei94. nepet 1; 

[dlack, red, green, crimson, yellow, blue, whitel 
Megjegyezzük, hogy hosszú listák esetében az op direkt használatánál ha- 
tékonyabb egy részlista létrehozása és sorozattá konvertálása, mivel ekkor 
nem kell az egész listát kiértékelni. 


e Listák konkatenációja 


5  c12 :- [ crimson, indigo ]: CL op(c1), op(c12) J]; 
(black, red, green, yellow, blue, white, crimson, indigo) 


e Listaelem helyettesítése 


5  subsop( 5 — indigo, cl ); $ cl unchanged 
(black, red, green, yellow, indigo, white) 


5 cl[5] :-— purple; cl; it cl changed 
cl; :— purple 
[Dlack, red, green, yellow, purple, white) 
Az utóbbi értékadás hatékonyabb, mint a cl :- subsop(5- indigo, c1 ). 
De a listaelemeknek közvetlenül csak legföljebb 100 hosszúságú listákban 
adhatunk értéket. 


e Áz összes megadott listaelem egyidejű helyettesítése 


5  subs( red - crimson, cl ); it replace every color red 
[Dlack, crimson, green, yellow, purple, white] 


e Listák átrendezése 
a it sort the list (in lexicographic ordering) 
5 sort( cl, lexorder ); tt variable cl is not changed 
[Dlack, green, purple, red, white, yellow] 
5 tt reverse the list 
5 [ seg( ci[-il, i-1..nops(c1) ) J; 
[white, purple, yellow, green, red, black] 
5 tö? rotate the list one position to the left or right 
s  [ op( 2. .nops(c1), cl ), cl[1] 1]; 
[red, green, yellow, purple, white, black) 
5 HE rotate the list one position to the left or right 
s [ op( ci1[2..-1] ), ci[1] 1; 
[red, green, yellow, purple, white, black) 


294 12. Összetett adattípusok 


s  [ ci([nops(c1)], op( 1..nops(c1)-1, cl ) 1]; 
[white, black, red, green, yellow, purple] 


5  [ ci[-11, op( cl[1i..-2] ) I; 
[white, black, red, green, yellow, purple] 


Néhány alapvető Maple függvény és konstrukció fölhasználásával olyan könnye- 
dén végrehajthatjuk a legtöbb listaműveletet, hogy a Maple rendszer tervezői 
nem vesztegették az idejüket arra, hogy külön függvényneveket vezessenek be 
ezekre a műveletekre. Ha óhajtjuk, könnyedén átírhatjuk a fenti példákat Maple 
eljárásokká. Például az utolsó két művelet így írható föl eljárásként: 


5  rotateleft :-— proc(L::list) 
s — [ op( LC2..-1] ), L[1] 1] 
5 end: 

s rotateright :— proc(L::list) 
5 [ E[-i4, op( LI1..-2] ) 7 
5 end: 

5 rotateleft( cl ); 


[red, green, yellow, purple, white, black) 


5  (rotateright0€3)( cl ); it rotate 3 places to the right 
(yellow, purple, white, black, red, green] 


5  (rotateleftOrotateright)( cl ); it do nothing 
[black, red, green, yellow, purple, white) 


Az Olvasó megkérdezhetné, vajon miért az [lop(L) , elem] paranccsal fűztük 
hozzá a lista végéhez az elem új listaelemet, miért nem használtuk inkább az 
L[nops(L) 141] : elem értékadást. Az alábbi példából kiderül, hogy csak létező 
listaelemeknek adhatunk értéket; a lista nem bővíthető ezen a módon: 


5 L :z [a b,c]; 


L :7 [a, b, c] 
5 L[3] :— [c,cl; $ assignment of existing list element 
Esze el 
3 .L; 
[a, b, [e, c]] 
5 L[3,2] :— d; t assignment of existing list element 
L3.2:-d 
24-36 
[a, b, [e, d1] 
5 L[4] :— e; $ no extension of list 


Error, out of bound assignment to a list 
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A 12.1. táblázatban összegezzük a 7 összetett adatsruktúrára alkalmazható 
szelektorokat, ahol 7 típusa seguence, set vagy list lehet. 


Kiválasztási mód A visszaadott adatstruktúra 


T[] a komponensekből álló kifejezéssorozat 
TLil, (ice N) balról az i-dik komponens 
T[-i], (ie N) jobbról az i-dik komponens 


T[i..j], (Ci,je2Z)  aziés j közti tartományba eső komponensek 
sorozatként, halmazként vagy listaként 

TT] ső ásd TEL jee ed 

33 tú én ERO E ET ÉT seg( (Tfn])[k,...], k-i..j ) mint soro- 
zat, halmaz vagy lista 


12.1. táblázat: Kiválasztás sorozatból, halmazból és listából 


12.4. Tömb 


Ez az alfejezet rövid bevezetés az array adattípus és a, vele kapcsolatos ob- 
jektumok, például a vektorok és a mátrizrok használatába. A 18. fejezetben 
részletesebben ismertetjük a tömbök alkalmazásait a mátrixalgebrában. Eb- 
ben a részben csupán ezen adatstruktúrák megkonstruálására szorítkozunk. A 
tömbök kiértékeléséről szó lesz még a 12.6. alfejezetben. 


A konvencionális programozási nyelvekhez hasonlóan a Maple-ben is létez- 
nek az egy-, két- és többdimenziós tömbök, mint adatstruktúrák. Az alábbi 
példában tömb típusú objektumot hozunk létre: 

5 array( -1..1, 0..i, 

5-ő L[ (-1,0)-a, (-1,1)-b, (0,0)-c, (0,1)-d ] ); 


array( — 1..1, 0..1, [ 


(—1,0)—a 
(-1, 1) —b 
(0,0)— c 
(0,1)—d 
(1, 0) ez ?1,o 
(1,1)—?1 
]) 


Először a kétdimenziós tömb indexeinek tartományát specifikáltuk. Másodszor 
néhány, de nem föltétlenül az összes tömbelemhez értéket rendeltünk. Legyünk 
óvatosak, hogy ne keverjük össze a, kerek és a szögletes zárójeleket. Ez egy kicsit 
zavaró, mivel a tömbelemek kiválasztása szögletes zárójellel történik. 

Az array adattípus valójában a következő alfejezetben tárgyalt table adattípus 
speciális esete, melyet maga a Maple is gyakran használ (például eljárások emlé- 
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kezőtábláiban). Az array adattípus jellemző vonása, hogy indexek halmazaként 
egész számok folytonos szegmenseinek Descartes-féle szorzatát engedi meg. 


Első látásra az array adattípus hasonló a list adattípushoz. Ez abban is 
tükröződik, ahogy list típusú objektumokból array típusú objektumokat konst- 
ruálhatunk. Az alábbiakban egy-, két- és háromdimenziós tömböket hozunk 
létre. 


5: v :— array( [lta ,2tb,3tc) ); 


v:5-[1-t4a,21b, 3-4c] 


5 type(v, list ); 


false 
; typel v, vector )3 

true 
s type( v, array ); 

true 


s M :— array( [E [1-p,2-a1, [1-r,2-s] )] 2); 
1 — 2 — 
MM: Ji 5 
1—r 2-s 


s.k :zoarray( TI (I fi.215.I3541 4. C.-C55615 [8.94 ds 
[Ti], CZ 81 d 125 


Vv 


A :— array(1..3, 1..2, 1..2, [ 


(1,1,1)—1 
(1,1,29—2 
(1,2,1)—3 
(1,2,299—4 
(2,1,1)—5 
(2, 1,2)—6 
(2,2,1)—8 
(2, 2,2)—-9 
(3,1,1)— 10 
(3,1,2)—11 
(3,2,1)—12 


(3, 2, 2) — 13 
b 


12.4. Tömb 2917 


A tömbelemek listaként (vagy listák listájaként) való beírásával egy csomó gé- 
pelést spórolunk meg. Továbbá ha nem adjuk meg az indexhatárokat, a Maple 
a lista hosszából ezeket is megállapítja (azt föltételezve, hogy az indexhatárok 
1-gyel kezdődnek). Ez jól látható a háromdimenziós tömböt definiáló példánk 
outputjának elején is. Ilyen egytől kezdődő indexezésű egy- és kétdimenziós töm- 
böket legtöbbször vektorokként és mátrixokként használunk, a Maple ennyiben 
is a tipikus vektor- és mátrixjelöléseket alkalmazza. 


s  type( M, matrix ); 
true 


Az előző M mátrixot és v vektort—a tömbök reprezentációjának megfelelő 
formában - létrehozhattuk volna a, matrix és a vektor parancsokkal is: 


s M :5— matrix( [ [ 1-p, 2-a J], [ 1-r, 2-s 1] ] 2; 


1-—-p 2-gag 
1-r 2-s 


M az 


Vv 
d 
It 


vector( [ ilta, 2tb, 3t4c ] ); 

v:5[11a,273 b, 3-ec] 
Néha csak deklarálni akarunk egy vektort anélkül, hogy megadnánk elemeit. A 
Maple számára ez sem probléma: 


s vec :— vector(100); 
vec :— array(1..100, []) 


s vec :5— array(-1000..1000, [] ); 
vec :— array(—1000..1000, []) 


Mátrixok konstruálásának további kényelmes módja az indexfüggvények mega- 
dása. Egy 4 x 4-es Hilbert mátrix például így hozható létre: 


5 h :z (i,j) -2 1/(itrj-x); tt index function 
LÉT 
5. mátrix(l 44 ha 
1 1 1 al 
2-2: 3-zi 4-zi 5-z 
1 1 1 1 
3-2 4-Ii 5-r 6-r 
1 1 1 1 
4-3 5-1: 6-Ti 7-xr 
1 1 ű 1 
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Használhattuk volna a linalg csomag beépített linalg[hilbert] függvényét is. 
Másik példánk egy zérusmátrix megkonstruálása: 
5 matrix( 3, 3, 0 ); 


0007 


000 
0 0 0 


Ebben a függvényhívásban a 0 az azonosan 0 függvényt jelenti. 
Az array eljárásnak vannak a speciális alakú mátrixokkal kapcsolatos opciói is: 


5 M :-— array( symmetric, 1..2, 1..2 ): M[1,2]:-1: 
5 print(M); 


M1,1 1 
1 M2, 2 
s v :5— array( sparse, 1..10 ): v[i1]:-1: v[5]:—-1: 
5 print(v); 
[1, 0, 0, 0, —1, 0, 0, 0, 0, 0] 

5 M :-— array( sparse, symmetric, 1..2, 1..2 ): M[1,2]:-1: 
5 print(M); 

0 1 

1 0 


További opciók az antisymmetric, identity és a diagonal. Ezek az opciók 
csak az array (és mint később látni fogjuk, a table) eljárásban használhatók, a 
vector vagy matrix eljárásokban nem. Az opciók szerepe annak jelzése, hogyan 
számíthatók ki az egyes mátrixelemek anélkül, hogy mindegyiket tárolni kellene 
a tömbnek megfelelő belső adatstruktúrában. Ha egynél több opciót adtunk 
meg, a rendszer balról jobbra haladva egyenként használja föl őket. 

A Maple-ben bevezethetünk , új" indexfüggvényeket is. Példaként a tridiag 
speciális indexfüggvényt definiáljuk, ez valójában az index/tridiag eljárás meg- 
adásának felel meg. Ha az index/tridiag eljárást két argumentummal hívjuk, 
kiértékel egy tömbelemet; három argumentumot megadva értékadást végez a 
megfelelő elemnek (lásd a 12.2. táblázatot). 


Hívás formátuma Célja 


"index/tridiagonal "( ind, arr ) kiértékelés 
"index/tridiagonal "( ind, arr, val )  értékadás 


12.2. táblázat: A speciális indexfüggvény különböző hívásai 


Itt ind az indexeket tartalmazó lista, arr az indexezett tömb, val pedig az 
értékadásban fölhasználandó objektumokat tartalmazó lista. Az arr első argu- 
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mentuma nevek sorozata, amelyekből az első, most tridiagonal, azt mutatja 
meg, hogy melyik indexfüggvényt kell használni. Ezt a rendszer , lenyeli", ezért 
a tábla első argumentuma a maradék nevekből áll, itt többek között symmetric 
vagy antisymmetric állhat. 

Ha az index/tridiag-ot két argumentummal hívjuk, a kiválasztott tömbele- 
met adja vissza. Ha három argumentumot adunk meg, azt várjuk el a függ- 
vénytől, hogy adjon értéket a megfelelő tömbelemnek. A visszaadott érték az 
értékadás eredménye lesz. Az ilyenfajta hívás tipikus mellékhatásaként megvál- 
tozik az arr értéke is: 


v 


"index/tridiagonal" :-— proc( ind, arr, val ) 
if nargs — 2 then 
if outofband( ind ) 
then 0 
else arr[op(ind)] 
Éi 
elif nargs — 3 then 
if outofband( ind ) 
then ERROR( "band width 1 is exceeded" , 
"indices? -— ind ) 
else arrlop(ind)] :- op(val) 
fi 
else ERROR( "invalid arguments") 
guad fi 
end: 


o VNRO ALTÓ 7 A 7 ÚlDOÓ " AgÁN LENA CK 7 SÉG ln s aÉ AG BSA 


v 


A következő rutin azt teszteli, hogy az index a megadott 1 szélességű határok 
között van-e: 


s outofband :— proc( ind::list ) 

pa local indset, pairs, p, d: 

s indset :-— fop(ind)); 

5 if nops(indset) c— 1 then RETURN(false) fi; 
5 pairs :— combinatí[choosel]( indset, 2 ); 
2 for p in pairs do 

5 a :5— pli] - p[l2]; 

5 if type( d, integer ) and abs(d) ? 1 
sz then RETURN(true) 

pe fi 

o od: 

s RETURN(false) 

5 end: 


Néhány példa: 
s A :- array( tridiagonal, 1..4, 1..4 ); 
A :— array(tridiagonal, 1..4, 1..4, []) 


z: ÁAr152]1 x; 


Ai 2—T 


s A[1,4] 


11 


y: 


Error, (in index/tridiagonal) 
band width 1 is exceeded, indices — [1,4] 
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5 print(A); 
Ai 1 2 0 0 


Aza A22 Azz 0 
0 — Az2 4Az3 Aza 
0 0 As3 Aza 
s A :- array( tridiagonal, antisymmetric, 1..4, 1..4 ); 
A :— array(tridiagonal, antisymmetric, 1..4, 1..4, []) 
52 AL 2] szk 
Ai2 TT 
5: print(A); 
0 Él. 0 0 
—g 0 A2,3 0 
0  —4A2 3 0 Az, 4 
0 0 —ÁAsa 0 
Itt egyszerre alkalmaztuk a tridiagonal és az antisymmetric indexfüggvényt. 
Egy elem elérésekor a következő játszódik le: 
1. A rendszer először az első nevet veszi, tehát először az index /tridiagonal 
eljárást hívja; 


2. ha az index a megadott sávon kívül van, 0-t ad vissza. Egyébként az 
index/tridiagonal a tömb valamely elemét csak akkor fogja elérni, ha a, 
tömb antiszimmetrikus. 


3. az index/antissmmetric a megfelelő indexezési sorrend szerint kiválaszt 
egy táblaelemet és ezt visszadja 


4. az index/tridiagonal ezt az értéket adja vissza 


Az indexfüggvényt úgy definiáltuk, hogy magasabb dimenziós tömbökre és is- 
meretlen értékű tömbelemekre is működjön: 
o. A sz arrayt tridiazonals 1.35 lesőy de 28 
A :— array(ítridiagonal, 1..3, 1..3, 1..3, []) 
27. TA[1. 281 — E1,2815 
A1,2,3 —[1, 2, 3] 
s. 3A[(1,2 k]" — A[192.kils 
A1,2.k — A1,2,k 
3. 7A(t53zk]" s Alia ki; 
Ai1,3.k—0 


12.5. Tábla 301 


5 JAli,k,kt1]? — A[(1,k,kt1]; 
Ai,k,kti — A1,k, kai 
5  JA[1,k,kt2]? — A[1,k,kt21; 
Ai, k,kt2 —0 

Az array típusú adatokra mutató változók kiértékelése különbözik a szokásos 
teljes kiértékeléstől, amelyet például formulákra vagy listákra mutató változók 
esetében alkalmaz a rendszer. Ez a speciális kiértékelési séma a table adat- 
struktúrára is vonatkozik. A 12.6. alfejezetben részletesen elmagyarázzuk ezen 
adattípusok kiértékelését annak minden következményével együtt. Most csak 
egy aspektusra, utalunk: 

s  vec :-— array( Í irta, 2-ib, 3rc 1] ); 

vec:— [1da, 24b,34d 
5 vec; 
vec 


A vec változó kiértékelése nem mutatja meg a tömböt. Teljes kiértékelést kell 
kikényszeríteni az eval-lal: 

5 eval( vec ); 

[1-6 a, 2-4 b, 3-- e) 

Ha az indexhatárokat is látni szeretnénk, használjuk az op vagy az Iprint pa- 
rancsot: 

5  op( eval(vec) ); 

1..3,[1—174a,2—21b6,3—34e) 


, 1print( eval(vec) ); 


array(i .. 3,[(1)-1ta, (2)-2ib, (3)—3-tc]) 


12.5. Tábla 


A table hasonlít más programozási nyelvek (Pascal, Algol68 vagy a C) rekord 
adatstruktúrájára. Az alábbi példában egy table típusú objektum látható: 


s color :— table( 

[ red —- RGB(1,0,0), 

turguoise -— RGB(0.7,0.9,0.9), 
white - RGB(1,1,1) 

1.23 


VM 


color :— table([ 
turguotse — RGB(.7, .9, .9) 
red — RGB(l, 0, 0) 
white — RGB(1, 1, 1) 
] 
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A tábla bejegyzéseinek belső tárolását a rendszer tördelőtáblázatokban (hash 
table) végzi; emiatt a tárolás sorrendjét nem tudjuk befolyásolni. A tördelő- 
táblázatok használata az elemek táblabeli pozíciójától független konstans idejű 
elérést tesz lehetővé. De nincs is szükségünk a komponensek direkt belső eléré- 
sére, mivel a táblák indexei és elemei könnyen visszakereshetők. 

5 indices( color ); 


[turguoise], [red], [white] 


5  entries( color ); 


IRGB(.7, .9, .9)], IRGB(1, 0, 0)], ÍIRGB(1, 1, 1) 


A tábla adott elemének kiválasztása vagy megváltoztatása a [] szelekciós ope- 
rátorral történhet: 


s color[ red 1]; 


RGB(I, 0, 0) 


5  color[ red ] :— HUE(0); 
color reg  HUE(0) 


5  print( color ); 


table([ 
turguoise — RGB(.7, .9, .9) 
red — HUE(0) 


white — RGB(1, 1, 1) 

]) 
Új táblastruktúrát indexelt neveknek történő értékadásokkal hozhatunk létre 
legkönnyebben a Maple-ben. A következő példában lérehozzuk a Laplace nevű 


táblát, amelynek egyetlen bejegyzése az erf(Vt) függvény Laplace transzfor- 
máltját tartalmazza: 


s  Laplace[ erf(sgrt(t)) ] :— 1/(stsgrt(st1)); 
1 


Laplace e 7) :- SYozereri 
5 print( Laplace ); 
table([ 
erf(v?t) 
b 
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Ha definiálva van az index/newtable eljárás, akkor a rendszer minden esetben 
ezt hívja, amikor olyan indexelt névnek adunk értéket, amelyhez tartozó táblát 
vagy tömböt korábban még nem definiáltunk. Az eljárás alapföltételezés szerint 
egy új táblát hoz létre, de tetszés szerint átírható. Például halmazok vagy kife- 


jezéssorozatok elemeinek nem adhatunk értéket SILx] :- y alakú utasításokkal: 
5 S :5- fa,b,ckh: 0 :— a, b,c: 
s S[3] :5 U; 


Error, cannot assign to a set 
s Aa[3] :5 C; 
Error, cannot assign to an expression seguence 


Az index/newtable következő módosított változata már ezt is megengedi: 


5  "index/newtable" :- proc( ind, tab, val ) 
s if not assigned(tab) 
5. then tab :-— tableO): tablop(ind)] :-— op(val) 
s elif nops( [ eval(tab) ] ) : 1 t expression seguence 
pú and type( ind, líinteger] ) and ind[1] 53-— 1 and 
pa ind[1] cs nops( [ eval(tab) ] ) 
5 then tab :— op( subsop( ind[1] -— op(val), 
s [I eval(tab) ] ) ) 
5 elif type( eval(tab), set ) and 
5 type( ind, [linteger] ) and ind[1] 2— 1 and 
s inda[1] cs nops( eval(tab) ) 
s then tab :-— subsop( ind[1]—-op(val) , eval(tab) ) 
5 else ERROR( "not a table/array/set/seguence" ) 
5 fi 
5 end: 
5 S; S([3] :— U; S; 

(c, a, b) 

53 sz [/ 

(c, a, U) 
s A; Aal3] :— C; 0; 

a, b, c 

0-0 

a, b C 


Folytassuk a táblák vizsgálatát. Nézzük meg, miért a print-et használtuk 
az előző példákban a táblák megjelenítésére, és miért volt szükség olyan sok 
eval-ra az index/newtable forráskódjában. Ennek oka az, hogy a table típusú 
adatokra mutató változók kiértékelése különbözik a szokásos teljes ktértékelés- 
től. A 12.6. alfejezetben részletesen elmagyarázzuk a table típusú objektumok 
kiértékelését. Most csak ennek egyik következményére mutatunk rá: 

5 Laplace; t§t evaluation to the table name 


Laplace 
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Az op-ot vagy az eval-t használhatjuk, ha magát az adatstruktúrát szeretnénk 
megjeleníteni: 
5 op( Laplace ); 


table([ 
erf(vt) — —— 
) 


5  eval( Laplace ); 


table([ 
erf(vt) — —T 
) 


Táblaelem törlése értéktelenítéssel (aposztrófokkal vagy az evaln-nel) végezhető 
el. 
5  color[ red ) :- evaln( color[ red ] ); 
color reg :— color reg 


5 print( color ); 


table([ 
turguoise — RGB(.7, .9, .9) 
white — RGB(1, 1, 1) 
) 


5 for c in indices( color ) do 

5 colorfop(c)] :- evaln( color[op(c)] ) 
5 od: 

5 print( color ); 


table([ 
) 


Most már azt is tudjuk, hogyan hozható létre üres tábla: 
5  table([]); 


table([ 
) 
Vagy még rövidebben: table( ). 
Az array eljáráshoz hasonlóan a table-nek is megadhatók speciális alakú 
struktúrákra vonatkozó opciók: 
5 distance :— table( symmetric ); 


distance :— table(symmetrte, [ 


) 
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5 distance[ Amsterdam, Brussels ] :— 157 k km: 
5  distancel Amsterdam, "Rio de Janeiro" ] :— 9512 x km: 
5 print( distance ); 


table(symmetrie, [ 
( Amsterdam, Brussels) — 157 km 
( Amsterdam, Rio de Janeiro) — 9512 km 


) 


5 distance[ Brussels, Amsterdam ]; 
157 km 


Saját indexfüggvényeket is bevezethetünk az előző alfejezetben megismert mó- 
don. 
A teljesség kedvéért a 12.4. ábrán megmutatjuk a tömbök és a táblák belső 


[table T indexing func. Tf array-bounds 1 hash table 


12.4. ábra: A táblának megfelelő belső adatsruktúra 


12.656. Utolsó név kiértékelés 


Az array, table vagy procedure típusú adatokra mutató változók kiértékelése 
különbözik a szokásos teljes kiértékeléstől. Ezt a következő forgatómátrix pél- 
dájával illusztráljuk: 

5 R :-— array( [ [ cos(alpha), -sin(alpha) 1], 

b. [ sinCalpha) , cos(alpha) ] 1 ); 


cos(a) —sin(a) 


sin(a)  cos(a) 


5 R; 


v 


whattype( R ); 


s type( R, array ); 
true 
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Az R változó kiértékelése nem mutatja meg a tömböt. Teljes kiértékelést kell 
kikényszerítenünk az eval-lal: 


5  eval(R); 


cos(a) —sin(a) j 
b sin(a) — cos(a) 


A szekció folytatásából kitűnik, hogy az egyes mátrixelemek valójában még most 
sem értékelődtek ki: 
s alpha :-— 1: eval(R); 


cos(a) —sin(a) ; 
B sin(a) — cos(a) t 


5 RI[1,21; 
—sin(1) 


5 map( eval, R ); 
cos(1) —sin(1) 
sin(1)  cos(1) 


A tömbök, táblák és eljárások kiértékelését utolsó név kiértékelésnek (last name 
evaluation) hívjuk. Ez azt jelenti, hogy a kiértékelés eredménye a kiértékelés 
közben kapott értékek láncában az az utolsó név, amely közvetlenül megelőzi 
a lánc végén álló array, table vagy procedure típusú objektumot. A fönti pél- 
dában tehát a Maple R-t csak saját string típusú nevére értékeli ki. A teljes 
kiértékelés kikényszerítéséhez az eval, sőt az egyes elemek kiértékeléséhez még 
a map ( eval... ) is szükséges. 

Az utolsó név kiértékelésének hatása természetesen még jobban látszik egy 
olyan példán, amelyben a változó közvetlenül nem egy tömbre, hanem egy tömb 
nevére értékelődik ki: 


5 T :5s$S; 
TES 
3 5 es KR; 
Ot 
5  eval(T,1); $ value of T 
199. 
5  eval(T,2); t value of S 
R 


5  eval(T,3); tt value of R 
cos(a) —sin(a) 


sinl(a) — cos(a) 
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5 map( eval, T ); t evaluation of matrix entries 
cos(1) —sin(1) 
sin(1)  cos(1) 


5 T; t evaluation of T to last name 


R 


A belső adatsruktúra a 12.5. ábrán láthatóhoz hasonló. 


7144-es 


12.5. ábra: A tömbök kiértékelését ábrázoló belső adatsruktúra 


Világos, hogy R, S és T ugyanarra a tömbre mutat. Ha az R[1,2] mátrixe- 
lemre hivatkozunk, az eredmény ugyanaz lesz, mintha S[1,2]-t vagy T[1,2]-t 
választottuk volna. 


5 alpha :-— "alpha": i reset alpha to its name 
35 RI1.21, S[15215 TI1521: 


—sin(a), —sin(a), —sin(a) 


Ha megváltoztatjuk az S(1,2] mátrixelemet, mindhárom mátrix egyidejűleg 
ugyanúgy változik. Az utolsó név kiértékelés teszi lehetővé, hogy neveket szino- 
nímákként használhassunk: 


5  eval(R); 
cos(a) —sin(a) 
sin(a) — cos(a) 
5 S[2,1] :-— 0: 
5  eval(R), eval(S), eval(T); 
cos(a) —sin(a) cos(a) —sin(a) cos(a) —sin(a) 
0 cos(a) ! 0 cos(a) ; 0 cos(a) 


Ha másolatot szeretnénk készíteni egy mátrixról, majd ezt a másolatot úgy 
szeretnénk megváltoztatni, hogy az eredeti mátrix ne változzon, akkor a copy 
eljárást kell alkalmaznunk: 


s § :-— copy(R): S[1,2] :— 0: 
5  eval(R), eval(5); 


cos(a) —sin(a) cos(a) 0 


0 cos(a) I 0 cos(a) 
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12.7. .  Függvényhívások 


A függvényhívásokat rekord adatstruktúraként használhatjuk. A polárkoordiná- 
ta-rendszerben fölírt komplex számokat például polar( absolut value, argument ) 
alakú függvényhívásokkal reprezentálja a Maple: 

5  polar(3,Pi/2); 

polar(3, E 
2 

Itt a polar( . . . ) csak helykitöltőként szerepel, hogy más eljárások hivatkozhas- 
sanak a megfelelő adatstruktúrára: 

5 evalic("); 

3I 


A függvényhívások rekord adatstruktúraként való használatára további példákat 
nyújt a RootOf, DESol és a PIECEWISE. 

A függvényhívások egyik kellemes aspektusa, hogy a hívás kiírási módja ál- 
talunk is megadható. Polárkoordinátákkal fölírt komplex számokra definiálhat- 
nánk a következő nyomtató rutint: 


s  "print/polar" :- proc(r,a) rre7r(Ixra) end: 
5  polar(5,Pi/3); $ pretty display 
5 e(1/3I7) 


5 whattype("); t still a function call 
function 


5 1lprint(""); t internal representation 
polar(5,1/3rPi) 


s evalc(""); 
0 B 
— $—I 
fs 3 


5  convert(",?polar?); 
5e(1/3I7) 


A függvényhívások komponenseit az op-pal választhatjuk ki: 


5  op(2,"); 
1 
- TT 
3 
A macro lehetőségeit fölhasználva értelmes neveket adhatunk a. szelekciós ope- 
rátoroknak: 
5  macro( radius-i, argument-2 ): 
s op( radius, "" ), op( argument, "" ); 
1 
0 3 TT 
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Természtesen definiálhatunk a kiválasztást végző eljárásokat is: 


s macro( radius — radius ): 
5 radius :5— proc(z) 
5 if type( z, polar(anything, anything) ) 
s then op(1,2) 
5 else ?"procname (args)? 
. fi 
5 end: 
s  polar(5,Pi/3); 

5 e(1/3I7) 
5 radius("; 

5 
A függvényhívás valamely komponense a subsop-pal változtatható meg: 

s  subsop( argument — Pi/6, "" ); 

5 e(1/6 Ir) 


Függvényhívásokra is könnyen kiterjeszthetők az evalf, simplify, convert stb. 
könyvtári rutinok. A komplex számok lebegőpontos kiértékelését elvégző kiter- 
jesztés például a következő lehet: 


5  "evalf/polar" :- proc() 

5 local z; 

5 z :- polar( evalf(args[1]) , evalf(argsl[21) ); 
5 if type( z, polar(float, float) ) 

s then op(1,7) $ exp( op(2,7)kI ) 

s fi 

5 end: 

s  polar(5,Pi/3); 


5 e(1/317) 
5 evalf("); 
2.500000001 3- 4.330127019 I 


Amikor az evalf-et olyan kifejezésre kell alkalmazni, amely polar(...) alakú 


és (szükség esetén) tölti be a Maple könyvtárból vagy a fölhasználó saját könyv- 
tárából. Fölhasználhatjuk az előző szekció eredményeként rendelkezésünkre álló 
evalf/polar definíciót is. 

A Maple lehetőségeinek kiterjesztésére vonatkozó második példaként a polár- 
koordinátákról Descartes-féle koordinátákra való konverziót tekintjük: 

5  "convert/cartesian" :— proc(z) 


b local r,a; 

s if type( z, polar(anything, anything) ) 
b. then r :5— op(1,72); a :— op(2,2); 

bd rkcos(a) t rrltsin(a) 

pid else "procname(args) ? 

ped $1 

5 end: 

5  polar(5,Pi/3); 


5 e(1/3I7) 
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5  convert( ", cartesian ); 
b 5 
—4$-Iv3 
212 v3 
5,  polar(R,phi): " - convert( ", cartesian ); 


RcU9 — Rcos(g$) 4 I Rsin(g) 


Valahányszor a convert( .. . , type) eljárást hívjuk, a Maple a convert/type 
eljárás definícióját keresi meg és (szükség esetén) tölti be a Maple könyvtárból 
vagy a fölhasználó saját könyvtárából. Az előző szekció eredményeként rendel- 
kezésünkre áll a convert /cartesian definíciója, ezt alkalmazta a kifejezésre. 


12.8. Összetett adattípusok közti konverziók 


Már láttuk, hogyan alakítható át sorozat listává vagy halmazzá: csupán kapcsos, 
illetve szögletes zárójelbe kell tenni az adott objektumot. A set vagy a list típusú 
objektumok az op függvény segítségével konvertálhatók. A Maple halmazokra és 
listákra alkalmazható explicit konverziós rutinokat is rendelkezésünkre bocsát. 
Az alábbiakban néhány olyan példa következik, amely ezeket a konverziókat 
összegzi: 
5 mySeguence :- a, b, b, ag; 
mySeguence :— a, b, b, g 


5 myList :—- [ mySeguence 1]; it seguence -2 list 
mylList :— [a, b, b, g] 
5 mySet :-— í mySeguence b); it seguence -2 set 
mysSet :— (fa, b, g) 
5 op( myList ); ft list -2 seguence 
a, b, b, g 
s myList[]; tt list --2 seguence 
a, b, b, g 
5  op( mySet ); tt set -2? seguence 
a, b, a 
5 mySetl[1]; $§ set -2 seguence 
a, b, g 
5  convert( myList, set ); $ list -2 set 
fa, b, aj 
s  convert( mySet, list ); $ set -2 list 
[a, b, a) 
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Az ilyen explicit konverziós rutinok használhatók egyrészt halmazok és listák, 
másrészt tömbök és függvényhívások közti konverzióra is: 


, myArray :— array( myList ); t list -2 array 
myArray :— (a, b, b, aj] 


s  convert( myList, array ); tf list -2 array 


[a, b, b, ag] 
;: convert( myArray, list ); $ array -2 list 
[a, b, b, ag] 
s  convert( myArray, set ); it array -? set 
(a, b, a) 
s Call :- F( mySeguence ); $ seguence -2 function call 


Call :— F(a, b, b, g) 


5  convert( Call, list ); it function -2 list 


[a, b, b, 9] 
s  convert( Call, set ); tt function -: set 
(a, b, g) 
5 myArray2D :— array( [ myList, myList ] ); 
a b b a 
myArray2D :— 
a b b ag 


5  convert( myArray2D, listlist ); ít array -2 list of lists 
Ila, b, b, a], la, b, b, al] 
s  convert( ", array ); tt list of lists -2 array 
a b b a 
a b b a 
Ezek a konverziók magasabb dimenziójú tömbök esetében is működnek. Az 
előző konverziók kombinációit listák alakjának megváltoztatására is fölhasznál- 


hatjuk: 


s Lesz ül d 2, 3502 S.rókot: Br9z TÓ; Mis 124: 
5 matrix( 2,6, L ); t array 


123 4 5 6 
t -8 d 4. 12 


s  convert( ", listlist ); it array -2 list 
[[1, 2, 3, 4, 5, 6], [7, 8, 9, 10, 11, 12]] 
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5  convert( matrix( 6,2,L ) listlist ): 
5  setattribute( ", matrix ); ít display in matrix format 


2 
4 


KO A Ot WWW E 
kep) 


11. 12 
s op("; 
[1, 2], [3, 4], [5, 6], [7, 8], (9, 10], [11, 12] 


bő map(op, "") ; 
[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12] 


A 12.3. táblázatban az összetett adattípusok közti fontosabb konverziókat so- 
roljuk föl. 


ST seg. — set list array call 
seg. e . [1] array(["]) f(/) 


set —— op(") fop(")] array(Iop(")])  — f(op("9) 
vr] convert(" list) f("[]) 
list op(") (fop("9) array(") f(op(")) 
VII convert(", set) convert(", array) f("(]) 
array convert(" set)  convert(" list) 


call — op(") convert(" set)  convert(", list) 


12.3. táblázat: Az S és a T összetett adattípusok közti konverziók 


12.9. Gyakorlatok 


1. Legyen U az első 10 prímszám halmaza. Legyen V az első 20 darab 27—1 
alakú természetes szám halmaza. 


(a) Állítsuk elő az U és a V halmazokat a Maple rendszerben. 
(b) Számítsuk ki az UV UUV és a UNV halmazokat. 

2. (a) Generáljunk 100 darab —10 és 10 közé eső véletlen számból álló listát. 
(b) Hagyjuk el a listából a többszörösen előforduló elemeket. 


(c) Válasszuk ki a (b) feladat eredményeként kapott listából azokat a számo- 
kat, amelyek 2-vel vagy 3-mal oszthatók. 
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(d) Válasszuk ki a (b) feladat eredményeként létrejövő listából az 5-nél na- 
gyobb számokat. 


(e) Határozzuk meg, hogy -a (d) feladat eredményeként kapott listában sze- 
replő számok hányszor fordulnek elő az eredeti listában. 


3. Természetesen tudjuk, hogy az z?9 — z209 — 0 egyenletnek hány megoldása 
van a komplex számok fölött. Amennyiben a solve eljárást használjuk egyen- 
letek megoldására, a képernyőn megjelenő outputban egymás után sorakozó 
egyenlőségek halmaza alapján nehezen számolhatjuk meg a Maple által talált 
megoldásokat. Határozzuk meg a nops és a map eljárások segítségével a fenti 
egyenlet megoldásainak a számát. Ellenőrizzük a választ visszahelyettesítéssel. 
(Egy jó tanács: annak érdekében, hogy használni tudjuk a map és a subs kom- 
binációját, tekintsük az egyenletet egy egyenletből álló egyismeretlenes egyen- 
letrendszernek.) 


4. Hogyan duplázhatók meg az [a, b, c] lista elemei úgy, hogy az (a, a, b, b, c, c] 
listát kapjuk? Hogyan alakíthatjuk át ezt [[a,a], [D,b], [c,c]] alakúra? Al- 
kalmazhatók-e ezek a megoldások az első 10 000 természetes számból álló lista 
elfogadható időn belül végrehajtható hasonló átalakítására? 


5. Írjunk olyan maketable eljárást, amely az indexek és az elemek listája alap- 
ján létrehozza a megfelelő táblát. A maketable( [red , green] , (0,1/31) hívás 
hatására például a red — 0, green 5 Fi hozzárendeléseknek megfelelő tábláza- 
tot kell generálnia. 


6. Hozzuk létre az 
Mi — r8cd(i-H1j-4-1) 4 1 


képlettel definiált 3 x 3-as M mátrixot. Írjuk föl faktorizált alakú elemekkel is. 


7. Hozzuk létre az 
Mi; — 10-47) 


képlettel definiált 5 x 5-ös M mátrixot, és a kicsi mátrixelemeket az fnormal 
eljárással normalizáljuk 0-ra. 


8. Hozzuk létre azt a 7 x 7-es alsó trianguláris M mátrixot, amelynek minden 
nemzérus eleme 1. Konvertáljuk a sorfolytonos rendezésnek megfelelően egészek 
listájává. 


9. Általánosítsuk a, 12.4. alfejezetben szereplő tridiagonal indexfüggvényt a 
width 2 1 sávszélességű szalagmátrixokra. 


10. Definiáljunk a fölső trianguláris mátrixoknak megfelelő speciális indexfügg- 
vényt. 
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11. Definiáljunk olyan polynomial nevű speciális indexfüggvényt, ami a meg- 
felelő tömbökben csak polinomokat enged meg elemekként. 


12. Reprezentáljuk az a és b racionális számokkal fölírt a -k bv2 alakú algebrai 
számokat rendezett párokkal. 


(a) Implementáljuk ezt a számot a Maple-ben az [a,b] listával. Írjuk meg az 
ADD, MUL és a DIV eljárásokat, amelyek az így definiált algebrai számok 
összegét, szorzatát, illetve hányadosát kanonikus alakban állítják elő. 


(b) Implementáljuk a fönti algebrai számokat algnum(a,b) alakú függvény- 
hívásokkal. Írjuk meg azt a print/algnum eljárást, amely a számot a 
szokásos matematikai jelöléseknek megfelelő a -- bV2 alakban írja ki. 


ta:z 


eljárásokat. 


18. 


Az assume parancs 


Az assume parancs változók és kifejezések tulajdonságainak specifikálását te- 
szi lehetővé. Ez a fejezet bevezetésül szolgál; a mögötte álló indítékokat, az 
alkalmazott modellt és ennek Maple implementációját írja le. A [49] irodalom 
egy informális bevezető az assume-ról, [189, 190, 191] részletesebben tárgyalja 
az alapul szolgáló modellt. 


13.1. Miért van szükség az assume-ra? 


Az assume parancs bevezetését a Maple-ben főleg az motiválta, hogy így lehető- 
vé válik a változók értelmezési tartományáró! való ismereteink beépítése, s ezzel 
az egyszerűsítések minél teljesebb végrehajtása az alkalmazott transzormációk 
érvényességének veszélyeztetése nélkül. 


5 expr :— sgrt(x72); 


expr :— Va? 


Ezt a kifejezést a Maple nem egyszerűsíti automatikusan x-re vagy abs(m)-re. 
Általában mindkét megoldás helytelen. A simplify parancs a négyzetgyök függ- 
vényt többértékű komplex függvénynek tekinti, s ez néha meglepő következmé- 
nyekkel jár. 

. simplify( expr ); 


csgn(r) z 
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A kifejezést az x komplex előjelfüggvényét tartalmazó alakra  transzformálta 
a rendszer. Ha közelebbről meghatározzuk számításaink tartományát vagy x 
értékét, a Maple is konkrétabb választ ad: 


5 assume( x, real ): 
5 simplify( expr ); 


signum(T") z7 


Vagy ha inkább az abszolút érték függvényt preferáljuk: 


5  convert( ", abs ); 


Iz] 
5  assume( x20 ): 
s  simplify( expr ); 

1 
5 assume( xc0 ): 
5  simplify( expr ); 

gp 


Az x után írt tilde jelzi, hogy valamilyen rá vonatkozó föltevést tettünk. 


A következő két példa azt mutatja, hogy több információ birtokában a, Maple 
jobb eredmények elérésére képes: 


5 integral :— int( sin(akrx)/x , x-0..infinity ); 


; iz a 
integral :— 5 signum(a) Tr 


s assume( aK0 ): 
5, integral; 


1 
—— a 
2 
5, integral :— integrate( exp(-srt), t-0..infinity ); 
§ e(—s?) 1 
integral :— lim — — 
[docAuthor] S 


Ez a részeredmény azt mutatja, hogy a Maple szerint a határérték meghatáro- 
zása könnyebb probléma, mint az integrálás. Ha többet árulunk el s-ről, ki is 
tudja számolni a határértéket a Maple: 


5  assume( s20 ): 
5 integral; 


5 assume( sc—0 ): 
5 integral; 
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A Maple segítségével tehát megtaláltuk az 


[era 2 has50 

0 00 egyébként 

formulát. A Maple számolás közben nemcsak a, változók előjelét vizsgálja; ennél 
többet végez. Ha például definiáljuk a c valós változót, és s-nek c négyzetét 
adjuk értékül, akkor a Maple már ebből tudni fogja, hogy a fönti integrál melyik 
ágát válassza: 


s assume( c, real ): 
5 S sz er2 


s: c? 


Figyeljük meg alaposan: c"-t emeltük négyzetre és nem c-t a -2 hatványra! Még 
egy tudnivaló: az értékadás hatására a Maple elfelejti az összes s-re vonatkozó 
korábbi kikötést: 

5 integral; 


1 
e 

A fönti példák tehát azt támasztják alá, hogy pótlólagos kikötéseket kell ten- 
nünk, ha a Maple által visszaadott eredmény 

e valamely integrálra vonatkozó kiértékeletlen limit; 

e nincs az általunk várt vagy kért formára egyszerűsítve; 

e kiértékeletlen csgn, signum vagy abs függvényhívás; 

e kiértékeletlen Re vagy Im függvényhívás. 
Egy jótanács: 

Szükséges kikötéseinket a számolás során a lehető legkorábban adjuk meg. 


Ezzel elkerülhetjük, hogy a Maple egy általános probléma megoldását utólag 
specializálja a,  föltételeinknek megfelelően, s így esetleg egyszerűbb, de hibás 
eredményt kapjon. Ezt a nézőpontot támogatja a [3]-ban fölvetett következő 
kérdés vizsgálata: a hengerkoordinátákkal fölírt alábbi 


TESRNÉBE 1 1 
. 8reg Vr? 4(z—i)? Vr2 (212 


komplex függvény tekinthető-e valamely fizikai jelentéssel bíró töltéssűrűség által 
generált elektrosztatikus potenciálnak. A z — 0 síkban a töltéssűrűséget a 


OK. . GY 
c — €g ( lim Ji 


2al0 OZ  a10 Oz 
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formula határozza meg. A cikk szerint a Maple és más számítógépes algebrai 
rendszerek a a — 0 hibás eredményt adják. Az alábbi szekció azt mutatja meg, 
hogy r-re megfelelő kikötéseket téve a Maple hogyan tudja mégis megtalálni a 
helyes választ: 


s V :— 1/(8xrPixrepsilon[0]) x ( 1/sgrt(r"2t(z-I)72) - 
s 1/sart(r72t(zt1)72) ); 


1 1 
vil ANTTTET ELTE ETTVSTT 
fej T Eg 
5 Biz] s— --dífí( V, zo 
1: 22—21I 1 22-k2I 
pe 1 RG DET ET GITTET 
ám B T Eg 


5 sigma :— epsilon[l0] x ( limit(Ef[z], z-0, right) - 
s limit( E[z], z-0, left) ); 


ss 

5 assume( r2-i ); 

: sigma :-— epsilon[0]r( 

s limit( Elz], z-0, right) - limit( Elz], z-0, left) ); 
a:s0v 


5  assume( Oxr, rce1 ); 
sigma :— epsilon[0] x ( limit(Elz], z-0, right) - 
5 limit( El[z], z-O, left) ); 

1 1 


2 mr (1— r72)3/2 


v 


Most nézzük meg, mi történik, ha az utolsó kifejezést az r — 1/2 helyen 
vesszük: 


3. ess iz2i 98is 
1 1 


2 m(1— r72)32 

Miért tartalmazza még mindig r"-t a válasz? Ennek oka a következő: az 
assume( O0cr, rc1) paranccsal az r-t egy olyan új r" változóval helyettesí- 
tettük, amely a (0, 1)-ből vehet föl értékeket. Ettől kezdve az r"7 változóra az 
r-rel hivatkozhatunk. Ezután az új változó függvényében meghatároztuk a, töl- 
téssűrűséget. De most nem az r"-nak, hanem az r-nek adtuk értékül az 1/2-et. 
A töltéssűrűség azonban továbbra is r"-t tartalmazza. Az r:-1/2 értékadással 
tehát megszűnt annak lehetősége, hogy egyszerű módon hivatkozhassunk r" -re. 
A 3.6. alfejezetben részletesebben elmagyaráztuk az assume implementálásának 
ezt a mellékhatását, és azt is leírtuk, hogyan adható érték olyan változóknak, 
amelyekre valamilyen kikötéseket tettünk. 


13.2. Az assume alapjai 319 


13.2. Az assume alapjai 


Az assume-mal kapcsolatos lehetőségek a 13.1. táblázatban fölsorolt öt alap- 
paranccsal érhetők el. A hatodik utasítással a Maple tudását bővíthetjük új 
tulajdonság definiálásával. 


Parancs Jelentése 


assume föltétel(lek) megadása 

additionally kiegészítő föltétel(ek) megadása 

about a most érvényes föltétel(ek) kiírása 

is tulajdonság lekérdezése 

coulditbe tulajdonság lehetőségének meghatározása, 
addproperty tulajdonság hozzáadása a Maple tudásbázisához 


13.1. táblázat: Az assume-mal kapcsolatos parancsok 


Az assume eljárással a, változók tulajdonságait és a változók közti kapcsolatokat 
adhatjuk meg a Maple-nek. Alapvetően két formája van: 
assume( c ineguality - ) 
és 
assume( c vartable 5 , — property - ). 

Ha egy kifejezésre vonatkozó föltételeket adunk meg, a továbbiakban a kifejezés- 
ben szereplő változók neve után egy tilde karaktert tesz a Maple, ezzel jelezve, 
hogy rájuk bizonyos kikötések érvényesek. Az about eljárás a változókra, és 
kifejezésekre pillanatnyilag érvényes föltételeket jeleníti meg. 

Például azt, hogy r egynél kisebb abszolút értékű valós konstans, többféle 
módon megadhatjuk: 


s  assume( abs(r)ce1 ); 
s about(r ); 


Originally r, renamed r" : 
Involved in the following expressions with properties 
abs("r"") assumed RealRange(-infinity, Open(1)) 
also used in the following assumed objects 
[Iabs("r"")] assumed RealRange(-infinity, Open(1)) 


5  assume( r, RealRange( Open(-1), Open(1) ) ); 
s about(r ); 


Originally r, renamed r": 
is assumed to be: RealRange(Open(-1) , Open(1) ) 


5 assume( -ixr, rel ): 
s about(r ); 


Originally r, renamed Ir" : 
is assumed to be: RealRange(Open(-1) , Open(1) ) 
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Az about eredményeit is megadtuk, így látható, hogy a különféle föltételeket 
nem mindig ugyanúgy kezeli a rendszer. 

Az utolsó előtti parancs azt mutatja, hogy az assume egy hívásakor több 
föltételt is összekombinálhatunk. Figyeljük meg a, különbséget: 

5 assume( -ixr ): 


5 assume( rel ): 
5  about(r ); 


Originally r, renamed r"7: 
is assumed to be: RealRange(-infinity, Open(1)) 
Valahányszor az assume-mal föltételezünk valamit, a föltételben szereplő vál- 
tozókra vonatkozó összes korábbi kikötés törlődik. Legalábbis ez a helyzet, ha az 
.Envadditionally környezeti változó értéke az alapértelmezés szerinti false: 


5 — Envadditionally :— true: 
5 assume( -ixr ): 
s about(r ); 


Originally r, renamed r" : 
is assumed to be: RealRange(Open(-1) , Open(1)) 


Ahelyett, hogy az. Envadditionally-nak a true értéket adnánk, használhatjuk 
az additionally eljárást is. 


5 additionally( arcsin(r), 
5 RealRange( Open(-Pi/2) , Open(Pi/2) ) ); 
5 about( r ); 


Originally r, renamed r": 
Involved in the following expressions with properties 
arcsin("r7") assumed RealRange(Open(-1/2:Pi) , O0pen(1/2xPi)) 
is assumed to be: RealRange(Open(-1) , Open(1) ) 
also used in the following assumed objects 
[arcsin("r7")] assumed RealRange(Open(-1/2:Pi) , Dpen(1/2xPi) ) 


A következő könyvtári függvények veszik figyelembe a megadott föltételeket: 
csgn, signum, abs, Re, Im, frac, trunc, round, ceil, floor. 


Az r-re tett fönti kikötések után a Maple már önállóan is boldogul: 
5 abs(r - 1 ), signum( r"5 - 1 ); 
1—r", —1 
A coulditbe paranccsal azt is megkérdezhetjük, hogy vajon valamely tulajdon- 
ság ellentmond-e az eddigi kikötéseknek: 
5  coulditbe( r2-3 ); tt no conflict 
true 


5  coulditbe( r:1/3 ); $ also no conflict 
true 
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A föntebb fölsorolt függvények az ismert tulajdonságok valamelyikének meglé- 
tére az is eljárással kérdeznek rá. Ezt mi is használhatjuk tulajdonságok tesz- 
telésére. Az r-re kirótt korábbi föltételek esetén 


5 is( r : 1/3 ); t not necessarily true 


false 


b. hal aaz ü ls a ezi a 
true 


Az is eredménye true, false vagy FAIL. Az is által visszaadott érték akkor 
FAIL, ha nem tudta. eldönteni, hogy a szóbanforgó tulajdonság igaz vagy hamis. 
Ezt okozhatja az, hogy kevés volt a rendelkezésére álló információ, vagy nem 
volt képes a, szükséges logikai következtetések levezetésére, esetleg nem használt 
föl elegendően sok erőforrást annak eldöntésére, hogy az adott tulajdonség igaz, 
hamis vagy eldönthetetlen. Az is által visszadott true érték azt jelenti, hogy a 
kifejezés minden lehetséges értéke rendelkezik a kívánt tulajdonsággal. Ha az is 
a false eredménnyel tér vissza, akkor van legalább egy olyan lehetséges értéke 
a kifejezésnek, amelyre nem teljesül az adott tulajdonság. 

A következő két alfejezetben a tulajdonságok algebráját és ennek implementá- 
cióját vizsgáljuk a Maple rendszerben. Ezek után bizonyára az Olvasó is képet 
tud alkotni arról, hogy mire képes a Maple a tulajdonságokkal kapcsolatban. 
Most csak annyit jegyzünk meg, hogy az is az EnvTry környezeti változó érté- 
kétől függően két módon működhet: a normal és a hard módon. 

s — EnvTry :5 normal: it the default value 

5 assume( ac-b, bczc, ccsa ); 

5 is( a — c ); it successful eguality test 


true 
5 seg( x.i 5— x.(i-1), isi..10 ); 


v0 £ ai, xi £ 92, 12 c 23, 29 £ 14, ay €£ 19,109 £ 16, 36 £ $7 
17 C 18,18 CZ 19, 19 c 110 


5 assume( ", x10 cz x0 ): 
5 is( x0 -— xi0 ); t test failure 
FAIL 
5 — EnvTry :— hard: it let Maple do its very best 
s is( xi — x10 ); t$ successful eguality test 


true 


A fönti példa kapcsán két további technikai kérdést vizsgálunk meg. 


e Áz assume indexelt változókra nem alkalmazható, mivel ez gondokat 
okozna, többek között az index helyettesítését végző parancsoknál vagy 


a ciklusváltozóval megegyező értékű indexeknél. 
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e Az is eljárás is használja a remember opciót. Vagyis ha egy teszt ered- 


ményeként FAIL vagy valamely más eredményt kaptunk, onnantól kezdve 
az lesz az eredmény, függetlenül attól, hogy az EnvTry-t a hard értékre 
állítottuk-e. Most már világos, hogy a változó hatását demonstráló elő- 
ző Maple szekcióban miért nem kérdeztünk rá másodszor is az 10 — r10 
egyenlőségre, miért vettünk helyette egy másikat. 


A második megszorítással kapcsolatos problémák elkerülésére létezik olyan 
alternatív megoldás is, amely minden remember opciót használó könyvtári függ- 
vény esetében alkalmazható. 


Ha a Maple az újraszámolás helyett egy előzőleg meghatározott érté- 
ket keres vissza, explicit módon kérhetjük, hogy felejtse el az emléke- 
zőtáblájában tárolt korábbi értékeket. 


Az előző példában tehát így járhatunk el: 


VVVV 


readlib( forget ): i load library function 
forget( is ): it forget results of "is" 


.EnvÍry :- normal: it reset assume mode 
is( xi — x10 ); tt unsuccessful eguality test 
FAIL 


13.3. A tulajdonságok algebrája 


A tulajdonságokkal kapcsolatos probléma például 


Adottak: az m és n páratlan egész számok 
Kérdés : igaz-e, hogy m? 1- n páratlan egész? 


vagy még általánosabban 


Adottak: obj, € Prop), . . . , obj, € Prop, 
Kérdés : igaz-e, hogy f(objj, . . ., obja) € Propg? 


Ilyen kérdések az objektumok tulajdonságainak manipulálásával válaszolhatók 
meg. Vegyük a fönti példát: , adottak az m és n páratlan egész számok, a, kérdés: 
igaz-e, hogy m? 4 n páratlan egész?". A probléma két részre osztható: 


1. Iranszformáljuk a tulajdonságokat az objektumokkal együtt: például ha 


m páratlan egész, akkor m? is páratlan egész. A négyzet függvényhez te- 
hát a tulajdonságokon értelmezett olyan függvény van rendelve, amely a 
,Páratlan egész" tulajdonságot saját magára képezi le. Ha tovább hala- 
dunk az (m,n) Rm m? --n példa vizsgálatával, a következő leképezéseket 
kapjuk: 


(m,n) HB addot(sgr,id)(m,n) 
(P,P) HB addvov(sgr,id)(P,P) 
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Itt add, sgr és id az összeadást, a négyzetreemelést, illetve az identikus 
függvényt jelöli, a P tulajdonság jelentése , páratlan egész". 


2. A feladatot redukáljuk az 
add o (sar, id)(P, P) — add o (sgr, id)(P,P) c P? 
kérdés eldöntésére. 
Általánosabban fogalmazva a két lépés a következő: 
1. Transzformáljuk a tulajdonságokat az objektumokkal együtt: 
(obj1,...,objn)  " FR 9 f(obji,..., objn) 
(Propy,..., Propn) BR Jf(Propi,:::, Propn) 
2. Redukáljuk a feladatot az 
f(Prop1, : . ., Propa) E Propg 


kérdés eldöntésére, ahol az E olyan objektumokon értelmezett reláció, 
amelyre 
obj e Prop 5 obj c Prop! iff  Prop CC Prop. 


Mivel a tulajdonságokat azonosítjuk az összes olyan objektum halmazá- 
val, amelyekre teljesül az adott tulajdonság, a — reláció a halmazelméleti 
tartalmazás lesz. 


Példák a Maple-ben értelmezett tulajdonságokra: 


integer az egészek halmaza 

odd a páratlan egészek halmaza 
RealRange (0 , Open(1) ) 1,1—-(ízeR]o £zc1) 
monotonic a monoton valós függvények halmaza 
InfinetelyDifferentiable a (CC függvények halmaza 
Non(singular) a nemszinguláris mátrixok halmaza 


A tulajdonságok a halmazelméleti tartalmazásra nézve hierarchiákat alkotnak. 
posint C natural C integer. 


Az integer, fraction stb. tulajdonságok és a 0, 1 stb. konstansok alkotják az 
alaptulajdonságokat. Ezekből a 71,A és a V indukált hálóműveletekkel képezhe- 
tünk újabb tulajdonságokat. A műveletek jelentése: 


a logikai tagadás (not), például , nemnulla" (a Maple jelölése Non (0) ) 


A logikai és (and), például ,egész és kettőnél nagyobb" (a Maple jelölése 
AndProp( integer, RealRange(2,infinity) ) ). 
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V logikai vagy (or), például egyváltozós vagy kétváltozós" (a Maple jelölése 
OrProp( unary, binary ) ). 


A T legnagyobb hálóelem jelenti a , létező", , nincs semmi kikötés" tulajdonságot. 
Maple jelölése TopProp. Ennek szimmetrikus párja a l legkisebb elem, ami a 
,nem létező" tulajdonságnak felel meg, vagyis olyan kikötés, amelyet teljesítő 
Maple objektum nem létezhet. Maple jelölése BottomProp. 

Az összetett függvényekkel kapcsolatos kérdéseket a következő módszerrel ke- 
zeli a rendszer. Az objektumokon értelmezett minden f függvénynek megfelel 
egy f tulajdonságokon értelmezett függvény. Például a 4- addíciós operátor azt 
a tulajdonságokon értelmezett - operátort indukálja, amelyre 


-H(odd,odd) — even 
-H(odd,even) —  odd 
F(even,odd) —  odd 
-H(even even) — even 
-H(prime, composite) —  integer 
-H(fraction fraction) —  rational 
-H(irrational, irrational) — real 


És így tovább. Természetesen nem szükséges, hogy f minden tulajdonságra 
definiálva legyen. Ha modellünkhöz hozzáveszünk néhány alapvető tulajdon- 
ságfüggvényt, például a 4, F, In és az exp-t, valamint ezek inverzeit, a tulaj- 
donságok olyan algebráját kapjuk, amely kielégíti a klasszikus hálóaxiómákat 
és még néhány olyan extra axiómát, amelyekkel fölépíthető a tulajdonságok 
effektív kalkulusa. A tulajdonságok ténylegesen egy Boole-algebrát alkotnak. 


13.4. Az assume implementálása, 
A Maple jelenlegi változata által elfogadott tulajdonságok a következők: 


(a) tulajdonságnevek, amelyek így osztályozhatók: 


alias, például AnaProp( real, constant) helyett realcons; 
numerical, például imaginary vagy prime; 

matricial, például SguareMatrix vagy PositiveDefinite; 
functional, például unary vagy OddMap; 

egyéb, például TopProp, MutuallyExclusive. 


(b) a legtöbb típus, például integer, fraction és rational. Ide tartoznak a 


konstansok, így a 0 és az 1 is. 


ki 


(c) numerikus tartományok, például RealRange( -infinity, Open(0) ). 


(d) tulajdonságok konjunkciója, például AndProp( integer, positive ). 
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(e) tulajdonságok diszjunkciója, például OrProp( positive, negative ). 


(£) tulajdonságok tartománya, például PropRange( Prop1, Prop2 ). Ha 
P - PropRange( Propi, Prop2 ), akkor minden Prop1 tulajdonságú ob- 
jektum rendelkezik a P tulajdonsággal is, továbbá minden P tulajdonságú 
objektumnak megvan a Prop2 tulajdonsága is. 


(g) lineáris tulajdonságok, például LinearProp( 3, integer, 0 ) a három- 
mal osztható egészek halmazát reprezentálja. 


(h) parametrikus tulajdonságok, például Non(0) vagy Non(singular) . 


A Maple-ben használható tulajdonságok teljes listáját az on-line help rendszer 
?property parancsával kaphatjuk meg. A manuáloldal fölépítése is azt tükrözi, 
hogy a fönti (a) és (b) osztályba sorolt alaptulajdonságok irányított aciklikus 
gráfot alkotnak. A fejezet végén található 13.1., 13.2. és 13.3. ábra az előre 
definiált numerical, matricial, illetve functional tulajdonságok gráfját ábrázolja. 


Új tulajdonság megadásához szükséges összes szülőjének és leszármazottjá- 
nak fölsorolása a "property/ParentTable" és a "property/ChildTable " táb- 
lákban. Valamely alaptulajdonságnak az irányított aciklikus gráfban elfoglalt 


e-Sgr 4 


pozícióját az about-tal tudhatjuk meg, például 
5 about( integer ); 


integer: 
a known property having íÍrational, Gaussianlntegerj) as 
immediate parents and í1, composite, prime) as immediate 
children. mutually exclusive with (fraction, irrationall 


Az addproperty eljárással installálhatunk új tulajdonságot a tulajdonságok 
hierarchiájában. Például 
s  alias( nonnegative - RealRange(0, infinity) , 
nonnegbutlessthani - RealRange(0,Open(1)) ): 
addproperty( nonnegbutlessthani, (nonnegativej, 10) ): 


w mY 


"property/ParentTable" [0] ; 
(nonnegbutlessthani , compositel 


Ezzel megváltoztattuk a numerikus tulajdonságok hálóját: 
s  "property/ParentTable" lnonnegbutlessthani1] ; 
(nonnegative) 


s "property/ChildTable"lInonnegativel ; 
(nonnegbutlessthani , RealkRange(Open(0), 00)) 


5 is( 1/2, nonnegbutlessthani ); 
true 


5 is( Pi, nonnegbutlessthani ); 
false 
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A tulajdonságok is Maple objektumok, ezért maguk is rendelkezhetnek tulaj- 
donságokkal. Hierarchiájuk a fejezet végén a 13.4. ábrán látható. Ezért az ilyen 
kérdéseknek is van értelme: 


5 is( prime, property ); 
true 


Az f objektumokon értelmezett; függvényhez tartozó f tulajdonságfüggvényt a 
"property/f" eljárásban implementálhatjuk. Az eljárás emlékezőtáblája a. tu- 
lajdonságfüggvényre vonatkozó sok lényeges információt tárol. Vegyük például 
az exponenciális függvényt. A verboseproc interfész változót 3-ra beállítva a 
Maple az eljárás emlékezőtábláját is kiírja: 

5  interface( verboseprocsz3 ): 

5  print( "property/exp" ); 


proc(a) 
local b, c; 
option remember, "Copyright (c) 1992 Gaston Gonnet, 
Wissenschaftliches Rechnen, ETH Zurich. All rights reserved. " ; 
if a: :RealRange then 
if op(i, a)::10, identical(-infinity), Open(0)3 and 
op(2, a)::10, Open(0), identical(infinity)) then 
RealRange(procname(op(1, a)), procname(op(2, a))) 
else 
b :-— procname(op(1, a)); 
c :- procname(op(2, a)); 
RealRange(b, c) 


fi 

elif a::EvalfableProp then PropRange(BottomProp, 
RealRange ( "property/Shake " (exp(a) ) ) ) 

elif a: :Open(EvalfableProp) then PropRange(BottomProp, 
RealRange ( "property/Shake " (exp(op(1, a))))) 

else ERROR(FAIL) 


AERE 
end 
t (-infinity) -— Open(0) 
t (Open(0)) - Open(1) 
ft (real) - RealRange(Open(0) , infinity) 
t (complex) - complex 
tt (infinity) -— infinity 
tt (0) -1 


A. tulajdonságfüggvényt a tulajdonságokkal való számolásra használjuk, de 
ennél többről van szó. Például milyen következtetéseket tud levonni a Maple, 
ha egész argumentumra alkalmazzuk az exponenciális függvényt? A rendszer 
a következőképpen mőködik. Először is megállapítja, hogy az exp tulajdonság- 
függvény erre az esetre vonatkozóan nem tartalmaz semmi információt. Ekkor 
a Maple úgy dönt, hogy megvizsgálja az integer tulajdonság közvetlen őseit. 
Ámde nem talál sem a GaussianInteger, sem a rational tulajdonsághoz ren- 
delt tulajdonságfüggvényt. A nagyszülők vizsgálatára tér át, s itt már sikerül is 
találnia valamit. 
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exp(complex) — complex 
expíreal) —  RealRange(Open(0) ,infinity) 


Így a Maple arra a, következtetésre jut, hogy 


exp(integer) C AndProp(exp(complex), exp(real)) 


—  AndProp(complex, RealRange(0Open(0) , infinity)) 
RealRange (Open(0) , infinity). 


A közvetlen leszármazottak és az unokák megfigyelése alapján a Maple rájön, 
hogy 


exp(integer) 2  OrProp(exp(0), exp(1)) 
—  OrProp(i, PropRange(BottomProp, 
RealRange(2.71828182574,2.71828183118))) 
3 1 


A Maple tehát biztos benne, hogy 
(1) c exp(integer) C (0, 00) 


Az assume-mal kapcsolatos függvények közül a két legfontosabb: az assume és 
az is. Az első függvénnyel a Maple-nek adhatunk információt az objektumokról, 
vagyis deklarálhatjuk az objektumok tulajdonságait. Például az 


s assume( xP0 ): 
parancs x-hez egy x" lokális változót rendel, és létrehozza vagy aktualizálja a 
"property/object"[x7 bejegyzést. Vizsgáljuk meg ezt a táblaelemet, és néz- 
zük meg, hogyan változik, ha egy újabb kiegészítő föltételt adunk meg: 
5  "property/object"[x]; 
RealRange(Open(0), 00) 


5  additionally( x, integer ); 
5  "property/object"[x1; 
AndProp(integer, Realkgange(l, 00)) 


Az objektum összes tulajdonsága tehát a "property/object" tábla megfelelő 
bejegyzésében tárolódik. 

Objektumokra vonatkozó információkat az is segítségével kereshetünk vissza. 
Az eljárás az előző alfejezetben leírt tulajdonságalgebra szabályait alkalmazza, 
a, kifejezések tulajdonságainak ellenőrzésére. Az x-re tett előbbi föltételekből 
például a Maple le tudja vezetni, hogy e? 5 I: 

s is( exp(x) ?) 1); 

true 
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Ez négy lépésben történik: 


1. Tulajdonságok segítségével átfogalmazza a kérdést, azaz 
is( exp(x), RealRange(Open(1), infinity) ). 


2. Az objektumot kifejezi a kezdetben rendelkezésünkre álló objektumokkal, 
azaz object — exp(x). 


3. A "property/object " táblából kikeresi az x-re vonatkozó bejegyzéseket, 
és kiszámítja exp( "property/object " [x1)-et. 


4. Eldönti, hogy exp( "property/object"[x7 )-et tartalmazza-e 
a RealRange(Open(1) , infinity) tulajdonság. Ebben az esetben a, vá- 
lasz triviálisan true lesz. 


Az is eljárás így kezeli a kérdéseket: 


1. Átfogalmazza a kérdést is( object, Property ) alakúra. 


2. Az objektumot kifejezi az ismert objektumokkal: 
object — f( obj 1, obj 2, ..., obj n). 


3. Kikeresi a "property/object " táblából az obj 1, obj 2, ..., obj n 
objektumokra vonatkozó bejegyzéseket, és kiszámítja 
f(Prop.1, Prop 2, ..., Prop.n)-t. 


4. Eldönti, hogy f(Prop. 1,Prop. 2, . . . Prop .n) benne van-e Property-ben. 


noindent Ezt a részt az assume implementálásának egy furcsa következmé- 
nyével zárjuk. Mivel az objektumokra kirótt föltételek nem az objektumokhoz 
kapcsolt formában, hanem a "property/object " táblában tárolódnak, az ob- 
jektumokat fájlba elmentve, a Maple-ből kilépve, a rendszert újraindítva és végül 
a fájlból az objektumokat visszatöltve minden ilyen jellegű információ elvész. A 
következő szekció újabb változat erre a témára: 


5  assume( x20 ): 
5  "property/object"[x]; tt check the property about x 


RealRange(Open(0), 00) 
5 xtilde :— x: if keep a copy Oof x 


5 save x, foo: 
5 "property/object"[x1; t check the property about x 


RealRange(Open(0), 00) 


Eddig mindent rendben van. Olvassuk be a foo fájlt: 


5 read foo; 
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Még mindig jónak látszik, ámde! 
5  "property/object"[x]; 
property/ object, - 


5  "property/object"[xtildel; 
RealRgange(Open(0), 00) 


A két x" nem ugyanaz! A foo nevű fájlba a rendszer az x :— x" értékadást 
mentette el. Itt x7 olyan globális változó, amelynek neve egy tildét tartalmaz. 
Az az objektum, amelyre a föltételt tettük, egy x" nevű lokális változó, de a 
fájl beolvasása után rá csak az xtilde változóval hívatkozhatunk. Ezt úgy 
orvosolhatjuk, hogy nemcsak a változót, hanem a tulajdonságok táblázatát is 
elmentjük. 

5 save xtilde, "property/object", foo: 

5 read foo: 

5  "property/object"([xtildel; 


RealRange(Open(0), 00) 


A példa azt mutatja, hogy a Maple assume-mal kapcsolatos lehetőségei még 
lényegesen javíthatók; implementációjuk teljesebbé és robusztusabbá tehető. 
Mindezen furcsaságok és korlátozások ellenére fontos előrelépést jelentenek a, 
Maple által végzett számításoknál. 


13.5. Gyakorlatok 

1.Számítsuk ki cos(nm)-t és sin(n5)-t, föltéve, hogy n 
e egész, 
e páratlan egész, 
e 3-nál kisebb páratlan pozitív egész. 


2. Adjuk hozzá a (—1, 1) intervallumot a numerikus tulajdonságok hierarchiá- 
jához. 


3. Egy természetes számot perfektnek nevezünk, ha eggyel nagyobb nemtriviális 
osztóinak összegénél (például 6 — 234 3-1 és 28— 2-7 473 7-4 14-- 1). Vegyük 
hozzá a perfekt számokat a numerikus tulajdonságok hierarchiájához. 


4. Az A n x n-es mátrixot ferdén diagonálisnak (skew-diagonal) hívjuk, ha 
A;j - 0 valahányszor 1 t-j £ n--1. Adjuk hozzá a skewdiagonal tulajdonságot 
a Maple tudásbázisához. 


1Az általunk használt Linuxos verzióban ezt a , sajátosságot?" már részben korrigálták, a 
két következő parancs ugyanazt adja, ezért a további fejtegetések sem igazak maradéktalanul. 
(A Fordító megjegyzése.) 
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13.6. A tulajdonságok hierarchiái 


TopProp 


complex 


constans 


Gaussian rational 


GaussianPrime 


composite 


BottomProp 
13.1. ábra: A numerikus tulajdonságok hierarchiája 


TopProp 
Array 


vector matrix 
RectangularMatrix SguareMatrix 


ElementaryMatrix 


Non(symmetric) symmetric tridiagonal — triangular PositiveSemidefinite 


UpperTriangular 


Hermitian LowerTriangular 


diagonal 


singular antisymmetric . idempotent  Non(singular) ScalarMatrix — PositiveDefinite 


NullVector 


NullMatrix 


IdentityMatrix 


BottomProp 


13.2. ábra: A mátrixtulajdonságok hierarchiája 
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TopProp 


Mapping 


continuous 


unary operator monotonic 


differentiable 


StricttyMonotonic sa hetesó 


tte) commutative . associative 
PolinomialMap 


OddMap EvenMap LinearMap 


BottomProp 


13.3. ábra: A függvénytulajdonságok hierarchiája 


TopProp 


property 


MutuallyExclusive type 


BottomProp 


13.4. ábra: Különböző tulajdonságok hierarchiája 
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14. 


Egyszerűsítés 


A 7. fejezetben tárgyaltuk a polinomokkal és a racionális kifejezésekkel végezhe- 
tő műveleteket. Vizsgáltuk a normalizálást, a gyűjtést, a rendezést, a szorzattá, 
alakítást és a kifejtést. Ezeket a műveleteket az jellemzi, hogy a kifejezések egé- 
szére hajtódnak végre. Matematikai függvényeket tartalmazó számítások során 
viszont gyakran olyan egyszerűsítési szabályokat szeretnénk alkalmazni, melyek 
ezekre a függvényekre vonatkoznak. Például trigonometrikus függvényeket hasz- 
náló számítások során gyakran föl szeretnénk használni a sin? -4- cos? — 1 egyen- 
lőséget. Ebben a, fejezetben leírjuk, hogyan hajtható végre matematikai függ- 
vényeket tartalmazó kifejezések egyszerűsítése, mit mondhatunk a Maple által 
fölajánlott egyszerűsítések érvényességéről, hogyan kontrollálhatók az egyszerű- 
sítések, hogyan definiálhatunk saját egyszerűsítési rutinokat, vagy bírálhatjuk 
fölül a Maple meglévő rutinjait. 

Az automatikus egyszerűsítést bemutató rövid bevezető után az expand, a 
combine, a simplify és a convert eljárásokat ismertetjük. A Maple specia- 
litásai közé tartozik, hogy maga a rendszer határozza meg, hogy milyen mate- 
matikai függvények vesznek részt a számításokban, és milyen ezekre vonatkozó 
transzformációs szabályok állnak rendelkezésére. Ez újabb példát szolgáltat a 
Maple rendszer hibrid algoritmikus struktúrájára. 


Megvizsgáljuk minden egyes egyszerűsítési eljárás hatását a trigonometrikus 
függvényekre, az exponenciális és logaritmus függvényekre, a hatványokra, a 
gyökös kifejezésekre és más függvényekre. Három külön alfejezetet szentelünk a 
trigonometrikus függvények egyszerűsítésének, a kifejezések mellékföltételeket is 
figyelembe vevő egyszerűsítésének és az egyszerűsítési folyamat kontrollálásának. 
Azt is megmutatjuk, hogyan definiálhatunk saját egyszerűsítési rutinokat vagy 
bírálhatjuk fölül a Maple által végzett egyszerűsítéseket. A fejezet végén a 
lehetséges egyszerűsítéseket áttekintő táblázatot közlünk (lásd 14.1. táblázat). 
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14.1. Automatikus egyszerűsítés 


Vessünk először egy pillantást a Maple által végrehajtott automatikus egysze- 
rűsítésekre: 


5 arcsin(1/2), Zeta(2), GAMMA(1/2), Psi(1/2); 


1 
. — mr, Vr, —y—21n(2) 


ő "B 


s min( 3, Pi, cos(1)sx3 ); 
3 cos(1) 


5 tan( arctan(x) ), arctan( tan(x) ); 
xz, arctan(ítan(T)) 


5  sgrt(Pir2rx72); 


mTvax? 


5 Jabs( abs(x) )? - abs( abs(x) ); 
Iz — Iz] 


5  Jabs(-Pixrx)? - abs(-Pixx); 
1h—r2]— 7 Iz] 


5  !sin(-x)? -— sin(-x), ?cos(Pi/2-tx)? - cos(Pi/2tx); 


sin(—r) — —sin(2), c0s(5 xx) — —sin(z) 


5  Jexp(3r1n(x))? - exp(3r1n(x)); 
e(3 In(z)) ui 3 


5  1n(exp(x)), exp(In(x)); 


In(e?), x 
5 assume( x, "real? ); 
5 1n( exp(x) ); 
z 
5  signum( exp(1)texp(x)); 
1 


Az 1.3. alfejezetben már figyelmeztettük az Olvasót, hogy nem minden automa- 
tikus egyszerűsítési szabály érvényes általánosan. Néha csak az alapesetekben 
működnek helyesen. Például a 0 -z7 —; 0 és az (z — z) — 0 egyszerűsíté- 
sek (hatékonysági megfontolásból) föltétlenül kívánatosak, de ezek sem adnak 
helyes eredményt, ha z értéke definiálatlan vagy végtelen. Az (z— T) O 0 
egyszerűsítésnek a következő mellékhatása van: 
5  limit( exp(1/x), x-0 ) - limit( exp(-1/x), x-0 ); 
0 
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A Maple által minden k-ra végrehajtott OF —;3 0 automatikus egyszerűsítés 
pedig az alábbi mellékhatást eredményezi: 


5  sum( alk]xx7k, k — 0..n ); 
n 
50 ar 
k-—0 


5  eval(subs( x-0, " )); 


0 


Az exp(ln(z)) — 2 automatikus egyszerűsítés helytelen az z — 0 esetben, de 
ettől még a Maple habozás nélkül alkalmazza. 

A fenti példák jól mutatják egyrészt a használhatóság és a hatékonyság, más- 
részt a matematikai egzaktság közti kapcsolatot. Tisztában kell lennünk azzal, 
hogy a Maple a legtöbb vagy talán az összes számítógépes algebrai rendszer- 
hez hasonlóan olyan automatikus egyszerűsítési szabályokat hajt végre, amelyek 
nem száz százalékosan biztonságosak. 

Sok rendszerben a problémák újabb forrását jelenti a főértékükkel reprezentált 
többértékű függvények automatikus egyszerűsítése. A fejlesztők komoly erőfe- 
szítéseket tettek a komplex többértékű függvények korrekt kezelésére a Maple V 
Release 4-ben. Csak a bizonyíthatóan helyes automatikus egyszerűsítési szabá- 
lyok hajtódnak végre (a korábban említett exp(ln(x)) — r-et kivéve). Például 
az 

5 sgrt(Pi72rx72); 


mr vax 


kifejezést nem egyszerűsíti tovább a rendszer. 
s sgrt( Pi"2rx72, "symbolic? ); 
TX 


Ehhez vagy további föltételeket kell tennünk, vagy a fönti példához hasonlóan a, 
symbolic kulcsszót kell használnunk, hogy valamely nem verifikálható egysze- 
rűsítésre rávegyük a rendszert. 

De óvatosaknak kell lennünk, és tudomásul kell venni, hogy a többértékű függ- 
vények egyszerűsítése még mindig nem száz százalékig biztonságos. A fejezetből 
ki fog derülni, hogy a Maple megengedi olyan egyszerűsítések használatát, ame- 
lyek csak az alapesetekben és nem minden elképzelhető esetben érvényesek. Egy 
ijesztő példa: 

5 1n( exp(x) ); $ no automatic simplification 


ln(e") 


s simplify( ", In ); $ no harm done 
1ln(e") 


5  simplify( ", exp ); it no harm done 
In(e7) 
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5 simplify( ", (ln,expl ); tt possibly incorrect 
Tz 


Az utóbbi helyettesítés csak akkor korrekt, ha az z komplex szám argumentuma 
—ag és x között van (a határokat is beleértve). Azt mondhatnánk, hogy ha elég 
erőteljesen noszogatjuk, a Maple megadja a kívánt eredményeket, függetlenül at- 
tól, hogy ezek matematikailag helyesek-e. De az ilyen egyszerűsítések gyakran 
hibás számítási eredményekre vezetnek. Ha az Olvasó az eddigiek alapján még 
nem lenne meggyőződve arról, hogy a programot kellő óvatossággal kell használ- 
nia, akkor vessen egy pillantást az [57, 111, 175] publikációkra, ahol hasonlóan 
meglepő eredményeket találhat. 


14.2. Az expand eljárás 


Az expand eljárásról általánosságban azt mondhatjuk, hogy nevéhez hűen dolgo- 
zik, nevezetesen kifejezéseket fejt ki. Matematikai függvények estében ez gyak- 
ran az addíciós szabályok alkalmazását jelenti. 


e Trigonometrikus és hiperbolikus függvények 
s  cos(2rx): " - expand("); 
cos(2x) — 2cos(m)? — 1 


5 cos(5rx): " - expand("); 
cos(5 x) — 16 cosím)" — 20 cos(m)? -- 5 cos(a) 


5  cosh(5rx): " - expand("); 
cosh(5 xz) — 16 cosh(z)" — 20 cosh(r)? -- 5 cosh(r) 


5 tan(2xrx): " - expand("); 
5 tan(z) 
tan(2 1) — 2 ictanlaji 
5 tanh(2rx): " - expand("); 
— o, Sinh(z) cosh(m) 
basis szé Tia 2cosh(z)2 — 1 
s  cos(xty): " - expand("); 


cos(z 4 y) — cos(z) cos(y) — sin(T) sin(y) 


5  cos(xt2ry): " - expand("); 
cos(z th 2y) — 2 cos(m) cos(y)? — cos(z) — 2 sin(r) sin(y) cos(y) 


5 cos(xi(ytz)): " — expand("); 
cos(z (y 4 2)) — cos(ír y) cos(z 2) — sin(r y) sin(z 2) 
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Az előző példa két szembetűnő aspektusa: 


(1) Az expand eljárás kifejti az összegek vagy többszörös argumentumok tri- 
gonometrikus és hiperbolikus függvényeit. A fönti példák is azt illusztrálják, 
hogy a kifejtés olyan mélységig történik, ameddig csak lehetséges. A cos5z S 
cos x cos4z — sin z sin 4r-hez hasonló részleges kifejtést már nem olyan könnyű 
végrehajtani az expand-dal. Ez csak az alábbiakhoz hasonló trükkökkel érhető 
el: 
5  cos(5xx); 
cos(5 x) 


p gúbeli Bixsxt íg, "Ji 


cos(z ty) 


5  expand("); 
cos(m) cos(y) — sin(z) sin(y) 


5  subs( y— 4xx, " ); 
cos(4 r) cos(r) — sin(r) sin(4 r) 


Vagy pedig az expand/cos alább látható forráskódja alapján át kell írni a 
kifejtést végző eljárást; ki kell hagyni belőle önmaga rekurzív hívását: 


s interface( verboseproc-—2 ): ti make Maple more verbose 
5  print( readlib( "expand/cos" ) ); tt print source code 


proc(x) 
local n, y; 
option "Copyright (c) 1991 by the University of Waterloo" 
y :- expand(x); 
if type(y, "4") ését 
n :— op(1, y); - y - n; 
expand (cos (1) xcos(y) - sin(n) ssin(y)) 
elif type(y, "r") then 
n :— op(i, y); 
if type(n, numeric) and n A 0 then expand(cos(-y)) 
elif type(n, integer) and 0 A n and n c 100 then 
y :— y/n; 
expand(2rcos((n - 1)ry)kcos(y) - cos((mn - 2)ry)) 
else cos(y) 
fi 
else cos(y) 
fi 


5  expand( cos(5rx) ); ítt an example 
16 cos(z)" — 20 cos(x)? -- 5 cos(r) 
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Az új eljárás kódja például így írható meg: 


[4 


5  "expand/cos" :— proc(x) 

5 local nyy; 

pe; y :— expand(x); 

s if type(y, "1") then 

s n :— op(1,y); 

5 y :- y-n; 

5 cos (n) tcos(y)-sin(n) tsin(y) 

ör elif type(y, "x") then 

z n :— op(1,y); 

b if type(n numeric) and n £ 0 then expand(cos(-y)) 
sz elif type(n,integer) and 0 A n and n £ 100 then 
5 y :— y/n; 

5 2rcos((n-1) ty) tcos(y) -cos ( (n-2) ry) 

s else cos(y) 

2 fi 

5 else cos(y) 

5 a vál 

pú 


end: 


Az új változat nem vezetne azonnali eredményre, mivel az expand még emlé- 
kezik a cos őz korábbi 16 cos" x — 20 cos? z 3-5 cosz kifejtésére. A forget-et a 
reinitialize-false opcióval kell meghívnunk, hogy az emlékezőtábla törlőd- 
jön, de ne olvassa be újra a rendszer a rutin eredeti változatát: 


5: readlib(forget)( expand, reinitialize — false ): 
5  expand( cos(5xx) ); 


2 cos(4 7) cos(r) — cos(3 2) 


Egyébként az expand remember opciója magyarázza meg azt is, hogy a követ- 
kező rekurziós lépésben 
5  expand("); ? 
16 cos(z)" — 16 cos(z)? 3-3 cos(z) — 2 cos(2 r) cos(z) 


miért nem fordulnak már elő cos(3T)-es tagok. A 14.9. alfejezetben fogjuk meg- 
vizsgálni, hogyan változtathatók meg a meglévő Maple rutinok. 


(2) A tangenst (és a kotangenst) tangenseket tartalmazó racionális kifejezésekké 
fejti ki a rendszer, viszont a megfelelő hiperbolikus függvényeket a. sinh-t és a 
cosh-t tartalmazó kifejezésekkel írja föl. 


5 tan(xty): " - expand("); 
.  tan(zr) ttan(ly) 
tanart ml e 1 — tan(x) tan(y) 
5  tanh(xty): " — expand("); 


sinh(r) cosh(y) -- cosh(z) sinh(y) 
cosh(r) cosh(y) - sinh(r) sinh(y) 


tanh(z -- y) — 
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A 14.9. alfejezetben megnézzük, hogyan definiálható át úgy a hiperbolikus tan- 
gens kifejtési rutinja, hogy az eredmény konzisztens legyen a megfelelő trigono- 
metrikus függvényre kapottal. 


e exp, ln 
s exp(xty): " - expand("); 
elzty) — ez ey 
5 1In(xxry): " - expand("); 
In(zy) — In(z) 4 In(y) 
5  In(Cxry): " - expand("); 
In(z9) — ylIn(r) 
5  1n(x/y): " - expand("); 
CM) -— In(x) — In(y) 
s exp(xr(ytz)): " -— expand("); 


elz(vt2)) — elzv) elz 2) 


Annak felelőssége, hogy egy transzformációs szabály érvényes-e vagy sem, a 
miénk. Például az In(ry) — ln z 4-Iny transzformációs szabály általában nem 
igaz (nézzük meg, mi történik, ha az z — y — —1 helyettesítést alkalmazzuk), a 
rendszer kérésünkre mégis bármikor hajlandó alkalmazni. 


e Gyökök és hatványok 
s  xö(ytz): " - expand("); 
r(íyt2) — xy? 


s  (xry)"z: " 5 expand("); 
(ryd — gy 
5  (-x)Try: " -— expand("); 


(ay — (—1)y ay 


s (x/y)"z: " - expand("); 
1 c4 z 1 4 
sin Eü ése 
ky? Gy 
s x"(y/3): " - expand("); 
z(/839) — (gy)1/3 
5  (x7(1/2))7(y/2): " -— expand("); 


(V/2)0/? v) — x(1/49) 
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Megismételjük, hogy az expand által végrehajtott transzformácók közül nem 
mindegyik száz százalékig biztonságos. Például az (ry)" ő x7y? transzfor- 


mácó sem érvényes általában, erről meggyőződhetünk az z — y — —1, z — 1/2 
helyettesítéssel. 
5  (xxry)öz: " - expand("); 
(gyz — 27? 
5 subs( ( x--i, y—-1, z-1/2), " ); 
1——-1 


A fölhasználónak kell meggyőződnie arról, hogy a transzformácó egy adott eset- 
ben érvényes-e. Még inkább résen kell lennünk, ha valamely egyszerűsítéseket 
is tartalmazó szimbolikus számítás után helyettesítünk be konkrét értékeket a 
végeredménybe. Nem biztos, hogy az ekkor beírt értékekre is korrekt volt a 
számolás közben korábban alkalmazott összes átalakítás. Efféle félreértések elég 
gyakran előfordulnak; a, jelenség neve specializációs probléma. 


e További kifejtések 
Az expand eljárás további egyszerűsítéseket is végez: szorzattá alakított ter- 
mészetes számok, a, faktoriális és a binomiális együtthatók, valamint a Gamma 
függvény kifejtését, végül mátrixszorzatok és mátrixhatványok egyszerűsítését: 
5  (nt1)!: " -— expand("); 
(n41)!—n!(n-- 1) 
5  binomial(n4ti1,kt1): " - expand("); 
4I1)bi ial(n, k 
Bizntrátatlr 4-1, fe Új ez JET TT Vnaráalltn 4) 
k41 
5  binomial(n-i,k-i) 1 binomial(n-1,k); 
binomial(n — 1, k — 1) 3 binomial(n — 1, k) 
s  expand("); 
k binomial(n, k) úr (n — k) binomial(n, k) 
n n 
5  normal("); 
binomial(n, k) 


5  ifactor(123456789): " - expand("); 
(3)2( 3803) ( 3607) — 123456789 


5 BesselJ(5,t): " - expand("); 


BesselJ(0, 7) 
jo áreekesesaktaátánű mezét 
18 


-- BesselJ(1, 7) 


BesselJ(5, t) — 384 19 


1 
sa tg EEESEENS t) 4.48 mise ő [2 


BesselJ(1, t) 
ge 
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5  collect( ", BesselJ ); it group terms 


BesselJ(5, 1) — 


2 
EE D BesselJ(1, 2) (2) BesselJ(0, 1) 
5 Zeta(50): " — expand("); 
C(50) — 
39604576419286371856998202 50 


285258771457546764463363635252374414183254365234375" 
5 dilog(1/x): " - expand("); 
dilog(-) sz áfllögígő e 5 hg)? 


s M :- array(1..4,1..4): 
5  det(M73): " - expand("); 


det(M?) — det(M)? 


v 


det (3rM): " - expand("); 
det(3 M) — 81det(M) 


Azt kell még elmondanunk, hogyan előzhető meg valamely kifejezésben szerep- 
lő adott nemracionális függvény kifejtése. Ez azért fontos, mert egy szimbolikus 
kifejezésben több matematikai függvény is előfordulhat, és nem biztos, hogy mi- 
degyiket ki szeretnénk fejteni. Például tegyük föl, hogy a sin (z--y) t-exp(r--y) 
kifejezésben csak az exponenciális függvényt akarjuk kifejteni. Ha csak egysze- 
rűen alkalmazzuk az expand-ot, a teljesen kifejtett alakot kapjuk. Csak akkor 
marad változatlan a trigonometrikus függvény, ha a hívás extra argumentuma- 
ként megadjuk a sin kulcsszót: 

5 expression :— sin(xty) t exp(xty); 

expression :— sin(x 4 y) 4 elrtv) 


5  expand( expression ); 
sin(r) cos(y) - cos(z) sin(y) - e? e" 


5  expand( expression, sin ); 
sin(z ty) 4 e7 e" 
Ez megegyezik a 7.1. alfejezetben leírt mechanizmussal: az expand extra 
argumentumai azt adják meg, hogy mit kell érintetlenül hagyni: 
5  expand( sin( x"sin(ytz) 1 w ), x"sin(ytz) ); 
sin(xőin(y-t-2) ) cos(w) - cos(zir(4r2) ) sin(w) 


5  expand( ( cos(2rx) t sin(2ry) )72, cos, sin ); 
cos(2 r)? 4 2 cos(2 m) sin(2 y) -- sin(2 y)? 
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Amennyiben az összes nemracionális függvény kifejtését el akarjuk kerülni, a 
frontend Maple eljárást használhatjuk: 
5  fÍrontend( expand, lexpression"72] ); 
sin(z 4 y)? 4 2 sin(x 4 y) elet 4 (elzt)? 


Ha előre tudjuk, hogy egy ideig nem lesz szükségünk bizonyos nemracionális 
függvények kifejtésére, a Maple-t az expandoff eljárással tájékoztathatjuk er- 
ről: 

5  expand( expandoff() ): ti enable library function 


5  expandoff( sin ): it turn off expansion of sin 
5 expression :— sin(ptg) t exp(pta); 


expression :— sin(p 4 g) tet) 


5  expand( expression ); 
sin(p tg) 4 e? eT 


Talán (még mindig) csodálkozik az Olvasó azon, hogy miért írtuk föl újra az 
előző kifejezést, melyben eredetileg z és y szerepelt, a p és a g új ismeret- 
lenekkel. Ha nem ezt tettük volna, akkor a Maple emlékezett volna, hogy az 
expand( expression ) parancsot már beírtuk egyszer, következésképpen az ex- 
pand eljárás emlékezőtáblájából elővette volna az előző parancs eredményét, 
ahelyett, hogy újra kiszámolta volna. Győződjünk meg erről az expandoff-fal 
ellentétes hatású expandon megadásával: 


5  expandon( sin ): it turn on expansion of sin 
5  expand( expression ); 


sin(ptg) Fe? e 
Mint korábban láttuk, a forget könyvtári függvényt is alkalmazhattuk volna az 
expand emlékezőtáblájának törlésére. 


A 14.8. alfejezetben részletesebben megvizsgáljuk, hogyan kontrollálhatjuk az 
egyszerűsítéseket. 


14.3. A combine eljárás 


Ha egy számítógépes algebrai rendszer lehetőséget kínál kifejezések kifejtésére, 
akkor elvárhatjuk olyan eljárás létezését is, amely ennek az ellenkezőjét végzi, 
azaz egyesít kifejezéseket. Ne feledjük, hogy a Maple gyakran a fölhasználóra 
bízza a végrehajtott átalakítások helyességének ellenőrzését. 

5  sgrt(x) x sgrt(y): " -— combine("); 

Vi/y-v/zy 

Ez az egyenlőség sem igaz minden z és y értékre. 

5  subs( (x--1i,y5-1b, " ); 

-1—-1 
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Másik példánk a E összegekre alkalmazott combine: 


s Sum( 1/(2xk), dr PRESAGLZ - 
s  Sum( 1/(2rk- 13. .infinity ); 


É40-Én) 


s value("); ítt correct error message 


Error, (in value) invalid cancellation of infinity 


5  combine("); $ combine sums without checking conditions 
BEL. 1) 
2k 2k-I1 
k-i1 
s value("); 
—ln(2) 
e Trigonometrikus és hiperbolikus függvények 
A combine a szinuszok és koszinuszok polinomjait a 


£ ; 2 1 
sinzsiny — 2 005(7—y)— 5 cos(r-y) 


j dsg £ RB 
sinzcosy — 25in(z—y)t 5 sin(r ty) 


1 4 
cos ycosy — 2005(z—y)-t 5 cos(z ty) 


szabályok ismételt alkalmazásával trigonometrikus polinomokká, alakítja. 
s  2xsin(x)kcos(x): " 5 combine("); 
2 sin(r) cos(z) — sin(2 2) 
s  sin(x)73: " - combine("); 


sin(x)? — -I sin(3 7) -- 1 sin() 


Hasonló szabályok érvényesek a hiperbolikus függvényekre is. 


1 1 
sinhrsinhny 5 cosh (z — y) — 7 cosh (2 -- y) 


1 h 1 
sinhzcoshy — § sinh (x — y) 4 5 sinh (z - y) 


1 Tb 
coshrcoshy — 5 cosh(z — y) 4 2 cosh(z 1 y) 


s  cosh(x)75: " - combine("); 


cosh(íz)" — JÉ — cosh(5 x) 18 cosh(3 7) 4 — 5 cosh(z ) 


Ha kizárólag a trigonometrikus függvényekre akarjuk lesz a combine-t, 
a trig opciót kell megadni. Hasonlítsuk össze az alábbi eredményeket: 
5  sgrt(cos(x)72) $ sgrt(sin(x) 72); 


Vcos(m)? vVsin(z)? 
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s  " - combine("); 
Vcos(r)? vVsin(m)? — Vcos(z)? — cos(z)t 
s "" - combine( "", "trig? ); 


V cos(r)? Vsin(r)? — 2 V2cos(23) h242—2cos(2 7) 


Eléggé furcsa módon a hiperbolikus függvények esetében is a trig kulcsszót kell 
használni a természetesnek tűnő trigh helyett: 


5 sgrt( cosh(x)72-i) 3 sgrt(cosh(x)72-r1); 


Vcosh(z)2 — 1 Vcosh(z)2 4-1 


5  " - combine( ", "trig? ); 
E 
vVcosh(r)? — 1 Vcosh(r)? 41 — 2 vV2cosh(2 1) —24V2cosh(2 T) -- 6 
e exp, ln 


A combine az exponenciális és a logaritmus függvényeket tartalmazó kifejezé- 
seket a következő szabályoknak megfelelően alakítja át: 


exp rexp y — exp(ízty) 

exp(r-tnliny) —  y"exp(rx) minden n € Z-re 

(exp z)" — exp(nzx) minden n € Z-re 

ylnz — ln(x9), ha y € 0 és yarg(r) — arg(z") 
InT7-4lny —a ln(ry), ha arg(r) 4 arg(y) — arg(r y). 


A logaritmusok esetében a Maple csak a bizonyíthatóan helyes kombinációkat 
hajtja végre: 
5  exp(x)k exp(y)7(2): " - combine("); 
e? (e)? — elzt?v) 


5  xkln(2) 4 3r1n(x)t4x1ln(5): " - combine("); 
xIn(2) 4 31n(z) -- 41n(5) — zIn(2) 4 31n(r) -- In(625) 
5  1n(x) 4 In(2) 4 In(y) - In(3): " - combine("); 


indo 4. tnlő) 4 inf) —datsj casa 4 n(z j 


5 exp( x - 2:1ln(y) ): " - combine("); 
elz—2ntw) — 
y 


Ha tényleg azt szeretnénk, hogy a Maple az In T-t In y 5 In(zry) kombinációt 
alkalmazza, ezt a combine hívásában megadott symbolic kulcsszóval kénysze- 
ríthetjük ki: 

5 expression :— ln(x) t 1/2x1n(y) - 1In(2); 


1 
expression :— In(r) 4 2 In(y) — In(2) 


5  combine( expression, in ); í by default, nothing done 


ln(z) -k 5 ny) — In(z) 
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5 expression: " - combine( ", ln, "symbolic? ); 
1 
In(z) -k 5 ln(y) — In(z) — mt) 


Valójában ennél nagyobb befolyásunk is van az egyszerűsítések végrehajtásá- 
ra. Például a combine alkalmazását egész együtthatós logaritmusos tagokra is 
korlátozhatjuk: 


5 expression: "!" - combine( ", ln, integer, "symbolic? ); 


In(z) - 5 ny) — In(z) — 5 ny) -k (5) 


5 expression: " - combine( ", ln, ?"positive?, ?"symbolic? ); 
f) 
In(T) -- 57) In(y) — In(2) — -In(2) -- In(z Vv) 


Az általános esetben jól alkalmazható az anything típus: 
5 expression :- m$rln(x) t niln(y) t 3r1n(z); 


expression :— mln(z) 4 n1]n(y) 4 31n(2) 


5 expression: " - combine( ", ln, "symbolic? ); 
mln(r) - nln(y) -- 31n(2) — min(z) 4 n1n(y) -- In(2?) 


5 expression: " - combine( ", ln, string, "symbolic? ); 
mln(z) 4 nln(y) 4 31]n(2) — 31n(2) 4 In(2" y") 
5 expression: " - combine( ", ln, anything, 


5 "symbolic? ); 


mln(z) - nln(y) 4 31n(2) — In(z"" y" 2?) 


Ha n típusától függetlenül el szeretnénk végeztetni a combine-nal az 
nin y — 1In(y") 
és az 
exp(z 3 ni]n y)  y" exp(z) 


transzformációkat, erre a következő lehetőségeink vannak: 
5  yrln(x): combine( ", ln, anything, "symbolic? ); 
In(z") 
5  exp( xtnikln(y) ): 


5  " zs map( combine, ", ln, anything, ?"symbolic? ); 
elztnin(y)) — el(ztin(y")) 


5  combine("); 
elztnin(y)) ús y" ez 
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e Gyökök és hatványok 
A combine hatványokra vonatkozó két legfontosabb szabálya: 


2yzz e) gytz 
(yz a gyz 


A combine Maple eljárásnak nem erőssége a kifejezésekben előforduló hatvá- 
nyok fölismerése. Például a 
5  combine( x7y $ xőz ); 


19 9? 


hatástalan, de 


5  combine( x7y $ xöz, "power? ); 
x(yt2) 


már megoldja a feladatot. A symbolic kulcsszóval olyan transzformációkat is 
kikényszeríthetünk, amelyek nem száz százalékig érvényesek: 
5  combine( (x7y)"z, "power? ); 
(z9)? 
s. § - combine( ", "power? , "symbolic? ); 
(zy)z — x(v2) 


Ebbe a csoportba tartozik a racionális kitevős hatványokra vonatkozó radical 
opció is. Ez főleg az zír/Dylr/d) . , (zmyn)/d) transzformációval kapcsola- 
tos, ahol x és y pozitív, m, n és d pedig olyan egészek, amelyekre Im] c d, In] c d, 
valamint d 5 1 teljesül. A kulcsszó elhagyásakor néha a combine túl messze 
megy a gyökökre vonatkozó egyszerűsítéseknél: 


s x7(1/4) x y7(1/4); 
r1/4 y1/4 


5:  combine( ", radical ); $ no simplification 
r1/4 y1/4 


5  combine("); $ too much simplification 
(egyy 


Nézzünk meg néhány további példát a gyökök és a hatványok egyszerűsítésére: 
s  (1/2)7m x (1/2)7n: " - combine( ", "power? ); 


a zség (—m— 
sz 2 — 9(—m-—n) 
"6 
5  combine( (x7y)"z, "power? ); 
(29) 


5  " - combine( ", "power? , "symbolic? ); 
(z9)z — z(v2) 
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s xy / x7(2/3): " - combine( ", ?power? ); 
Ty 22/8 
EGET x(472/3) 
s  27(1/3) x (xr1)7(1/3): " -— combine( ", radical ); 


21/3 (z -k 148 sat (2z -k 248 


e Egyéb kombinációk 

A combine alkalmazható még a négyzetgyök, az arctan és a polylog függvényt 
tartalmazó kifejezésekre, valamint formulák átrendezésével a negatív előjelek 
kiküszöbölésére: 


5 sgrt(x) $ sgagrt(y): " - combine("); 
Vsvy- Vay 
5 arctan(x) 4 arctan(1/x): " - combine("); 


arctan(m) -- arctan(—) TB signum(z) Tr 


5  arctan(1/2) 4 arctan(1/3): " - combine("); 


1 1 1 
arctan( 5 ) ae arctan( 7 ) apa 


5  combine( arctan(x) t arctanly) ); 
arctan(z) 4 arctan(y) 


s  " z combine( ", arctan, "symbolic? ); 


ETB a 
1—g 


combine("); 


arctan(r) 4 arctan(y) — arctan( 
5  polylog(2,z) t polylog(2,1-z): " — 
1 
polylog(2, 2) -- polylog(2, 1 — 2) — ő r? — In(2) In(1 — 2) 
s  -(-xt1)/x: " - combine("); 


-Gti 27-i 
mom 


144. A simplify eljárás 
A simplify a Maple általános célú egyszerűsítési rutinja. 


e Trigonometrikus és hiperbolikus függvények 

A simplify eljárás a következő szabályoknak megfelelően normalizálja az olyan 
racionális kifejezéseket, melyekben trigonometrikus és hiperbolikus függvények 
fordulnak elő: 


2 2 


sin: —  1—cosjg 
sinhhz —  cosh? r—1 
sing 
tani 7 
cos T 
sinh z 
tanhTt 


cosh xz 


348 14. Egyszerűsítés 


Pontosabban a sin és a sinh függvények egynél nagyobb kitevős hatványait ad- 
dig egyszerűsíti a fönti szabályok szerint, ameddig csak lehetséges. Az utolsó 
két szabályt csak akkor alkalmazza, ha más trigonometrikus függvények is elő- 
fordulnak: 
5  cosh(x)72 - sinh(x)72: " - simplify("); 
cosh(r)? — sinh(r)? — 1 
s  sinh(x)73: " - simplify("); 
sinh(z)? — —sinh(z) -- sinh(r) cosh(r)? 
s 2isin(x) / ( 18 tan(x)72 ): " - simplify("); 
sin(T) 


Tr raalji 2 sin(x) cos(z)? 


Ha a sin? z  1— cos? z szabálynál a cos? z — 1 — sin? T-et jobban kedvel- 
jük, akkor mellékföltételekre vonatkozó egyszerűsítést kell végeznünk. Erről a 
14.7. alfejezetben lesz részletesebben szó. 
5  sin(x)73 4 cos(x)"3; 
sin(r)? 4 cos(z)? 
5: simplify("); 
cos(m)? - sin(x) — sin(r) cos(x)? 
5: simplify( "", (cos(x)"2tsin(x) 2-1), [sin(x) ,cos(x)] ); 
cos(r)? 4 sin(r) — sin(r) cos(z)? 
s  simplify( """, (cos(x)"2tsin(x)"72-i), [cos(x),sin(x)] ); 
sin(z)? 4 cos(z) — cos(z) sin(z)? 
Ha csak a trigonometrikus függvényekre vonatkozó egyszerűsítést kívánunk, ad- 
juk meg a trig kulcsszót: 
5 47(1/2) - sin(x)72 - 1; 


V4 — sin(r)2? — 1 


s " z simplify( ", "trig? ); 
V4 — sin(r)2—1— V/4— 2 4- cos(r)? 
bt nn simplify(" ds 


V4 — sin(x)? — 1 — cos(x)? 
Megjegyezzük még, hogy a normalizálás a trigonometrikus egyszerűsítés előtt 
történik. Ennek következményeit mutatják az alábbi sorok: 
5 ( sin(x)7"3 - 1) / ( sin(x)7"2- 1); 
sin(m)? —1 
sin(x)2 —1 
s simplify( ", "trig? ); 
—sin(x) — 2 -t cos(z)? 
sin(r) 41 
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5 normal(""); 
sin(T)2 -- sin(z) 41 
sin(r) 1 


s map( simplify, """, "trig? ); 
—1-t sin(z) — sin(r) cos(x)? 
cos(r)? 


e Inverz trigonometrikus és hiperbolikus függvények 


A simplify figyelembe veszi az arctrig(trig) — x transzformációt is, ahol 
trig — sin, cos, tan, sinh, cosh, tanh stb., amennyiben ez alkalmazható. Iovábbá 
a combine-hoz hasonlóan a simplify is , ismer" a tangens inverzére vonatkozó 
bizonyos transzformációkat: 


s simplify( arcsin( sin(x) ) ); 
arcsin(sin(z)) 
5 simplify( ", assume-RealRange(-Pi/2,Pi/2) ); 
x 
s  simplify( "", "arctrig?, "symbolic? ); 
x 
s  arctan(x) t arctan(1/x): " -— simplify("); 


1 
arctan(m) arctan() s 5 csgn(z) T 


e exp, ln 
Az exponenciális függvényre a simplify majdnem ugyanúgy működik, mint az 


expand, az exp Texp y — expíz -- y) és az Si ; exp(—z) szabályok 
Xx 
alkalmazásától eltekintve. 


5  exp(x) $ exp(y): " — simplify("; 
ez ey — elzty) 


s  expand( rhs(") ); 


e? eg 


s exp(x)72: " — simplify("); 
(ey? éri e z) 


s 1/exp(x): " — simplify("); 


1! (-) 


ez 
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A természetes alapú logaritmus esetében a simplify először faktorizálja az ar- 
gumentumot, majd a következő transzformációs szabályokat alkalmazza: 


ln(z9) —  yln(z) pozitív z-re és valós y-ra, 
In(zYy) — yln(—T) negatív Tz-re és páros egész y-ra, 
lIn(zY) — yln(z) negatív r-re és páratlan egész y-ra, 
In(zY) c yln(z) páratlan egész T-re, 
In(zY) c a n(z?) páros egész 2-re, 
In(ry) —  ln(z)- ln(y) pozitív r-re, 
In(ry) — 9 1ln(—r) 7 ln(—y) negatív z-re, 
In(exp(r)) —  zvalós r-re, 
In(LambertW(z)) —  In(z) 4 LambertW(z) pozitív T-re. 


Az In(ry) — 1n(z) - In(y) és az In(z9) ő y In(z) egyszerűsítések mindig 
kikényszeríthetők az 1In és a symbolic kulcsszavak egyidejű használatával vagy 
további föltételekkel: 

2. gimnpliryű 1a(x 2), án 3 


In(z?) 
5 " - simplify( ", ln, "symbolic? ); 
In(x?) — 21n(x) 
s." - simplify( "", ln, assume-positive ); 
j In(z?) — 21n(r) 
5. "4 — simplifíy( """, ln, assume-negative ); 


In(z?) — 21n(—2) 


e Gyökök és hatványok 

A simplify a legtöbb hatványra ugyanazt végzi, mint az expand, azzal a fontos 
kivétellel, hogy fölhasználja az 19? — ryYt? szabályt, és amint az alábbiakból 
ki fog derülni, egyszerűsíti a törtkitevős hatványokat is. Másik fontos eltérés az 
expand-tól, amit az alábbi példákból is észrevehet az Olvasó, hogy a simplify 
nagyobb gondot fordít az alkalmazott transzformációk érvényességére: 

5 xy kt xöz: " — simplify("); 
27 x7 — g(yt2) 


5 expand( rhs(") ); 


09 azt 
5 simplify( (x7ry)"7z ); 
(2) 
s  " - simplify( ", "power? , "symbolic? ); 


(zy)z — x(y2) 


: simplify( (x/y)7z ); 


él 
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s  " z simplify( ", "power? , "symbolic? ); 
811) 
Gyseetyr? 
y 


s simplify( (-x)"y); 


(—2)" 
s." - simplify( ", "power? , ?"symbolic? ); 
(2) — (—19 zt 
5  (x7(1/2))7(y/2): " - simplify("); 


(V2)029) — z(/49) 


. simplify( (xxry)7z ); 
(my)? 
s  " - simplify( ", "power? , ?"symbolic? ); 
(gy) — ző yő 
Törtkitevős hatványokra a simplify és az expand nagyon különbözik. Ebben 
az esetben a simplify ténylegesen a radsimp (radical simplification) eljárásra 
támaszkodik. A radsimp eljárást olyan speciális kifejezések egyszerűsítésére 
szánják, amelyekben négyzetgyökök és más törtkitevős hatványok fordulnak elő. 
Az ilyen egyszerűsítések gyakran bonyolultak és időigényesek. Ha a simplify 
hívásában előfordul a radical kulcsszó, a Maple tudja, hogy csupán ilyen típusú 
egyszerűsítéseket kértünk: 
5 (2/27)7(1/3)9: " -— simplify("); 
1 1 
Kézdi 91/8 972/8 E 21/8 
7 3 


Figyeljük meg a különbséget: 
s (2/2797C(1/3): " - simplify( ", "power? ); 
1 01/39572/3 — l 91/3972/8 
— - —2/89 
27 ZT 2T 27 fő 


s TAZDTYTA/GYI Té simpiityi "7; radicat 93 
1 21/8 272/8 — 1 91/8 
27 zat s — B 2 
íg a ds - (1-y72)7C(1/2): " - simplify("); 


gy? 41-y?sz—-41-gtyő 
s dosimáláljotló (3/2) - isekös 297(14/295 
(1 — sin(x)2)/2 — 1 — sin(x)2 


,  simplify( ", radical ); 
1 — sin(7)2 sin(m)? 
s. "oz gimplify( "" ); 
(1 — sin(x)2)9/2 — V1 — sin(r)2 — 
—csgn(cos(z)) cos(z) -- csgn(cos(r)) cos(r)? 
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A gyökök egyszerűsítését gondosabban végzi a Maple: 
s (xT4)7(5/4): " - simplify("); 
(z8)ő/4 en rt (z9)1/4 


5 (x7r4)7(5/4): " - simpliíy( ", radical, assume-posiítive ); 


(a) 574 — 75 


e Egyéb egyszerűsítések 


, A Maple ismer további függvényekre (a Gamma, a, Riemann (, a hipergeomet- 
rikus stb.) alkalmazható egyszerűsítési szabályokat is. Két példa: 


5 GAMMA (n11/2) /GAMMA (n-1/2): " — simplify("); 
1 
I(n 4 -) 1 
GXANANÉNB 
fins ő5 2 


5  readlib( hypergeom ) : 
5  hypergeom([-1,-3/2] , [1/21 ,272/t72) ; 


8 1. 2? 
hypergeom([757: —1], [55 z) 


5 simplify("); 
tt 132? 
2 
Ha nem akarjuk az összes rendelkezésre álló egyszerűsítést alkalmazni, akkor a 
simplify eljárás hívásakor explicit módon meg kell neveznünk azokat a függvé- 
nyeket, amelyekre az egyszerűsítést végre kell hajtani (mint a fenti példában, 


ahol a radical kulcsszót használtuk). Figyeljük meg, hogy ez éppen ellenkezője 
annak, ahogy a függvények kifejtését elnyomhattuk: 


5  exp(x)trexp(y) t cos(x)72 t sin(x)72; 


e? ey 4 cos(r)? - sin(g)? 


5. simplifyt"9a 
elztv) 41 


5  simplify( "", exp ); 
elet 4 cos(z)? -- sin(r)? 


s  simplify( """, otrig? ); 
e7e"t1 


14.5. A convert eljárás 


14.5. A convert eljárás 


A (hiperbolikus) trigonometrikus függvényeket és ezek inverzeit tartalmazó ki- 
fejezések a convert eljárással hozhatók explicit módon különféle formákra. Né- 


hány példa: 


e (Hiperbolikus) trigonometrikus függvények exponenciális alakra, konvertálása 


és ennek fordítottja: 


s cos(x): " -— convert( ", kés ) 


cos(T) — 7 1 el12) ts STT 


5  map( convert, ", "trig? ai 
1 


cos(g) — 5 cos(z) 2 Ism) TT 


s  simplify("); 
cos(r) — cos(r) 


s  cosh(x): " — convert( ", exp ); 
1 1 1 
cosh(r) — 2 ea § ak 
5 map( convert, ", "trig? va 
1 1 


1 

h — cosh h 
kása út c ján ez) 45 SRE 2 cosh(x) -- sinh(r) 

s  simplify("); 

cosh(r) — cosh(z) 

Figyeljük meg a különbséget az 

s exp(xtlry): " - convert( ", "trig? ); 

elet v) — (cosh(g) 4 sinh(r)) (cos(y) -- I sin(y)) 

és az 

s exp(xtlry): " — evalc("); 


elet] vi — ez cos(y) 4 I e" sin(y) 


parancs eredménye között. 


e Inverz (hiperbolikus) trigonometrikus függvények konvertálása logaritmusos 


kifejezésekre: 
s arcsin(x): " — convert( ", ln ); 
arcsin(m) — —Iln(V1— 232417) 
s arcsinh(x): " -— convert( ", 1n ); 


arcsinh(z) — In(z - V 12 3-1) 
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A (hiperbolikus) trigonometrikus függvények és inverzeik előző konverziói egy 
lépésben is végrehajthatók az expln kulcsszó alkalmazásával. 


e TIrigonometrikus függvények konvertálása csak a tangens függvényt tartalmazó 
formára: 


5  sin(x): " - convert( ", tan ); 


s  cos(x): " — convert( ", tan ); 


5  sin(x)/cos(x): " -— convert( ", tan ); 
sin(z) 
cos(12) 


-— tan(z) 


e (Hiperbolikus) trigonometrikus függvények konvertálása csak a (hiperbolikus) 
szinusz és koszinusz függvényt tartalmazó formára: 


5  tan(x): " - convert( ", ?sincos? ); 
sin(z 
tan(T) — ils 
cos(r) 
s: tanhixji "s egnvertt 1, "sáncot 1; 
sinh(r) 
tanhín) s 
ké. cosh(r) 


e Irigonometrikus függvények konverziója csak szinuszt és koszinuszt tartal- 
mazó alakra, valamint hiperbolikus függvények konverziója csak exponenciális 
függvényeket tartalmazó formára: 


5 tan(x): " - convert( ", ?expsincos? ); 
sin(x 
tan(z) — s) 
cos(m) 
5 tanh(x): " - convert( ", ?expsincos? ); 
(e7)2—1 
tanh(r) tesi (e)2 FI 


e Ezen kívül a Maple-ben elvégezhető a faktoriálisok és a binomiális együtthatók 
konvertálása Gamma függvényekké és fordítva: 
s ny]: " -— convert( ", GAMMA ); 
n1-I(n-7 1) 
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5 rhs(") - convert( rhs("), "factorial? ); 


(n- 1)! 
T 9 4 HEG 
pt ni 1 
s 1hs(") -— expand( rhs(") ); 
T(nt1)—n! 
5  binomial(n,k): " -— convert( ", etés bi 
E ő he I(n7- 1) 
binomial(n, k) — TEEDTN-KED 

5  binomial(n ,k): " - convert( ", factoriai Jó 

binomial(n, k) I ki(m— kp)! 
5 rhs(") — convert( rheC?) , binomial ); 

kin — ki I binomial(n, k) 
5.  multinomial(n,a,b,c,d): " - convert( ", GAMMA ) : 


I(n 7-1) 
(G FEDTOFDTCTDIJTD) 


multinomial(n, a, b, c, d) — 8 


14.6.  Irigonometrikus egyszerűsítés 


A trigonometrikus kifejezések helyettesítésének speciális szerepe van a Maple- 
ben. A számítógépes algebrai rendszer egy különleges szolgáltatást is nyújt: 
egyszerű kifejezések esetében képes velük ekvivalens kifejezéseket javasolni. A 
megfelelő Maple eljárás neve trigsubs, ezt a könyvtárból be kell tölteni. Néhány 
példa: 

5  readlibítrigsubs): t load library function 

5  trigsubs( sin(2xx) ); 


1 1 tan(m) 
csc(23)" csc(22)" 1--tan(z)27 


[sin(2 2), sin(2 2), 2sin(z) cos(r), 
1 
mg T (eső) 5: er sea] 
5  convert( trigsubs( tan(x)72 ), ?set? ); 
1 
t tan(5 m) 1 cot(2 ny) 4 


(1 — tan(5 a)2)2 cot(z) (cot(5 93—1je (cot(5 ks tan(s n))2 


) 


(ell 3) . el-I2))2 z § 
— (el5) pe(-T2))2? tan(z)?, sec(r)? — 1, 


(1 — cos(2 ))? ) 


sin? sin(22) 
cos(m)2" (1-- cos(2 x))2" 


sin(2 x)? 
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5 trigsubs( sin(x) 1 sin(y) ); 
ME 1 1 1 
2sin( zt 5 y)cos(—5 zt 5] 


Csodákat azért ne várjunk: a Maple trigsubs eljárása nem ismer föl sok ekviva- 
lenciát. Amikor trigonometrikus kifejezések helyettesítésére van szükség, a subs 
helyettesítő eljárás alternatívájaként használhatjuk a trigsubs-ot is. Ez azért 
előnyős, mert az első argumentumként megadott trigonometrikus egyenlőséget 
le is ellenőrzi a tudásbázis alapján. 


5 trigsubs( cos(2krx) - cos(x)72 - sin(x)72, 
5 cos(2xx) 4 sin(x)72 4 1); 


cos(r)? 4-1 
A trigonometrikus egyszerűsítés elég fáradságos dolog, mivel számolás közben 
szükségessé válhat a különböző reprezentációk közti konverzió. Erre egyszerű 
példaként szolgál a tan(37) kifejtése: 
5 expand( tan(3rx) ); 
3tan(x) — tan(x)? 
1— 3tan(x)? 
Próbáljuk meg visszanyerni az eredeti kifejezést. Azt várnánk, hogy ehhez ele- 
gendő a következő parancs: 
5  combine("):; 
—3tan(m) -- tan(r)? 
—1- 3tan(x)? 
Sajnos, nem. Először szinuszok és koszinuszok segítségével kell fölírni a, kifeje- 
zést: 
s  convert( ", ?!sincos? ); 
sin(z) , sin(r)? 
cos(m)  cos(r)? 
sin(z)? 
cos(r)? 


Túl optimisták vagyunk, ha azt hisszük, hogy most már jöhet a combine: 
s  combine("); 
3sin(4 2) 4 sin(6 2) 4 3sin(2 7) 
3cos(21) 1-1 3cos(4 2) -- cos(6 T) 
Előbb még egyszerűsíteni kell a szinuszokból és koszinuszokból álló racionális 
kifejezést: 


5 normal(""); 
sin(x) (—3 cos(x)? -- sin(z)?2) 
) 


(— 
cos(z) (—cos(z)? - 3 sin(r)2) 


5 combine("); 
sin(3 7) 
cos(3 2) 
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Végül az eredményt tangenssé kell konvertálni: 
5  convert( ", tan ); 
tan(3 7) 
A Maple V Release 4 trigonometrikus egyszerűsítések közben figyelembe veszi 
a változók tulajdonságaira vonatkozó ismereteit is. Például 
5 cos( x t ngPi ); 
cos(r na) 


5  expand("); 
cos(z) cos(n Tr) — sin(z) sin(n 7) 
5. assume( n, integer ); 
b. u" 3 
cos(r) (—1)7 

Ezt a részt egy olyan példával zárjuk, amelyből kitűnik, mennyire nehézkes 
lehet a trigonometrikus egyszerűsítések végrehajtása a gyakorlatban. A feladat 
a következő összeg kiszámítása: 


5 Sum( cos( omegakt - alpha - nibeta ), n--N..N ); 
N 


pa cos(wt—a— nb) 


n--N 
s value("): 


a terjedelmes eredményt nem írattuk ki; először egyszerűsítsünk. 
5 simplify("): 


Az output még nem sokkal rövidebb az előzőnél, ezért nem jelenítettük meg. 
De annyit már nyertünk vele, hogy a combine-t most alkalmazva már egysze- 
rűsödik az eredmény: 


5  combine("); 


5(-sin(-a— N 8 4 wt) 4 sin(-a 4 NB 4-2) 
- sin(N B 7 B 4 wt — a) — sin(-N B — B 4 wt — a))/sin(8) 


Mivel wt — a minden tagban előfordul, érdemes helyettesíteni: 
5  algsubs( omegasrt-alpha — zeta, " ); 


5(-sin(-N 8-4) sin(N 8 46) Hsin(VA-4 8-0) 
— sin(-N 8 — 8 1- ))/sin(8) 
Kifejtjük és újra egyszerűsítjük a kifejezést: 
: simplify( expand(") ); 
cos(C) (sin(N 8) -- sin(N 8) cos(8) -- cos(N B) sin(8)) 
sin(8) 
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Ismét egyesítjük a trigonometrikus tagokat, de cos (-t még változatlanul hagy- 
juk. Ezt így is elérhetjük: 
5 map( combine, " ); 
cos(() (sin(N 8) -- sin(N 8 - 8)) 
sin(8) 


Az eredményül kapott formula már nem is olyan csúf. Nézzük meg, hogy a 
szinusz addíciós képlete segítene-e. Átmenetileg hagyjuk el cos €-t: 


5  coeff( ", cos(zeta) ); 
sin(N 8) -- sin(N 8 -- 8) 
sin(ő) 


Hívjuk segítségül a trigsubs-ot: 
5  readlibítrigsubs): 
5  subs( szbetatNibeta, trigsubs( subs( 
5-0 betatNxbeta-s, numer("") ) ) ); 


[2 sin(N B -k 58) c0s(- b)] 


5  trigsubs( denom(""") ); 


1 
1 1 1 1 tan(5 b) 
sin(ő), sin(8), 2sin(- 8) cos(z 8), —— —7ar2—— TT, 
VA 2" "7" csc(8)" csc(8) 1-4 tan(5 8)? 


1 
-5T(et9) zgke a tŐK 


A harmadik helyettesítési opció a legígéretesebb, mivel ekkor esik ki a legtöbb 
tag: 


sei opC(i,"") / op(3,"); 
1 
sin(N B e 2 B) 
si! 
sin( 5 B) 
A keresett összeg tehát 


5  subs( zeta-omegart-alpha, cos(zeta)r" ); 


cos(wt — a) sin(N B -k 5) 
sin(5 B) 


Szép eredmény, de elég hosszú út vezetett idáig. 
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14.7.  Mellékföltételekre vonatkozó egyszerűsítés 


Tekintsük az 1991. szeptember 6-i Holland Matematikai Olimpia következő 
feladatát. Legyenek a, b és c olyan valós számok, amelyekre 


atbic—3, a2109reO-—9 at 1b re —24 


teljesül. Számoljuk ki a! - b! - c! értékét. 
A Maple megoldása a következő: 
5 siderels :— (í atbtc-3, a724b72tc72-9, a734b734c73-24 ); 
siderels :— (a? 409 -e —24,atbtc—3,a41Wtce —9]) 


5 simplify( a74tb74tc74, siderels ); 
69 


Annak megértéséhez, hogy a Maple hogyan számolta ki ezt az eredményt, némi 
fogalmunk kell, hogy legyen a Gröbner bázisokról és használatukról. Ebben a 
részben csak a Gröbner bázisok alapgondolatát ismertetjük; , matematikaibb?" 
jellegű bevezetést találhatunk a [13, 26, 27, 51]-ben. 

Az első lépésben a Maple veszi a mellékföltételeket megadó egyenletekben 
szereplő polinomok halmazát: 


5  polys :- map( lhs - rhs, siderels ); 
polys :— (a 444 e — 24, a-hb4ce— 3, a? b 12 —9]) 


Ezután kiszámolja a valódi lexikografikus rendezésre vonatkozó minimális, fő- 
polinomokból álló Gröbner bázist. Kicsit leegyszerűsítve a Gröbner bázis po- 
linomok olyan halmaza, amely ugyanazt az ideált generálja, mint a kiindulási 
polinomok halmaza, és még bizonyos extra tulajdonságokkal is bír. A bázist 
kiszámoló Maple csomag neve grobner. A munkát elvégző csomagbeli eljárás 
neve gbasis: 

5 with( grobner ): t load the Groebner basis package 

5 G :— gbasis( polys, la,b,c], ?"plex? ); 

G :— [a1btc—3, 4242 —3b—3etbcec,1—36€4ő) 

A Gröbner bázis függ az a, b, és c monomiálisainak rendezésétől. Ittaza-b- c 


valódi lexikografikus rendezést használtuk. (V.ö. 5.2.) 


A Gröbner bázisok jellemzése. Polinomok egy véges G halmaza Gröbner 
bázis, ha a G által generált ideál minden eleme nullára redukálható a 3- rende- 
zésre vonatkozó , redukciós szabályok" alkalmazásával. 


A , redukció" jelentését legkönnyebben egy példával tudjuk megmagyarázni. 
Az első polinomból az a-ra vonatkozó redukcióval 


a ÓÓ 3—b-—c 
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A második polinomnál a , legkönnyebb" valódi lexikografikus rendezésre vonat- 
kozó redukció a , legnagyobb" monomiális eliminálása: 


b" —3 —bet3b—é 1 3c 


(be a jobboldalon előforduló legnagyobb monomiális). A harmadik polinom 
, legkönnyebb" redukciója a legmagasabb fokszámú tag kiküszöbölése: 


6 — 36 —1. 


Ha ezeket a redukciókat addig alkalmazzuk egy polinomra, ameddig csak lehet- 
séges, megkapjuk az illető polinom normálformáját. A G Gröbner bázist úgy is 
jellemezhetjük, hogy a G által generált ideál minden elemének a nulla. az egyér- 
telműen meghatározott normálformája. Más szavakkal, a G Gröbner bázisban 
teljesül az, hogy a G által generált ideál tetszőleges polinomjára a redukciós 
szabályokat alkalmazva nullát kapunk eredményül. 

A G Gröbner bázist minimálisnak és monikusnak nevezzük, ha G minden g 
elemének főegyütthatója 1 és g a G/g-re nézve normálformájú. Minimális mo- 
nikus Gröbner bázisra nézve bármely polinom normálformája egyértelmű. Ez 
,kanonikus alak" abban az értelemben, hogy két polinom ekvivalens, ha, normál- 
formájuk pontosan ugyanaz a, polinom. 

A Maple a normalf eljárást biztosítja a normálforma kiszámítására. Határoz- 
zuk meg at tb! c! normálformáját a kiszámított Gröbner bázisra vonatkozóan: 

5  normalf( a74tb74-rc74, G, [a,b,c], "plex? ); 

69 


Tehát a polinomiális mellékföltételekre vonatkozó egyszerűsítés nem más, mint 
a polinom normálformájának meghatározása a mellékföltételek által generált 
ideál valamely rendezéshez tartozó minimális redukált Gröbner bázisára, vonat- 
kozóan. Racionális kifejezések esetén a polinomiális mellékföltételekre vonatko- 
zó egyszerűsítés a normalizált hányados számlálójára és nevezőjére külön-külön 
történik. Amennyiben a változókat nem specifikáltuk, vagy halmazként adtuk 
meg a határozatlanokat, a rendszer a teljes fokszám szerinti rendezést veszi. Ha 
a változókat listaként definiáltuk, az ezáltal indukált valódi lexikografikus ren- 
dezést veszi a rendszer. (Ezen fogalmak definícióit az 5.2. alfejezetben találjuk.) 
A mellékföltételekre vonatkozó egyszerűsítés végeredményének kontrollálására 
gyakran bölcs dolog a változókat a, szükséges sorrendben megadni. 
-  BÍMpitÍS 3 ty 3, (e 2t4§2: 1; gl da 
y ezé ösze xy 
2 sbapiiáyt 43 by 3, TE 2 ky a sot EYyad d; 
3—-yz thy 
5 simplify( (x73-y73) / (x-3ry73), (x72 4 y7r2— 1) ); 
33 4yr —y 
33—y: ty 
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Hasonlítsuk össze az alábbi egyszerűsítéssel: 
5  siderel :— ( cos(x)72 4 sin(x)72—- 1); 
siderel : (cos(x)? 4 sin(r)? — 1) 


s  egn :— cos(x)73 8 sin(x)"73; 
egn :— cos(m)? - sin(m)? 


5  simplify( egn, siderel, [cos(x),sin(x)1 ); 
sin(x)? -- cos(gx) — cos(x) sin(x)? 


- simplify( egn, siderel, [sin(x),cos(x)1 ); 
cos(m)? -- sin(x) — sin(x) cos(r)? 
A példából világosan kitűnik, hogyan alakítja át az általánosított racionális 
kifejezéseket a mellékföltételekkel meghatározott egyszerűsítés. 


A. mellékföltételekre vonatkozó egyszerűsítés rendkívül hatékony eszköz. Te- 
kintsük például a következő f polinom egyszerűsítését: 


3 Éz 


ya5  3yzta3yaőr8yrt a 3y 22 —6yr a 3yat 
— 16y2 2? 4 16ya? —y? 33y 21 23yz? 4 2 4 8y? 
— 16yz 181? — 26y 1 26 7-4 40 


s simplify(f, ( u—- x2xy- y txt 4), (x,y); 
u —447 4104 
Papírral és ceruzával nehéz az ilyen polinom-kompozíciókat megtalálni és ellen- 
őrizni. 
Mivel a Gröbner bázissal kapcsolatos számítások idő- és memóriaigénye óriá- 


sira nőhet, sokszor a match eljárás alkalmazása bizonyul jobb alternatívának, 
ez ugyanis polinomiális idejű algebrai mintaillesztéses algoritmust használ: 


5; guess :— aru73 t bkuT2 t ckuüu § d: 
5 u :— x2yy - y txt 4: 
5 match( f-guess, x, ?"parms? ); 


true 


5  parms; 


(d-0,a—-1,y—-y c—10,b— —4]) 


5  subs( parms, eval(guess,1) ); 
u7—44-4104 
Ennek kapcsán megemlítjük, hogy a Maple-ben polinomok kompozícióit a com- 
poly eljárással határozhatjuk meg. A fönti f függvényre a compoly a. 
5  compoly(f); 
40-426y-t8y ty ,y—-yrz—yiz 
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kompozíciót adja. Ezt úgy kell érteni, hogy f — 40 -k 26v 1 8v? - v3, ahol 
v-yr? —y- or. Amint látható, a polinomok kompozíciója nem egyértelmű. 
Másik példaként tekintsük a következő egyváltozós polinomot. 
5 Í :-— x"6 41 6kx74 41 x73 1 9rxT2 1 3rkx - 5; 
ff: a1"461t423331922137—5 
5  compoly(f); 
37-5312,1—3142? 
Azaz f ago h kompozícióval állítható elő, ahol g — 1? 4-1 — 5 és h — 33 4 37. 
Ellenőriztessük a Maple-lel az eredményt: 
s  subs( "[2], "[1] ); 
832142 -—-533721 2? 


5 expand( " - f ); 
0 


Megjegyezzük, hogy ez a kompozíció sem egyértelmű: f fölírható g o A alakban 
ag—22—2 ésa h— 3? 4374 3 polinomokkal is. 

Az egyváltozós polinomokra alkalmazott algoritmus a, (10, 92]-ben található 
meg. Az általánosabb esetet, egyváltozós racionális függvény előállítását racio- 
nális függvények kompozíciójaként, a [93, 94, 201] tárgyalja. 


2 


14.83. Az egyszerűsítés irányítása 


Az egyszerűsítés folyamatát alapvetően három módon befolyásolhatjuk: 


e föltételek megadásával, 
e az érvényesség vizsgálatának elhagyásával, 


s az alkalmazható transzformációk megszorításával függvények bizonyos osz- 
tályára. 


A fejezet során már láttunk ilyen jellegű példákat. A mostani részben ezeket 
összegezzük, és még további példákat is hozunk. 

e Egyszerűsítés föltételekkel 

A simplify( expression, assume — property ) parancs az egpression kifejezést 
úgy egyszerűsíti, hogy föltételezi, hogy a benne szereplő változókra a property- 
ben megadott föltételek teljesülnek. Így olyan egyszerűsítések is végrehajthatók, 
amelyeknek egyébként semmilyen vagy csak részleges hatása lenne. Például 


5  expr :— sgrt((x-1)72); 

egxpr : V(xz — 1)? 
5  simplify( expr ); 

csgn(z —1)(r— 1) 
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5 simplify( expr, assume-real ); 
signum(z — 1) (z — 1) 
5  simplify( expr, assume-RealRange(1,infinity) ); 
z—1 
5  simplify( expr, assume-RealRange(-infinity,1) ); 
1—2 
Figyeljük meg, hogy a real föltétel nem azt jelenti, hogy a számítások tarto- 
mányát a valós számok halmazára szorítottuk meg, hanem csupán azt, hogy a 
változókról tettük föl, hogy valósak. Ez magyarázza azt is, hogy 
5 simplify( (-i)7(1/3), assume-real ); 
£ EN! 
-4-Iv3 
2ta1v3 
miért ad még mindig komplex eredményt, holott ehelyett talán a —1-et vártuk 
volna. 
Ha a változókra az assume-mal explicit kikötéseket teszünk, a Maple ezt az 
információt is hasznosítja (ha tudja) az egyszerűsítés során: 
5 1n( exp(x) ); 
1lIn(e7) 


5  assume( x, real ): 
5 In( exp(x) ); 


5 assume( x2?0 ): 
5 (x3ky)7(1/3): " - simplify(9); 
(273 y 8 S 27 y/8 
5  assume( y, RealRange(-Pi/2,Pi/2) ): 
5 arcsin(sin(y)): " -— simplify("); 
arcsin(sin(y )) —yő 
e Az érvényesség vizsgálatának elhagyása 
Az egyszerűsítést végző eljárások hívásakor megadott symbolic kulcsszó azt je- 
lenti, hogy bár a transzformáció helyessége nem bizonyítható, azért végre kell 
hajtani. A delay kulcsszó ellentétes hatású: ha nem látható be a transzformá- 
ció érvényessége, akkor kiértékeletlenül visszadja a kifejezést. Ebben az esetben 
lényeges különbség van a kiértékeletlenül visszadott kifejezés és az előjelfügg- 
vénnyel kódolt válasz között. Ezt mutatja az alábbi példa: 
5  expr :— (x72)7(1/2); $ no automatic simplification 


expr :— Va? 
5  simplify( expr, ?"symbolic? ); ít simplify regardless 
z 


5. simplify( expr, "delay? ); ft valid simplify 


Va2 
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5 simplify( expr ); t simplify with sign functions 
-csgn(r) z 
e Az egyszerűsítések megszorítása 
Nézzük a következő Maple fejtörőt: 
5  (47x-1)/(27x-1); 


47 —-1 

22—-1 
s  simplify("); 

47 —-1 

27—1 
5 normal("); 

47—1 

27—-1 
5  combine( ", "power? ); 

47—-1 

27 —-1 


Egyik egyszerűsítő eljárás sem tudja fölismerni, hogy 47 valójában (27)2, és 
nem találja meg a 27 4 1 egyszerűsített alakot. Ehhez először hatványokból 
exponenciális- és logaritmusfüggvényekké kell alakítani a kifejezést, majd speci- 
ális módon kell egyszerűsíteni: 
s  convert( ", exp ); 
elzin(4)) 1 
elzin(2)) 1 
5. simplify( ", ln ); 
e2zin(2)) 1 
elzIn(2)) 1 
s simplify( ", exp ); 
222). 1 
27 -1 
5  normal( ", "expanded? ); 
27 3-1 
A combine, simplify és a convert eljárások hívásakor második argumentu- 
mot megadva az egyszerűsítéseket egy bizonyos matematikai függvényre vagy 
kifejezések bizonyos osztályaira korlátozhatjuk. Az expand eljárás esetében a 
helyzet pontosan ennek ellenkezője: az extra argumentum itt arról tájékoztatja 


a Maple-t, hogy mely függvényeket vagy kifejezéseket kell változatlanul hagynia 
az egyszerűsítés közben: 


5  expr :— In(2xx)tsin(2xx); 


expr :— In(27) 4 sin(2 2) 
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5  expand( expr, ln ); 
In(2 7) 4- 2sin(z) cos(r) 


5  expand(expr, sin ); 
In(2) 3- In(z) -- sin(2 7) 


5, expr :— expr"72; 
expr :— (In(2 3) -- sin(2 x))? 


5  expand( expr, ln, sin ); 
In(2 7)? 4 21n(2 7) sin(2 z) - sin(2 7)? 
Ha könnyebb megmondani, hogy mely függvényeket szabad kifejteni, mint azt, 
hogy melyeknek kell érintetlenül maradni, akkor használjuk a frontend eljárást: 


5  frontend( expand, lexprl] ); 
In(27)? 4 21n(2 7) sin(2 7) -- sin(2 7)? 


5 frontend( expand, lexpr]1, [íh,(sin(2rx))] ); 


In(2 5)? -- 4sin(x) cos(z) In(2 3) 4 4sin(r)? cos(r)? 


5 fröntend( expana, [lexpzx1, p ID54" ér" trigh 1h] 25 
In(2 7)? -- 4sin(m) cos(m) In(2 3) -- 4sin(z)? cos(r)? 
A frontend opcionális harmadik argumentuma két halmazból álló lista: az 
első halmazban fölsorolt típusneveket és a második halmazban megadott ki- 
fejezéseket nem kell , befagyasztani?" az egyszerűsítés során (az alapértelmezés 
[(5r", "x"3, (1). Az utolsó parancsban tehát azt adtuk meg, hogy fejtsük úgy 
ki a kifejezést, hogy közben a trigonometrikus függvények kivételével a többi 
függvényhívás változatlan maradjon. A fölsorolt típusnevek közt lehetnek álta- 
lunk definiált típusok is. Például 


5 §H sine of 2x 
s  "type/t" :— z -2 evalb( z—sin(2xx) ): 
5  expr :— sin(2rx) t sin(2ry) 1 sin(4rx); 


expr :— sin(2 5) -- sin(2y) 4 sin(4 7) 
5... frontend( expand,; léxpr1,, [dérSs rá tizet] 9; 
2sin(zx) cos(z) 4 sin(2y) 4 sin(4 2) 


5  Ht trigonometric function applied to a sum 
3 EY BA ZET SRE LEK Ti 


type/t :— trig(-H) 
5  expr :— sin(2rx)tsin(3rx)tsin(xty)tsin(u-v); 
expr :— sin(2 7) 4 sin(3 2) - sin(z -- y) - sin(u — v) 
5 frontend( expand, lexprl, [("3",tj,(sink] ); 
sin(2 7) 4 sin(3 7) 4 sin(z) cos(y) - cos(z) sin(y) -- sin(u) cos(—v) 
4 cos(u) sin(—v) 
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5 tt trigonometric function applied to a product 
5  "type/t" :— trig("r"); 
type/t :— trig(x) 
5 frontend( expand, l[expr1, [£("x",tt,(sin)i ); 
2 sin(x) cos(r) -- 4sin(m) cos(z)? — sin(r) -- sin(x 4 y) A sin(u — v) 
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A 14.2. alfejezetben a parciális trigonometrikus kifejtésről szóló példában már 
érintettük a függvényekre vonatkozó , saját" kifejtési szabályok programozását. 
Mondjuk az F függvény esetében ehhez csupán az expand/F eljárást kell de- 
finiálnunk. Ezután valahányszor olyen kifejezésre alkalmazzuk az expand-ot, 
amely F-et is tartalmazza, a Maple F minden hívására az expand/F-ben defi- 
niált kifejtést alkalmazza. Additív F-re például: 


5  "expand/F" :- proc(x) 
5 local y,i: 
5 y :- expand(x): 
5 if type(y, "t") then sum( F(op(i,y)), i-1..nops(y) ) fi 
5 end: 
5 f(ptg) 4 F(rts): " -— expand("); 
f(ptg) 4 F(r 45) —f(p-tg) 4 F(r) 4 F(s5) 
5 F(pr(gtr)): " - expana("); 


F(p(gt4r) —F(pa) 4 F(pr) 


Ahogy az expand-ról szóló részben már megígértük, bemutatjuk a hiperboli- 
kus tangenst kifejtő eljárás olyan átírt változatát, amely a többi trigonometrikus 
függvénnyel konzisztens eredményt ad. Tehát az expand/tanh eljárást fogjuk 
úgy átdefiniálni, hogy az expand/tan-ra hasonlítson, és az eredeti helyett min- 
dig ezt alkalmazza a rendszer. Ez a módszer prototípusként szolgálhat arra is, 
hogyan vehetünk föl saját könyvtárunkba úgy eljárásokat, hogy mindig ezek 
hajtódjanak végre a megfelelő beépített könyvtári rutinok helyett. 

Az expand/tanh implementálásához némi ihletet adhat a hozzá hasonló 
expand/tan: 

5  interface( verboseproc-3 ): 1? make Maple more verbose 


5  readlib( "expand/tan" ): ti load library routine 
5  print( "expand/tan" ); 


proc(y) 

lócal Kg ae. ta. da s0y. Og ND TS 
x :5 expand(y); 
if x OC y then RETURN(expand(tan(x))) fi; 
if type(x, "1") then 


n :— nops(x); 
t :5 bop(x21; 
t :5- traperror((seg(tan(i), i— t)]); 


if t - "singularity encountered" then 
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RETURN(tan(convert(t, "4 "))) 
elif t - lasterror then ERROR(lasterror) 
1 sin éj 
t :— expand(t); 
for i from 0 to n do 


c :- combinat[(?!choose?](t, i); 
sSlil :— convert(map(convert, c, "x"), "49); 
if 1 c irem(i, 4) then S[(il :— -S[i] fi 

d; 


:5 convert(lIseg(S[25ri - 1], i-1..iguo(nt1,2))] , "4"); 
- convert([seg(SI2ril, i — 0 .. iguo(n, 2))], "4"); 


elif type(x, "x") and type(op(1, x), integer) then 
n :- abs(op(i, x)); 
t :5 tan(x/n); 
for i from 0 to n do 


SC(il :- binomial(n, i)tt7i; 
if 1 c irem(i, 4) then S[(i] :5 -S[il] fi 
od; 
N :-— convert([seg(S(2ri - 1], i-i.. iguo(nt1,2))], "49; 
D :— convert(Iseg(S[2ril, i - 0 .. iguo(n, 2))], "49; 
N/D 
else tan(x) 


fi 
end 


Első látásra elég rettenetes. A forráskód figyelmes átolvasása és néhány kifejtés 
megfigyelése után nyilvánvalóvá, válik, hogy a Maple a 
Sz ES éa (—-DS1 So szijga 


t ... n gen LELI lee 
an(z1-HT2t...-Hzn) 1— 527 54— 564 ...4(—DIE! So 2] 


szabályt alkalmazza, ahol S; a. tan(zj) változók szimmetrikus polinomja: 


n n 


I[6— tan(x;)) — 9 (—Di szer? . 


jei ís) 
Nem nehéz belátni, hogy hasonló formulák igazak a hiperbolikus tangensre is: 


S1tSzFS5FS7H...F Sojn-ijgi 


tanh(zi -- 32 tk ...-b Tn) — 
úri ú n) 14524S4456-4...k Sot] 
ahol S; a tanh(z;) változóknak az alábbi egyenlettel definiált szimmetrikus po- 


linomja: 
n n 


I[(— tanh(z;)) — 9(—Dé st. 

jei 1-0 
A fönti kifejtési formulát az expand/tan eljárásnak megfelelő stílusban imple- 
mentáltuk, az eredményül kapott kódot a tanh fájlban tároltuk. Ennek tartal- 
ma: 
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Expand tanh(f(x)) where f(x) is a sum of products by 
repeatedly applying the following two transformations. 


tanh(x) 4 tanh(y) 


tanh(xty) — ------- 
1 4 tanh(x) tanh(y) 
and 
tanh(x) 
tanh(2xx) — 2 ------- 
2 
1 4 tanh(x) 


Note, the code doesn?t apply these two rules recursively 
because that would generate a messy rational expression 
which would then have to be simplified. Instead, the fol- 
lowing identities are used 
S[1] 4 5[3] £ S[5] 4 ... 
tanh(aliltal21] 4. .taln])- 54-35 (xx) 
11 S[2] 4 S[4] 4 ... 


where the S[il are the symmetric polynomials in tanh(alil]) 


The code essentially writes down the formula (rt) as a 
rational expression in expand( tanh(a[il) ). 
The result is not further expanded or normalized. 


5, expand(tanh(xtytz) ); 


tanh(y) t tanh(z) 4 tanh(x) t tanh(y) tanh(z) tanh(x) 


1 4 tanh(y) tanh(z) 4 tanh(y) tanh(x) t tanh(z) tanh(x) 


5 expand(tanh(2rxt2xy)) ; 


(1 - tanh(x) ) (1 t tanh(y) ) 


Author: Andre Heck 

Date:  Aug/95 

Remark: code is copied and adapted Írom expand/tan 
"expand/tanh" :- proc(y) 

TOGA Ar Tiz Jr Fdiy 05 Grg (S Dir edes 

x :-— expand(y); 

if x GC y then RETURN( expand(tanh(x)) ) fi; 

if type(x, 4") then 


asz s dön a dts : ölt Hl - Hl - d - S - IB - Be Hl - B . -E  -e; - Hl lle lle. Be - BE - öt. - Be - IB . lt - -t; - Bit  -It. . I. . -Il- . Be . -BRe . -Blé, - IB. . Be. . -E . -Be. . ER . BE. . Bt. . -BE. . St . BE. . -Et. - lt. . -Ek - B. . -Bk . BE. . 23 


n :— nops(x); 
t :— lop(x)I; 
t :- expand(Iseg(tanh(i) , i-t) 1); 
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for i from 0 to n do 

c :5- combinat[/ choose? ](t,i); 

SC(i] :— convert( map(convert, c, k"), "4" ); 
od; 
N :- convert( [seg( S[2ri-1], i-1..iguo(n4t1,2) )], "4" ); 
D :- convert( [seg( S(2ril], i-0..iguo(n,2) )], "4" ); 
N/D tt Don?"t expand the result 
elif type(x, "$r") and type(op(1,x) ,integer) then 

n :— abs(op(1,x)); 

t :5— tanh(x/n); 

for i Írom 0 to n do 

S(il :— binomial(n,i)rt7i; 


o 
N :- convert( [seg( S[25ri-1], i-1..iguo(nr1,2) )], "4" ); 
D :- convert( [seg( S[25ri], i-0..iguo(n,2) )], "tt" ); 
N/D $ Don?"t expand the result 

else tanh(x) 

fi 

end: 

savelib(? "expand/tanh" ? , !) "expand/tanh.m" ? ) : 

guit 
Hol tároljuk ezt a fájlt? Utánozzuk a Maple könyvtárszerkezetét! A Maple 
könyvtár archivált formáját a libname környezeti változó által megadott al- 
könyvtárban a maple.lib nevű fájl tartalmazza. Unix platform esetén ennek 
szokásos helye: 

5  libname;, 


/ usr / local / lib / maple/ lib 


Tegyük föl, hogy valóban itt találjuk a Maple könyvtárát. A Maple eljárások ne- 
ve eredeti elhelyezkedésüket tükrözi a fájlrendszerben. Az expand/tan eljárást 
például eredetileg a /usr/1ocal/lib/maple/1ib/expand/tan . mfájl tartalmaz- 
za. Ha saját könyvtárunkat a /home/user/private maplelib alkönyvtárban 
akarjuk létrehozni, a következő lépések végrehajtására van szükség. Ebben az 
alkönyvtárban hozzuk létre az expand alkönyvtárat és ennek src alkönyvtá- 
rát. A /home/user/private maplelib/expand/src alkönyvtárban helyezzük 
el a fönti tanh fájlt. A következő rövid Maple szekciót ebben a könyvtárban 
futtasuk le: 

5  savelibname :— "/home/user/private maplelib"; 

5 read tanh 


Ennek hatására a /home/user/private maplelib/expand alkönyvtárban létre- 
jön az expand/tan eljárást tartalmazó tanh.m fájl. Most már minden fölhasz- 
nálásra kész állapotban van, legalábbis, ha saját könyvtárunk neve a readlib 
keresési listáján szereplő könyvtárnevek élén áll. Próbáljuk ki: 

5  libname :- "/home/user/private maplelib/", libname: 

5 tanh(xtytz): " - expand("); 
tanh(z) -- tanh(y) -- tanh(z) -- tanh(r) tanh(y) tanh(z) 


1 7- tanh(z) tanh(y) -- tanh(r) tanh(z) -- tanh(y) tanh(z) 
5 tanh(5rx): " - expand("); 
5 tanh(x) 4 10 tanh(x)? -- tanh(x)f 
tanh(5 z) — 
amhlő] 1-4 10tanh(z)? 4 5tanh(r) 


tanh(z -- y-t 2) — 
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14.10. Gyakorlatok 


00 
; ! T 1 
1. Mutassuk meg, hogy ) 7 7 — 7 coth(r) — 7. 
1 k$1 2 2 


2. Fejtsük ki a (cos(2r) -- 1)? kifejezést a cos2(2x) t- 2 cos(2r) 4 1 alakra, tehát 
úgy, mintha, a cos(2T) polinomja lenne, s eközben a trigonometrikus függvényt 
ne fejtsük ki. 


3. Vizsgáljuk meg, hogy a következő szimbolikus kifejezéspárok hogyan transz- 
formálhatók egymásba a, Maple segítségével. 


1 2.41 
(a) 1tyi- és (zty t1 
Tty Tty 


, 


(b) exp(z-ky) és  exp(zx)exp(y), 
(c) In(z/y) és  In(z) —ln(y), 
(d) zt) és g927, 


(e) Vz2-—-1 és 4Vr-1lV/ril. 


4. Egyszerűsítsük a következő szimbolikus kifejezéseket: 


És e Trú 
e2z 4 2ze7 4 x2 


(b) ú/75 4 4071 -- 59523 1 390522 -- 96807 -F 1331 
(x — 2)? 

(2 — 4x 4 4)1/4 

VI —-y 

1-y 
1 

(e) 27 51/8 


(f) cos(z 4 y) 4 sin rsiny -H2ETS 


(c) 


(d) 


(g) 2cos? z — cos 2 
5. Oldjuk meg a következő zérusekvivalencia problémákat a Maple-lel: 
(a) (21/83 4 41/8)3 . 6(21/3 4. 414/89)-6-0 
(b) In tan($z 4 £7) — arcsinh tanz — 0 
6. Ellenőrizzük a Maple segítségével a következő trigonometrikus azonosságokat: 


(a) sinz 4 siny-H2 sin 5(z ty) cos £(z — y) 
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(b) sinő5z — 5 sin z — 20 sin? z -k 16 sin z 
(c) cotéz 4-1 — cse2z 


sin(z 4 y) 


(d) tanz ttany — 
COST COSYy 


(e) cos" z -k sin z — 1— 3 sin? z cost z 


(f) sinh 27 — BEL sss hát 
1—tanh z 


sin 27 -t sin 2y 
cos 27 -k cos 2y 


(8) 


— tan(z ty) 


7. Ellenőrizzük a Maple segítségével a 7/4 — 4arctan(1/5) — arctan(1/239) 
egyenlőséget. 


8. Számoljuk ki a következő határozatlan integrálokat, majd ellenőrizzük az 
eredményt differenciálással és egyszerűsítéssel: 


2 
b [gat 
(b) J (1 — cx?) dx 


új [ae 
(a) (ee 


(e) J sin 31 cos 21 dx 


1 


(azt bjé(cz-t 9)? 
ményt a következő alakra: 


9. Integráljuk az 2 B valós függvényt, és hozzuk az ered- 


2ac1 cxsrtd 
éve artb z 2acrtadtbc 
(ad — bo)? (ad— boc)?(az 1 b)(czt d) 


10. Implementáljuk az expand/coth expanziós rutint az expand/coth-hoz 
hasonlóan, vagyis úgy, hogy az expand a hiperbolikus kotangenseket nem a, 
hiperbolikus szinuszok és koszinuszok, hanem maguk a hiperbolikus kotangensek 
segítségével fejtse ki. Rendezzük el úgy a dolgokat, hogy a rendszer mindig saját 
expanziós rutinunkat használja a beépített helyett. 


tés 


űsíi 


14. Egyszer 


972 


ázat 


L 


tábl 


Fa 


tési 


z 


Pld 


üús1 


Egyszer 


14.11. 


XOIZIJAUOZSNÁI[] SRUI 59 


(2— 7 )JOJ008 6 2A TUIS1-4TSO9 63 20 


u17/(u(z — 2) — u(z 4-7) 


e(88 u 8) eT 


zujA 4— (xT)ur 


14761-4TZ-H-TA 
2-fi.2 — (f/2) (íÁrjuj — uja Tu 
[4 c (4 

a— ti - cu -ku 

c jedsak zúgás a apás 


(za) 7 €— TAT (A 3- x)dxa — fidxozdxa 


SEAT ZAL EE[ 


27 € :(x7) 


(19 4 10)K k- 19 KG 2 9 (a) 7 — TAT 


(az)ug — zug 


(Ázx)uj — Auj4 Tu 


(A 3 T)dxa — fidxozdxa 


(2 Ue3--T)/T egz — zzurs 


(I 4 z7A -- T)ul §— TyuIrsoIe 


7/ (21-94 219) 4§— 7509 


1509 /Tuis — Tue 
T € T.yuis — 7 Us09 


T€ T US 77509 


750984 TgS09 £— T 509 p 
T7 UUIS — TUSO9 TYUISZ 


(A 4- T)s09 4 ÁluIs z uis — h1s09 T 509 


rA x 
gat g  COLP € CT JGTP— -((/D.z — .(4/7) 
s mk va 4 u) fő FUJ AT — (Az) 


fuj — zug 6 (A£/r)ur 
fuj- zug — (Azrjuj 


iu(t 4 u) — j(t 4 u) TAT — (z4a)T fidxa zdxa 4 (14 T)dxa 


TUS09g— T 4509 p — 7gYS09 
1— 75097 — 77509 


Á uis Tuts — AÁS09 TS09 £— (A 4 T)s09 


JI9AUOD 


Azgrrduurs 


9uIrguro 


puedxa 


yaÁAuzasan] sirerdods JOÁURAJEH 30] s2 dxa 


J9ÁUuJASSNI "3IAL 


SEIEÍA 


t: A legfontosabb egyszerűsítések 


aza 


Pi 


14.1. tábl 


157 


Grafika 


A kétdimenziós grafika a következő területeket öleli föl: 


egyváltozós valós függvényekkel definiált görbék, 
paraméteres egyenletekkel definiált görbék, 
implicit módon, egyenlettel megadott görbék, 


kétváltozós valós függvényekhez, valamint adathalmazokhoz tartozó sűrű- 
ségi és szintvonalas ábrák, 


vektor- és gradiensmezők ábrázolása, 

(statisztikai) adatok megjelenítése, 

lineáris egyenlőtlenségekkel definiált régiók ábrázolása, 

geometriai ábrák (például poligonok, körök, ellipszisek stb.) és végül 


kétdimenziós grafikus objektumok animációja. 


A Maple által biztosított háromdimenziós grafikával lehetőségünk van 


kétváltozós valós függvénnyel definiált felület generálására, 


paraméteres egyenletekkel definiált felületek, csövek és térgörbék generá- 
lására, 


egyenlettel megadott implicit felületek generálására, 


háromdimenziós adatpontok listájával megadott felületek generálására, 
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e szabályos poliéderek, hengerek, gömbök, tóruszok és hasonló geometriai 
objektumok ábrázolására, végül 


:2tg 


e háromdimenziós grafikai objektumok animációjára. 


Két- vagy háromdimenziós ábrák készítésekor a Maple dönti el a mintapontok 
számát, a tengelyek elhelyezését, a tengelyeken található jelzéseket, az ábrázo- 
lási tartományokat, az ábra árnyékolását vagy színezését és így tovább. A gra- 
fikonokat opciók használatával módosíthatjuk; például másik (polár, elliptikus, 
logaritmikus, szférikus, henger, paraboloid stb.) koordinátarendszer választásá- 
val vagy a mintapontok rácsának megváltoztatásával. 

A függvények, illetve felületek ábrázolására szolgáló plot és plot3d eljárások 
hívása elég nyilvánvaló módon történik. További grafikai lehetőségek a plots 
csomaggal érhetők el. 


A fejezet további részében föltesszük, hogy minden mintaként közölt 
Maple szekció elején betöltöttük a plots csomagot. 


Erre szolgál a következő parancs: 
5 with(plots); tt load graphics package 


[animate, animatedd, changecoords , complexplot, complexplotád , 
conformal, contourplot, contourplot3d, coordplot, coordplot3d, 
eylinderplot, densityplot, display, displayád, fieldplot, fieldplot3d, 
gradplot, gradplot3d , implicitplot , implicitplotád , inegual, 
listcontplot, listcontplot3d , listdensítyplot, listplot, listplotád, 
loglogplot, logplot, matrixplot, odeplot, pareto, pointplot, 
pointplotád, polarplot, polygonplot, polygonplot3d , polyhedraplot , 
replot, rootlocus, semilogplot, setoptions, setoptions$d, spacecurve, 
sparsematrizxzplot, sphereplot, surfdata, textplot, textplot3d, 
tubeplot] 


Az itt fölsorolt nevek alapján már lehet némi elképzelésünk a Maple-ben könnyen 
elérhető két- és háromdimenziós grafikai specialitásokról. A display a plots 
csomag legfontosabb parancsa. Az ábrák különböző opcióknak megfelelő újra- 
rajzolásán túl lehetővé teszi több ábra összekombinálását is. 

Ebben a fejezetben a Maple V Release 4 X Window rendszer alatti válto- 
zatának grafikai lehetőségeit írjuk le. A legtöbb grafikai példa azonban más 
fölhasználói felületek esetében is érvényes. Nem tárgyaljuk az összes lehetsé- 
ges grafikai rutint és opciót, de súlyt helyezünk arra, hogy megértsük a rajzoló 
rutinoknál használt grafikai struktúrákat. 


A mintaként közölt szekciók parancsaiban gyakran megadunk a szí- 
nezésre vonatkozó információkat is, a könyv azonban fekete-fehérben 
tartalmazza az ezeknek megfelelő ábrákat. 

!Pontosabban az alkalmazott nyomdatechnikának megfelelő élességű és számú szürkeárnya- 


latot láthatunk. Az eredeti ábráktól való esetleges eltérések a hardver és szoftver differenciák 
mellett ennek számlájára is írhatók. (A Fordító megjegyzése.) 
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Ha az eredeti színeket szeretnénk látni, futtassuk le újra a példákat. Egyébként 
is a Maple grafikai lehetőségeivel való kísérletezésre szeretnénk buzdítani az 
Olvasót. 


A fejezet néhány példája meglehetősen időigényes, és komoly számí- 
tógépes erőforrásokat köt le. 


15.1. A kétdimenziós grafika alapjai 


Egyváltozós függvényeket a Maple plot eljárásával ábrázolhatunk. A rendszer- 
nek természetesen tudnia kell, hogy milyen típusú output eszközt használunk. 
Ha a Maple munkalapos felületű változatát Macintosh-on, PC kompatibilis vagy 
Unix-os gépen futtatjuk, a megjelenítő eszköz és a megfelelő meghajtók kiválasz- 
tása automatikus. Egyébként meg kell adnunk a szöveges üzemmódból grafikus 
módba váltáshoz kiküldendő speciális karaktersorozatokat és más szükséges in- 
formációkat a Maple-nek. 


Ha a plot eljárást például Tektronix emulációval akarjuk használni MS-DOS 
gépen az MS-KERMIT alatt, ezt a 


5  plotsetup( tek, kermit, preplot-[27,12], postplot-[241] ): 


paranccsal tehetjük meg. Az utasítás a következőket, jelenti: 


e tudatjuk a Maple-lel, hogy Tektronix 4014 terminált vagy annak megfelelő 
emulátort használunk; 


e a preplot interfész változó értéke az escape és a formfeed karakterek AS- 
CII kódjának megfelelő egészek listája; a rajzolás megkezdése előtt ezeket 
kell kiküldeni a grafikus módba történő átmenethez; 


e a postplot interfész változó értéke a cancel karakter ASCII kódja; a 
rajzolás befejezése és az ENTER billentyű lenyomása után ezzel térünk 
vissza karakteres módba. 


Néha a szükséges beállítások gyorsan elvégezhetők a plotsetup eljárás segítsé- 
gével. A rendelkezésre álló fölhasználói felületek részleteiről a Maple kéziköny- 
vekben (v.ö. [38, 39, 187, 188]) találunk információt. 


A továbbiakban föltételezzük, hogy a Maple az X Window rendszer alatt fut, 
mivel ennek grafikus meghajtója alkalmas háromdimenziós ábrák előállítására, is. 


Tekintsük az f:Tr5- e-7 sin(rr?) függvényt a (—2, 2) intervallumon. 
5 f :5 x -5 exp(-x72) $ sin(Pirx"3); 


f.5Tro el-e) sin(r x?) 
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A függvény kirajzolását a 
s."plilótC f(x, x z 2.2); 


paranccsal végezhetjük. Hatására kétdimenziós ( PLOT2D") grafikát tartalma- 
zó új ablak jelenik meg a, képernyőn, amely a függvény grafikonját ábrázolja. A 
hozzá tartozó menü lehetőséget ad a Maple grafikai adatstruktúrán különböző 
manipulációk elvégzésére és az eredmény megjelenítésére. 


5 . Untíttea (1) - [Berver 
es Ko "B SXH(-XIZ) Tt SÍIMCBILEKSI 
pioti Htxi..-x z 2.2 3 


(-x?) 2 
fzxGe sinímx fő 


15.1. ábra: Munkalapot és grafikai ablakot tartalmazó képernyőkép 


Lehetséges, hogy a 15.1. ábrához hasonlóan a grafikont a munkalapba beá- 
gyazva, látjuk (ténylegesen ez a rendszer alapföltételezés szerinti megjelenítési 
módja). A fenti utasítás példát ad az f függvényt az (a, b) intervallumon kiraj- 
zoló 


plot( f, a..b, options); 


általános alakú parancs használatára, ahol az options rész a következő alfejezet- 
ben tárgyalt opciókból fölépülő listát jelent, amely lehet üres is. 

A másik módszer az f(r) formula által definiált függvény ábrájának megje- 
lenítésére a plot következő változata: 


plot( f(x), z — a..b, options); 
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ahol az a..b a vízszintes tartomány (T-re), az options pedig nulla vagy több 
opciót tartalmaz. Figyeljük meg a különbséget a vízszintes tartomány megha- 
tározásában függvény, illetve formula esetén: a függvény csak egy tartományt 
követel meg, míg a formuláknál a szintaxis variable — range. 


Tehát az e" sin(rx3) formulát a (—2, 2) tartományba eső x értékekre a követ- 
kező paranccsal rajzoltathatjuk föl: 


5 plot( f(x), x — -2..2); 


Az eredmény a 15.1. ábrától csak az X tengely mellé írt cimkében különbözik. 
A függvény grafikonját megvizsgálhatjuk a teljes valós számegyenesen vagy egy 
félegyenesen is. A 15.2. ábra az f függvényt mutatja a, (0, 00) félegyenesen. 


5 plot(f, 0 .. infinity ); 


infinity 


15.2. ábra: Végtelen intervallum fölötti ábrázolás 


Ebben az esetben a Maple az 5 2 arctan (2) közelítő függvény segítségével 


képezi le a teljes valós egyenest a (—1, 1) intervallumba. 


Egyszerre több függvényt is kirajzoltathatunk; színes megjelenítés esetén a 
Maple az egyes grafikus objektumokat eltérő színekkel ábrázolja: 


5  plot( (f(x), exp(-x72), -exp(-x72)b, xs-2..2 ); 
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15.3. ábra: Az 27 e sin(ra5), az e ég a —e7s függvények grafikonja 


Ha ábránkat ki akarjuk nyomtatni, vagy PostScript formátumú fájlban akarjuk 
elhelyezni, akkor ezt többféleképpen közölhetjük a Maple-lel. Használhatjuk az 
ábrát tartalmazó PLOT2D ablak , print" menüpontját, vagy ha előre pontosan 
tudjuk, mit szeretnénk, megadhatunk egy, az alábbihoz hasonló parancsot: 


5  plotsetup( PostScript, plotoutput - "plotfile.eps", 
5 plotoptions-"portrait , noborder , height-—200 , vidth—600" ) : 


Ennek hatására a Maple átirányítja az ábrát leíró Encapsulated PostScript kó- 
dot a plotfile.eps nevű fájlba. A keletkező ábra álló (portrait) formátumú, 
keretezés nélküli 600 x 200-as méretű lesz (a vidth hosszúság és a height széles- 
ség pontokban értendő, 1 inch— 72.27 pont). Az EPS szabványnak megfelelően 
a fájlban szerepel aZ BoundingBox: 0 0 600 200 méretdefiníció. Ha ismét az 
X Window rendszer képernyőjén szeretnénk ábráinkat megjeleníteni, adjuk ki a 


5  plotsetup( XII ): 


parancsot. A kapott fájl PostScript kompatibilis nyomtatón egyszerűen kinyom- 
tatható vagy beágyazható a BTEX, a, Framemaker, esetleg más szövegszedő rend- 
szerrel készített dokumentumokba. A parancsban fölsorolt opciók megadása nél- 
kül a Maple olyan maximális méretű bekeretezett fekvő (landscape) formátumú 
képet generál, ami még éppen elfér egy A4-es lapon. A Maple által támoga- 
tott további plot eszközök: win (MS-Windows), a plotterekben is használt hpg1 
(Hewlett-Packard Graphics Library) és gif (GIF formátum). További részlete- 
ket a ?plot,device paranccsal tudhatunk meg. 

A Descartes-féle koordinátarendszerben az x — f(t), y — g(t) paraméteres 
formulákkal adott kétdimenziós síkgörbéket kirajzoló utasítás általános alakja 


plot([7(t), 9(t) t — a..b], options); 


ahol a t független változó az a..b tartományból vesz föl értékeket, az options 
pedig opciók (esetleg üres) listája. 
A 15.4. ábrán egyszerű példát láthatunk az előzőekre: 
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s plot( L sin(t), t, t-0..23Pi ], scaling-constrained ); 


sz 


15.4. ábra: A tH (sint,t) paraméteres görbe rajza 
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Ha a paraméteres görbét függvényekkel adtuk meg, a plot parancsból el kell 
hagynunk a független változót. A 15.5. ábrán egy érdekes példát láthatunk: 
függvényekkel megadott, juharlevélhez hasonló alakú paraméteres görbét. Az 


előállításban polárkoordináta-rendszert használtunk. 


5 § :-— t -5 100/(100£(t-Pi/2)78): t for scaling 
s R :— t -5 S(t)r(2-sin(í7rt)-cos(30rt) /2) : 
5  plot( [ R, t-2t, -Pi/2..3/2xPi ], coords-polar, 
5  axes-none, color-green, numpoints-1000 ); 


15.5. ábra: Paraméteres görbével előállított juharlevél 
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15.2. A plot opciói 


Amikor a Maple egy ábrát fölrajzol, számos döntést hoz. Meghatározza például 
az ábrázolási tartományt, a síma görbéhez szükséges mintapontok számát, a 
tengelyek beosztását és föliratát és így tovább. A Maple gondoskodik arról, 
hogy ezen opciók értéke a rendszeres használatra, a legalkalmasabb legyen, de 
beállíthatjuk őket a számunkra szükséges módon is. 


A függőleges tartomány megadása 


Ha például a grafikonon ábrázolt függőleges értéktartományt akarjuk korlátozni, 
a tartományra vonatkozó információt a plot utasítás harmadik argumentuma- 
sin x? 

2 
vényt rajzoltatjuk föl a (—6, 6) intervallumon, de a [0, 1] függőleges tartományon 
kívül eső értékeket elhagyjuk. (Lásd 15.6. ábra.) 


ként adhatjuk meg. A következő paranccsal a formulával definiált függ- 


5  plot( sin(x72)/x72, x--6..6, 0..1i ); 


A 
A a NT : 
B VÁG A VA jéé 


i 
Ar 
-2 


15.6. ábra: A Sing? leszűkített ábrázolása 
Skálázás 
Figyeljük meg, hogy a Maple a függőleges skálát úgy választja meg, hogy az 
A4-es méretnek megfelelő lehető legnagyobb ábrát mutathasson. Amennyiben a 
vízszintes és a függőleges tengelyt azonosan akarjuk skálázni, ezt megadhatjuk 


interaktívan vagy a plot parancs scaling - constrained opciójával. (Lásd 
15.7. ábra.) 
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5 plot( sin(x72)/x72, x--6..6, scaling-constrained ); 


15.7. ábra: A SInSZ leszűkített ábrázolása egyenlő skálázással 


A megfelelő nézet 


Néha szűkítenünk kell a függőleges tartományt ahhoz, hogy jó ábrát kapjunk. 
A 15.8. ábra grafikonján látható, hogy néhány függvényérték dominál a, többi 
fölött, ezért a tangens függvény menetét az ábra nem túl jól tükrözi az adott 
tartományon. A (hamis) , tüskék" elkerülésének egyetlen módja sokszor a, füg- 
gőleges tartomány ésszerű szűkítése vagy a mintapontok számának növelése. 


5  plot( tan, -Pi..Pi ); 


15.8. ábra: A hibás tangensgörbe 


A következő paranccsal újrarajzoltatjuk a [—, rr] fölötti tangens függvényt, de 
a [—10,10] függőleges tartományon kívül eső értékeket nem mutatjuk meg, a 
vízszintes tartományt pedig a [—4, 4]-re bővítjük. A rendszer nem számolja ki 
újra a grafikont, csak a megjelenítést igazítja hozzá ehhez a specifikációhoz: 
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5  display( ", view-[-4..4,-10..10] ); 


te TE 


15.9. ábra: Az újrarajzolt tangensgörbe 


Szakadási helyek 
A Maple valójában az z — —5-nél és az z — 5-nél lévő függőleges aszimptotákat 


is a görbe részeként rajzolta be, mivel a szakadásokkal nem törődve a nagyon 
nagy és a nagyon kicsi függvényértékeket adó mintapontokat egyenessel kötötte 
össze. A discont - true opcióval arra kérhetjük a Maple-t, hogy próbálja meg 
a szakadásokkal kapcsolatos bonyodalmakat legyőzni. Ekkor kifejezésekkel kell 
dolgoznunk, mert a Maple-nek változóra van szüksége a szakadások helyének 
megállapításához. A 15.10. ábra mutatja a tangens így kijavított grafikonját: 


plot( tan(x), x5--Pi..Pi, -10..10, discont-true, 


5 
5 xtickmarks-z[ -3.14-"-Pi", -1.57-"-Pi/2" , 
5 1.57-"Pi/2", 3.14-"Pi" ] ); 
il! 
ET ENNE maj j pi/2 Pi 


15.10. ábra: A tangensgörbe javított ábrázolása 
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Címek, cimkék, osztásjelek 


Az előző ábra vízszintes tengelyére az xtickmarks opcióval helyeztünk el ér- 
telmesebb cimkéket. Természetesen létezik az ytickmarks opció is. A cimkék 
explicit megadása helyett elegendő a két tengelyen lévő osztásjelek számát elő- 
írni. A grafikonokon cimkéket helyezhetünk el, megmondhatjuk azt is, hogy 
milyen fontokat szeretnénk használni (lásd 15.11. ábra). Ha a cimkézést a fönti 
módon végezzük, a, cimkék elhelyezésére nincs sok befolyásunk; legföljebb utó- 
lag, a PostScript kód megfelelő átírásával végezhetünk korrekciókat. 


J :— (n,x) -2 sart(Pi/(2xrx)) r BesselJ(nt1/2,x): 

plot( J(O,x), x5-0..20, "J(0,x)"--0.5..1, 
xtickmarks-8, ytickmarks-4, title- 
"Spherical Bessel function j(0,x) of the first kind", 
titlefont-[HELVETICA , BOLDOBLIGUE , 20] ); 


MONYON 


Sphericai Bessel function j(0,x) of the first kind 


15.11. ábra: A Jo(z) elsőfajú szférikus Bessel függvény 


Alternatív megoldásként a plots csomag textplot eljárásával külön meg- 
rajzoltathatjuk a tengelyeket és a, szöveget, majd mindezt a display eljárás 
segítségével a függvény grafikonjával közös képen jeleníthetjük meg. (Lásd a 
15.12. ábrát.) 


2. eurve :5 plott xöoglószi, 0... 20, -0.5..1, 

5 xtickmarks-8, ytickmarks-4, title- 

5 "Spherical Bessel function J(0,x) of the first kind", 
pe titlefont-(HELVETICA , BOLDOBLIGUE , 16] , 

s axesfont- [HELVETICA , BOLD, 14] ): 

5 text :— plots[textplot]( ( [2,0.75,"J(0,x) "1, 

s [14,-0.1,"x"] ), align-(ABOVE,RIGHT), 

szd font-[(HELVETICA , BOLD, 14] ): 

5  plots[display]( ( curve, text b ); 
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Spherical Bessai function J(0,x) of tha fírst kind 


15.12. ábra: A Jo(z) gráfja javított szövegelhelyezéssel 


A fontok választása a különböző családoknak, stílusoknak és méreteknek meg- 
felelő (elég kicsi) halmazból történhet. 


Mintavétel 


A függvény grafikonjának megrajzolásakor a Maple először kiszámolja a görbe 
néhány pontját (a mintapontok számát a numpoints vagy a sample opcióval 
állíthatjuk be), majd alapföltételezés szerint egyenes szakaszokkal köti össze 
az így kapott pontokat. Mint a következő alfejezetben látni fogjuk, a Maple 
úgynevezett adaptív ábrázolással próbál minél símább grafikonokat produkálni. 
Ez azt jelenti, hogy a rendszer automatikusan növeli a mintapontok számát, ha 
a görbék símasága ezt megkívánja. 

Rajzolási stílus 


Az alapföltételezés szerinti patch helyett használhatjuk a point vagy a line stí- 
lust is (az utóbbi csak a sokszögek ábrázolását befolyásolja). Ha a point stílust 
választjuk, a Maple olyan kereszteket rajzol, amelyek középpontja a kiszámított 
mintapontokban (sokszögek esetén a sokszög csúcsaiban) van. A kereszt helyett 
más jelet is definiálhatunk a symbol opcióval. (Lásd 15.13. ábra.) 


5  plot( sin, 0..2:Pi, scaling-constrained, style-point, 
5 symbol-circle ); 


1 a VALAG a 
a v 
e 


15.13. ábra: A szinusz függvény pontozott grafikonja, 


Adatpontokat könnyen előállíthatunk a point stílussal. A pontpárokat listá- 
ban helyezzük el, és a pontokat a point stílussal rajzoltatjuk ki. Az első 


kilenc prímszámot például a. következő parancs segítségével jeleníthetjük meg 
(v.ö. 15.14. ábra): 
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5  plotpoints :-— [ seg( L i, ithprime(i) 1], i-1..9 ) J]: 
s. plot( plotpoints, style-point, symbol-box ); 


15.14. ábra: Az első kilenc prímszámnak megfelelő adatpontok 


A 15.13. alfejezetben áttekintjük azokat a beépített eljárásokat, amelyek a most 
látott alapvető adatvizualizációs lehetőségeket terjesztik ki. 


Az alapföltételezésnek megfelelő 1ine stílus szemléltetésére tekintsük a koszi- 


listáját kell generálnunk: 
[1.2, 1.2], [1.2, cos(1.2) ], [cdos(1.2) , cos(1.2) ], [dos(1.2), cos(cos(1.2)) ], 


[cos(cos(1.2)), cos(cos(1.2)) ], [ecos(cos(1.2)), cos (cos(cos(1.2))) ], . - - I 


Az ábrázolandó pontokat a következő kezdőértékkel induló pontsorozatként ge- 
neráljuk: 


s pairoO :— [[1.2, 1.21, [1.2,cos(1.291]; it starting pair 
pair0 :— [[1.2, 1.2], [1.2, .3623577545 ] ] 


Az új párokat létrehozó iterációs függvény definíciója: 


s f :5 pair -2 [ map( cos, pair[1] ), 
s map( cos, pair[2] ) J]; it iteration 


f : pair — [mapc(cos, pair1), map(cos, pair ))] 


Hatását a következő paranccsal vizsgálhatjuk, 


5 f(p0); § first new pair 
[[.3623577545, .3623577545 ], [.3623577545, .9350636470 ]] 
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ami a 


[cos(1.2), cos(1.2) I, [cos(1.2), cos(cos(1.2)) ] 


adatpontok numerikus kiértékelésének felel meg. Most már előállíthatjuk az 
összes pontot: 


5 points :-— map( op, [L seg( (fe0gi)(pO), i-0..10 ) J] ): 


Befejezésül olyan ábrát generálunk, amely egyenes szakaszokkal összekötve tar- 
talmazza a fönti listában szereplő pontokat, az y — z identikus függvényt és a 
koszinusz függvény (0, 1]-be eső értékeit a (0, 7/2) intervallum fölött. 

5  curveplot :— plot( points, x-0..Pi/2, y-0..1, 

5 style-line, linestyle-2, color-blue ): 

s identityplot :— plot( x, x-0..Pi/2, y-0..1, 

5 linestyle-7, color-gray ): 

5  cosineplot :-— plot( cos(x), x-0..Pi/2, y-0..1, 

ös: thickness-4, color-red ) : 


Az ábrákat egyetlen képen jelenítjük meg a plots csomag display parancsával. 
A fönti utasításokban különböző színeket és vonalstílusokat használunk (szag- 
gatott vonalakat), a koszinusz grafikonját pedig kivastagítva ábrázoljuk, hogy a 
kép komponenseit könnyebb legyen megkülönböztetni. (Lásd 15.15. ábra.) 


cobweb-model of iterated cosine 


15.15. ábra: Az iterált koszinusz ,pókháló-grafikonja" 


Vonalstílusok és vastagságok 


Vizsgáljuk meg a rendelkezésünkre álló egyenesstílusokat és vastagságokat. Je- 
lenleg a linestyle és a thickness opciók értéke a (0, 7], illetve a (0, 15] tar- 
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tományba eső nemnegatív egész szám lehet, ezeken kívüli értékekre moduláris 
aritmetikával számol a rendszer. (Lásd a 15.16. és 15.17. ábrát.) 


5 for i from 0 to 15 do 

pd thick[il] :5— plot( i, x-0..1, thickness-i ) : 

5 od: 

5 display( convert( thick, set ), 

5 axes-box, tickmarks-[(0,15], 

5 title-"thickness option: [0,91,..,151]" ); 
thickness option: [0,1,..,15] 


15.16. ábra: Különböző vonalvastagságok 


for i Írom 0 to 7 do 
lineli] :— plot( i, x-0..1, linestyle-i ): 
od: 
display( convert( line, set ), axes-box, 
tickmarks-[0,7], title-"linestyle option: [0,1,..,7]" ); 
linestyle option: [0,1,..,71] 


VVVVV 


15.17. ábra: Különböző stílusú egyenesek 
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Színkezelés 


A Maple által használt két színmodell az RGB és a HSV. Az RGB módban a szín 
red (piros), green (zöld) és blue (kék) összetevőit állítjuk be. A plots csomag 
polygonplot rutinjával könnyen készíthetünk színdiagramokat: 


5: P :— seg( seg( polygonplot( 

5 E Ti,j]; [iri5jl, Tiri jtidöz öz átideds 

5 color-COLOR(RGB,O.1xi, 0.1xj, 0 ) ), 

s 4-0..10 ), j-0..10 ): 

5  display( (Pl, scaling-constrained, 

2 labels-(R,G], title-"RGB color (R, G, 0)", 

5 tickmarks - [ [lseg(ir0.5—-".".i,i-0..9),10.5-"1"], 
s [seg(jr0.5-".".j,j-0..9),10.5-"1"1 1 ); 


RGB color (R, G, -0) 


15.18. ábra: RGB színdiagram szürkeskálás vetülete 


Sajnos a 15.18. ábrán csak a színeknek megfelelő szürkeségi fokozatokat látha- 
tunk. A képernyőn vagy színes nyomtatón azonban valóban a megadott színeket 
kapjuk. Az RGB színmodellt három dimenzióban, egy kocka élei mentén mutatja 
a 15.19. ábra. 

5 el :-— seg( seg( seg( display( 

5 plottoolsícuboid] (Lli,j,k], lir1,jr1,kt1]), 

pl color-COLOR(RGB,O.1xi, 0.1kj, 0.1xk ), style-patch ), 


-— 
SA 
sz 


VAVYAN 


- 
2 
- 


A plot opciói 


17-0..10 ), j-[0,10] ), k-[0,10] ): 

e2 :— seg( seg( seg( display( 
plottools[cuboia]([i,j,k], [lir1,jt1,kt1]), 
color-COLOR(RGB,O.1ri, 0.1kj, 0.1xk ), style-patch ), 
i-[0,10] ), j-0..10), ks[0,101 ): 

e3 :-— seg( seg( seg( display( 
piottóols [eübodálkülbis] ki , ii. jrr kri]); 
color-COLOR(RGB,0O.1tri, 0.14kj, 0.1kk ), style-patch ), 
1-[0,10] ), j-[I0,10]), k-0..10 ): 

display( ( e.(1..3) ) ); 
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15.19. ábra: Az RGB színek ábrázolása, kocka élei mentén 
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HSV módban a szín hue, saturation (telítettség) és value (érték) összetevőit 
határozzuk meg. A két utóbbi komponens azt mutatja, hogy mennyi fehé- 
ret és feketét kell a színhez adni a különböző árnyalatok eléréséhez. A HSV 
mód , hengeres" színteret ad, az argumentumokat cirkulárisan értelmezi. A 
Maple-ben COLOR( HSV, h, 0.9, 1.0 ) helyett a rövidebb HUE(h) alakot 
is használhatjuk. A 15.20. és a 15.21. ábra a HUE színskálát kétféle módon 
jeleníti meg, körkörös szalagon, illetve színkörként. 


plot3d( 1, t-0..2rPi, z--2..2, coords-cylindrical, 
style-patchnogrid, color-t/2/Pi, axes-box, 
orientation-[45,35], tickmarks-[3,3,0] ); 
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- ak 


15.20. ábra: HUE színek ábrázolása körkörös szalagon 


P :— seg( display( plottoolsípieslicel] ( 
L0,0], 5, Pixri/10..Pixr(it1)/10, 
color-COLOR(HUE, evalf (i1/20)) ), 
scaling-constrained ), i-0..20 ): 

display( íPt, axes-none ); 


VVVYVN 


15.21. ábra: A HUE színkör 


Koordinátarendszerek 


Eddig a legtöbb ábrán Descartes-féle koordinátarendszert használtunk. Való- 
jában a Maple számos rendszer közti választást tesz lehetővé. Lássunk egy 
polárkoordinátákkal fölírt paraméteres görbét (v.ö. 15.22. ábra): 


15.2. A plot opciói 


s plot( [ sin(t), t, t-0..24Pi ], coords-polar, 


5 scaling-constrained ); 


-0.4 -0.2 0.2 0.4 


15.22. ábra: Polárkoordinátákkal definiált paraméteres görbe 
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Hasonlítsuk össze a 15.22. ábrán látható grafikont a 15.1. alfejezet utolsó 
példájával, melyben Descartes-féle koordinátákat használtunk. A plots csomag 
changecoords rutinjával meglévő plotstruktúrákat változtathatunk meg úgy, 
hogy az eredeti (Descartes-félének tekintett) helyett más koordinátarendszert 


adunk meg. (Lásd 15.23. ábra.) 
s Po :— ": ii give the previous plot a name 


5  changecoords( P, elliptic ); 


15.23. ábra: A görbe rajza a koordinátacsere után 
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Figyeljük meg, hogy ez mást jelent, mint az alábbi parancs! 


5  plot( [ sin(t), t, t-0..2kPi ], coordszelliptic, 
5 scaling-constrained ) ; 


15.24. ábra: A görbe képe elliptikus koordinátákban 


A changecoords úgy tekinti, hogy az eredeti plotstruktúrát az alapföltételezés 
szerinti (általában a Descartes-féle) koordinátarendszerben hoztuk létre, s ezt a 
kétdimenziós adatstruktúrát alakítja át az új koordinátarendszernek megfelelő- 
en. A changecoords tehát nem veszi figyelembe, ha a kétdimenziós plotstruk- 
túrát eredetileg esetleg más koordinátarendszerben generáltuk. (V.ö. 15.24. áb- 
ra.) 


Alapbeállítások 


Ha valamelyik plot opció alapföltételezés szerinti értékére vagyunk kíváncsiak, 
a plots csomag setoptions utasítását hívhatjuk segítségül. 

5 restart; with(plots): 

5  setoptions( numpoints ); 
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Elsődlegesen azonban a kétdimenziós ábrázolással kapcsolatos opciók alap- 
beállításának megváltoztatására szolgál ez az eljárás. Ha például a kétdimen- 
ziós ábrákon a tengelyeket a normal helyett mindig a frames-nek megfelelően 
akarjuk föltüntetni, továbbá mindig azonos vízszintes és függőleges skálázást 
kívánunk alkalmazni, írjuk be a 


5  setoptions( axes — frame, scaling - constrained ): 


parancsot, vagy helyezzük el ezt a sort a Maple inicializáló fájlunkban. Mint a, 
következő ábrasorozat is mutatja, a megjelenítést végző parancsokban megadott 
opciókkal bármikor fölülbírálhatjuk az alapbeállításokat. (V.ö. 15.25., 15.26. és 
15.27. ábra.) 


s  plot( In(x), x — 1/2..2 9); 
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15.25. ábra: A természetes alapú logaritmus képe az (2, 2) intervallumon 


5 §?H replot with normal axes 
5 display( ", axes-normal ); 


15.26. ábra: A logaritmus képe más tengelystílussal 


5 tt replot with new display area and egual scaling 
5  display( "", view-[0..2,-2..2], scaling-unconstrained ) ; 
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15.28. ábra: A grafikai primitívekből fölépített háromszög 


A CURVES( . . . ) , AXESSTYLE és SCALING argumentumok azon grafikus objek- 
tum argumentumainak részei, amelyet a következő paranccsal hozhatunk létre: 
hose piett CE dtsils TE 2116 LES MEL AT ak 


pa axes-none, scaling-constrained ): 
5 1print( P ); t print the plot data structure 


PLOT(GURVESEÉLTd , 4.1. T2.. 2.) IZ. 44: Ffiss 1.1) 
COLOUR(RGB,1.0,0,0)) , SCALING(CONSTRAINED) , 


AXESSTYLE(NONE) ) 


A 15.29. ábrát ennek a grafikus objektumnak kiértékelésével kaptuk. 
5 P; tt plot the graphics object 


15.29. ábra: A plot segítségével kirajzolt háromszög 


Általánosabb példát kapunk a képek mögötti grafikus objektumokra, ha az 


21 V2— eve 


egyváltozós valós függvénynek a 15.30. ábrán látható grafikonjához tartozó plot- 
struktúrát tekintjük: 

s 2 x -2 sgrt(2) - sgrt(2rsgrt(x)): 

2."B plot( f(x), x-0..1, y-0..sgrt (2), 

5 titlezígraph of sart (2) - sgrt(2rsagrt(x))" ): 

5 1]print( P ); t print plot data structure 


15.5. Speciális kétdimenziós ábrák 


407 
ticks 


:- [ [0-"0", 3.14-"Pi", 6.28-"2 Pi"], 
[-0.99-"-1",0—"0",0.99-"1"] ]: 

- plot( sin(x), x-0..2rPi, tickmarks-ticks ): 

cosine : 


- plot( cos(x), x-0..2rPi, tickmarks-ticks ): 
display( array( [sine,cosinel) ); tt row of plots 


sine : 


VAN 


15.46. ábra: Grafikonokból álló , sorvektor" 


s  display( array(1..2,1..1, [sine] , [cosine]]) ); 
: §t column of plots 


15.47. ábra: Grafikonokból álló , oszlopvektor" 


A koordinátatengelyek beosztását azért kellett ilyen furcsán megadni, hogy a 
grafikus tömbök megjelenítésekor helyes jeleket kapjunk. 
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1.5 


15.27. ábra: A logaritmus képe új skálázással és képkivágással 


Jegyezzük meg, hogy a display parancsban kizárólag azokat az opciókat bírál- 
hatjuk fölül az előző módon, amelyek megváltozása nem kívánja meg a grafikus 
objektum újraszámolását. Például nem várhatjuk el azt, hogy a numpoints 
opcióval a grafikus objektum újraszámolása nélkül meg lehessen változtatni a 
mintapontok számát. 

A kétdimenziós ábrázolás rutinjaihoz tartozó sok opció leírását megtalálhat- 
juk az online help-ben a ?plot,options utasítással. A fejezet végén fölsoroljuk 
az összes elérhető plot opciót. Ezek közül némelyekről még nem esett szó, de 
használni fogjuk őket a, fejezet további példáiban. A munkalapos felületen a. 
linestyle, thickness, symbol, axes és a projection opció interaktívan is 
megadható. A többieket valamelyik plot utasítással kell beállítani. 


15.3.  Kétdimenziós grafikai struktúrák 


Ahhoz, hogy meg tudjuk ítélni a Maple ábrázolási lehetőségeinek megbízható- 
ságát, elengedhetetlen a rajzolási folyamat megértése. Az ábrák elkészítése két 
fázisban történik. Az első fázisban a rendszer kiszámolja és egy PLOT objek- 
tumba helyezi el az ábrázolandó pontokat. A második fázis ezt az objektumot 
jeleníti meg a képernyőn. Ebben az alfejezetben az ábrázolás első fázisára kon- 
centrálunk. 

A Maple kétdimenziós grafikus objektumai a PLOT függvény olyan hívásai, 
amelyekben az argumentumok a tengelyeket, az ábrázolandó függvényt, a ki- 
számított pontokat, az ábrázolás stílusát stb. írják le. A következő objektum az 
(1, 1), (2, 2) és (3, 1) koordinátájú csúcsok által meghatározott háromszöget írja 
le. (Lásd a 15.28. ábrát.) 


a PLOT CURNBÓK 1 fáali, 1250 s ils eb abd 2, 
s AXESSTYLE (NONE) , SCALING(CONSTRAINED) ); 
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PLOT(CURVES([[(O0, 1.414213562373095] , 
L.6811610677083333e-3, 1.185744472197018] , 
L.1362322135416667e-2, 1.1425164947775061] , 


L[.9782721018750000, .7745369848915162e-2], [1., 0]], 
COLOUR(RGB,1.0,0,0)), 

AXESLABELS (x,y) , 

TITLE( "graph of sgrt(2) - sgrt(2rsgrt(x))"), 

VIEWCO .. 1.,0 .. 1.414213562)) 


A Maple az adott intervallumon értelmezett egyváltozós valós függvényekhez 
egy grafikus objektumot rendel. Az objektum szabályos Maple adatstruktúra, 
a rendszer ezt használja az ábra kiszámolt pontjai közötti lineáris interpolá- 
cióra. 

5 P; 4 display the graph 


graph of sart(2) - sart(2:tsart(x)) 


15.30. ábra: A 24?2(1 — x!/4) grafikonja 


Először a plot hívásának a függvényt leíró argumentuma értékelődik ki. Ez- 
után a mintapontokban fölvett függvényértékek numerikus közelítéseit számolja 
ki a rendszer. A megjelenítés fölgyorsítása érdekében rendszerint a hardveres 
lebegőpontos aritmetikát használja. 

A Maple úgy tud szép sima görbéket előállítani, hogy szükség esetén bizonyos 
algoritmus szerint növeli a mintapontok számát. Először az adott intervallumon 
ekvidisztánsan kijelölt 49 mintapontban számolja ki a. függvényértékeket. Eze- 
ket a pontokat egyenes szakaszokkal! köti össze. Ha két egymáshoz csatlakozó 
szomszédos szakasz által bezárt szög túl nagy, a rendszer további mintapontokat 
vesz föl az illető pont körül. Természetesen a fölosztás nem folytatódhat minden 
határon túl; maximális mértéke a resolution opcióval szabályozható, melynek 
alapértelmezése 200. Így tehát alapértelmezés szerint a mintapontok száma 49 
és 200 közé eshet. 
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Az ábrák ,zoomolását" (kinagyítását vagy lekicsinyítését) aplots csomag display 
parancsával érhetjük el: 


5 display( P, view-[0..0.01, 1..sgrt(2)], titlez 
s "200med-in graph of sgrt(2) - sgrt(2rsgrt(x))" ); 


200med-in graph of sart(2) - sart(2"-sart(x)) 


1 ü s. 0.008 0.01 


15.31. ábra: A 24?(1 — x1/) kinagyított grafikonja 


Az előző példában zxz kicsi értékeire már az adaptív mintavételezési sémát 
alkalmazta a Maple. Erről tájékoztat is bennünket, ha az infolevel[plot] 
változó értékét megnöveljük: 

s  infolevell[plot] :- 2: 

5  plot( f(x), x-0..1, y-0..sgrt(2) ): 


plot/adaptive: — evalhfí succeeded 
plot/adaptive: — produced 59. output segments 
plot/adaptive: — using 59. function evaluations 


Összehasonlításul állítsuk át az adaptive opciót a false értékre: 
s  plot( f(x), x-0..1, y-0..sgrt(2), adaptive-false ): 


plot/adaptive: evalhf succeeded 
plot/adaptive: produced 49. output segments 
plot/adaptive: — using 49. function evaluations 


Most az alapértelmezésnek megfelelően csak 49 ponttal számolt a Maple. Az 
adaptív mintavétel hatása még nyilvánvalóbb, ha a sample plot opcióval explicit 
módon megadjuk a mintapontok kiinduló halmazát: 

5  infolevel[plot]:-i1: it reset information level 

5  plot( x72, x50..1, sample — [0,1/2,1], adaptive-true ); 

s  plot( x72, x-0..1, sample - [0,1/2,1], adaptive-false ); 
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Hasonlítsuk össze a két esetnek megfelelő 15.32. és 15.33. ábrát. 


0.8 Vá 
V 
zZ 
ó6 Z 
sz 
Fú 
Z 
0.4 zZ 
z 
W 
0.2 Ps 
átt 012 ota 706 hr gás i 


15.33. ábra: Az TH r? néhány kezdeti mintaponttal megadott nem adaptív 
grafikonja 


Valahányszor a 15.34. ábrához hasonló szabálytalanságokat veszünk észre egy 


sző gt ábrázolja a (—5,5) intervallumon), 
1— cosőz 

megpróbálhatunk a mintapontok számának növelésével jobb ábrát és szebb, si- 
mább görbét elérni. Ehhez csak a numpoints opciót kell nagyobb értékre állí- 


tani. (V.ö. 15.35. ábra). 


grafikonon (ez egyébként az 
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s  plot( x/(1-cos(5rx)), x—--5..5, -5..5 ); 
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15.34. ábra: Az 15 m—udez vázlatos grafikonja, 


s  plot( x/(1-cos(5rx)), x--5..5, -5..5, numpoints-200 ); 
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15.35. ábra: Az 25 sás; skisimított" grafikonja 


A plotstruktúrák hasonlóak a Maple többi adatstruktúrájához. Ezek is átala- 
kíthatók, fájlba menthetők és onnan visszaolvashatók. Példaként tekintsük a 


következő lépcsősfüggvényt: 
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5 step :— plot( 2rHeaviside(x-1) - 1, xz-1..2, 
5  discont-true, thickness-15 ): 
: step; $ display the graph 


! TEKERTE ON A HOSE TTE 


fe ÉGES 


15.36. ábra: A 2 Heavisideím — 1) — 1 lépcsősfüggvény grafikonja 


Most mentsük el a step-et a graph.m nevű fájlba. 


5 save step, "graph.m": 


A step változóhoz a NULL értéket rendeljük, így a graph.m fájl beolvasása után 
látható lesz, hogy ismét régi értékét vette föl: 


5: step :— NULL: $ reassign the variable 
5 read "graph.m": ti load the graph 
: step; $ display the graph 


Könnyen meggyőződhetünk róla, hogy ismét a 15.36. ábrát kaptuk. Az adat- 
struktúra egyszerű átalakítását jelenti a thickness opció megváltoztatása. Mi- 
vel a görbe vastagságát megadó információ a plot adatstruktúra CURVES( . . . ) 
komponensének belsejében található, továbbá a, plots[display] parancs ezt a 
komponenst nem változtatja meg, a vonalvastagság gyors megváltoztatásához 
vagy helyettesítést kell végeznünk, vagy újra kell generálnunk a plotstruktúrát 
a plot paranccsal. (V.ö. 15.37. ábra.) 


5  subs( THICKNESS(15)-THICKNESS(1), step ); 


15.37. ábra: A 2 Heaviside(m — 1) — 1 lépcsősfüggvény újrarajzolása más vonal- 
vastagsággal 
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15.4. A plottols csomag 


Folytassuk tárgyalásunkat a kétdimenziós grafikus objektumok leírásával. Az 
előző alfejezetben találkoztunk a CURVES(...) alacsony szintű grafikai primi- 
tívvel, ott a 


CURVES([[1., 1.], [2., 2.], [3., 1.], [1., 1.]], COLOUR(RGB, 1.0, 0, 0) ) 


példát említettük. A. teljes plotstruktúrához hasonlóan a grafikus primitíveket 
is függvényhívásokként implementálták a Maple-ben. Ezek általános alakja, 


ObjectName( Objeciilnformation, Locallnformation ). 


A fönti példában CURVES az objektum neve, a pontok listája jelenti az objek- 
tumhoz tartozó információt és a szín megadása olyan lokális információ, amely 
a görbe színét határozza meg. A kétdimenziós megjelenítésnél előforduló egyéb 
objektumnevek POINT, POLYGONS és TEXT. A lokális információt is függvényhívá- 
sokként implementálták. Az itt szereplő tipikus nevek többek között AXESSTYLE, 
AXESTICKS, COLOUR, FONT, THICKNESS és VIEW. A lokális információra vonatkozó 
összes nevet a ?plot structure parancs írja ki. Ezeket a, grafikus primitíveket 
mindig nagybetűvel írjuk; használhatjuk az amerikai helyesírásnak megfelelő 
alakjukat is. Segítségükkel grafikus objektumokat építhetünk föl. Például hoz- 
zunk létre egy határvonalak nélküli kék négyzetet mindkét irányban azonos 
skálázással a koordinátatengelyek föltüntetése nélkül: 
PLOT( POLYGONS( [[0,01, [1,0], [1,1], [(0,111, 
COLOR( RGB,0,0,1) ), 
AXESSTYLE(NONE) , STYLE(PATCHNOGRID) , 
SCALING(CONSTRAINED) ); 


VVVVY 


15.38. ábra: A fölhasználó által megadott színű, tengelyek és határvonalak 
nélküli négyzet 


Másik példánk olyan egyenlőoldalú háromszög, amelynek oldalegyeneseit vörös 
színű vastag szaggatott vonalakkal rajzoltuk meg, belsejében pedig kék színű, 24 
pontos, dőlt Helvetica betütípussal az , eguilateral triangle" szöveget helyeztük 
el. 
PLOT( 
CURVES( [[0,0],[1,01,[1/2,1/25sgrt(3)1],[0,01], 
COLOR( RGB,1,0,0), THICKNESS(15), LINESTYLE(3) ), 
TEXT( [1/2,1/6rsgrt(3)], "eguilateral triangle" , 
COLOR(RGB,0,0,1), FONT( [HELVETICA , BOLDOBLIGNUE , 241) ), 


s ANOÁÓD RÁN 
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5 AXESSTYLE(NONE) , SCALING(CONSTRAINED) ); 


Plotting error, non-numeric vertex definition 


Szándékosan adtuk meg hibásan az utasítást: a grafikai primitívek csak numeri- 
kus adatokat tartalmazhatnak, ezért £v3 helyett például a 0.866 lebegőpontos 
közelítését kell megadnunk. A. helyes input tehát a következő: 


s  PLOT( 

CURVES( [[0,0],L1,0],[1/2,0.8661,[(0,011], 
COLOR(RGB,1,0,0), THICKNESS(15) , LINESTYLE(3) ), 

TEXT( [1/2,0.289], "eguilateral triangle" , 
COLOR(RGB,0,0,1) , FONT(HELVETICA , BOLDOBLIGUE , 24) ), 

AXESSTYLE(NONE) , SCALING(CONSTRAINED) ) ; 


MENNE NÉ 


eguilateral triangle 


15.39. ábra: Egyenlőoldalú háromszög közepébe írt szöveggel 


Ezek a példák is azt illusztrálják, hogy mennyire fárasztó lenne, ha grafikus 
objektumainkat állandóan az alacsony szintű grafikus primitívekből kellene föl- 
építenünk. Nagyon kényelmes lenne egy olyan gyűjtemény, amely a gyakran 
használt építőelemeket tartalmazná. Van is ilyen a Maple-ben: a plottols 
csomag. A plots csomaggal együtt alkalmazva bonyolult grafikai feladatokat is 
meglepően könnyen megoldhatunk segítségével. Például az előző ábrákat így is 
előállíthattuk volna (ugyanazokat a képeket kapjuk, ezért a rajzokat kihagytuk): 


5 with(plots): with(plottools): tt loadpackages 

5 §H blue sguare 

5  display( rectangle( [(0,0], [1,1], color-blue), 

ped axes-none, style-patchnogrid, scaling-constrained ) ; 
5 it eguilateral triangle with text inside 

5 lines :- 

5 curve([[0,01,[1,0] , [1/2,1/2rsgrt(3)] , [0,0]1 , 

p. color-red, thickness-15, linestyle-3 ): 

5 text :(— 

5 textplot( [1/2,1/6rsgrt(3), "eguilateral triangle"], 
5 color-blue, font-[HELVETICA , BOLDOBLIGUE , 24] ) : 

s  display( ílines, text), axes-none, scaling-constrained ); 
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Ha az előző példák nem győzték meg az Olvasót a plottols csomag hasznos- 
ságáról, próbálja meg a grafikai primitívekkel fölrajzolni a, 15.40. ábrán látható 
nevető arcot: 


s head :— ellipse( [0,0.5], 0.7, 0.9, colorzblack ): 
5 eyes :— disk( [0.4,0.4],0.1, color-blue ), 

. disk( [-0.4,0.4],0.1, color-blue ): 

5 mouth :— arc( [0,0.i], 0.35, 5/4xPi..7/4xPi, 

s colorsred, thickness-7 ): 

s nose :5s line( [0,0.35], [(0,-0.1], color-black, 

B thickness-5 ): 

5  display( (head, eyes, nose, mouth), 

5 scaling-constrained, axes-none ); it happy face 


15.40. ábra: Nevető arc 


A plottools csomagban vannak olyan függvények is, amelyekkel egy meglévő 
grafikus objektumot alakíthatunk át (a 15.1. táblázatban soroltuk föl őket). A 
plots csomag changecoords eljárásával együtt ezek a Maple eljárások alkal- 
mazhatók grafikus adatstruktúrák közti leképezések realizálására. 


Eljárás Hatása 

rotate elforgatás az óramutató járásával szemben 

scale skálázás 

stellate csillagpoligonok generálása 

transform a. plotstruktúrát transzformáló függvény gene- 
rálása 


translate a grafikus struktúra transzlációja 


15.1. táblázat: A plottools csomag grafikus objektumokat kezelő függvényei 


Készítsünk ezekkel az eljárásokkal különböző színű nyilakból álló olyan soroza- 
tot, ahol az egyes nyilak eltérő méretűek, de úgy vannak eltolva, hogy hegyük 
vége mindig az egységkörön legyen. A nyilakból álló spektrum a 15.43. áb- 
rán látható. Kiindulásul egy vízszintes állású vastag nyilat rajzolunk. (Lásd a 
15.41. ábrát.) ; 
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al0] :- display( arrow( [0,0], [1,0], 0.1, 0.4, 0.2 ), 
color-COLOR(HUE, 0) , axes-none, scaling-constrained ): 
alol; t display the horizontal arrow 


15.41. ábra: Vízszintes nyíl 


Változtassuk meg a, nyíl helyzetét például a következő módon: forgassuk el az 


óramutató járásával megegyező irányban 5-vel, skálázzuk minden irányban 7- 


ú. 
4 


szeresére, végül toljuk el negatív irányban 5-del a függőleges tengely mentén. 
(Lásd a 15.42. ábrát.) 


2 
2 
pa 
pl 


display( al[0], 
translate( scale( 
rotate( al[0],-Pi/2 ), 
1/4, 1/4 ), 0,-3/4 ) ); 


vs 


l 


15.42. ábra: Az eredeti és az elforgatott, skálázott, majd eltolt nyíl 


Mivel a rotate, scale, translate és a display eljárások hívása nem tartalmaz 
olyan opciót, amellyel a nyíl színét meg tudnánk adni, a nyilspektrum alábbi 
generálásakor helyettesítéssel specifikáljuk a megfelelő színeket: 


MEGNE ATOT ANT 


fon 1. to 15.do 
ali] :— subs( COLOR(HUE,0) - COLOR(HUE, i/16) , 
translate( scale( 
rotate( a[0], ixrPi/8 ), 
(16-i)/16, (16-i) /16 ), 
i/16rcos(Pixri/8), i/l6rsin(Piri/8) ) ) 
od: 
display( [ seg(ali]l,i-0..15) ], scaling-constrained ); 
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15.43. ábra: Különböző HUE színekből álló nyílspektrum 


A transform eljárással koordinátarendszerek közti transzformációkat végezhe- 
tünk. Példaként tekintsük egy derékszögű rácshálózat átalakítását a polárkoor- 
dinátáknak megfelelő beosztássá. 


f :— transform( (r,phi) -2 [ rrcos(phi), rtsin(phi) hd 
display( array( [ grid, f(griad) ] ), 
scaling-constrained ); 


5 hpoints :— [ seg( [ seg( [i/16,jrPi/8)] , 

b 1-0..16) 1], j-0..16 )]: 

s hlines :-— map( curve, hpoints ): 

5 vpoints :— [ seg( [ seg( [i/16,j:Pi/8] , 

s j-O..16) ], 1-0..16 )1: 

s vlines :— map( curve, vpoints ): 

s grid :— display( hlines,vlines, axesz-fírame ) 
52 

5 

5 


80-80 1.do 


15.44. ábra: Négyzethálós beosztás transzformálása Descartes-félékről polárko- 
ordinátákra 


Itt a plots csomag display eljárásának azt a tulajdonságát használtuk föl, 
hogy képes több ábrából álló grafikus tömbök megjelenítésére is. A jobboldali 
beosztás szebben is kirajzoltatható a plots csomag coordplot rutinjával. 
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15.5. Speciális kétdimenziós ábrák 


Az előző példák már jól illusztrálták, hogy a grafikus megjelenítés az egyválto- 
zós függvények grafikonjának fölrajzolásánál sokkal több lehetőséget kínál. Eb- 
ben a részben a plots csomag részeként elérhető további kétdimenziós grafikai 
lehetőségeket sorolunk föl. Emlékeztetünk rá, hogy a fejezet többi részéhez ha- 
sonlóan most is föltesszük, hogy minden mintaként közölt Maple-szekció elején 
a with(plots) paranccsal betöltöttük ezt a csomagot. 


Ábrák összekapcsolása 


Az ábrák összekapcsolásának példájaként közös koordinátarendszerben ábrázol- 
juk a szinusz és a koszinusz függvényt úgy, hogy a hátteret fehérre, a két grafikon 
közti területet pedig vörösre festjük: 


5 sine :— plot( sin , 0..4xPi, color-black, thickness-3 ): 
5 s :5- plot( sin, 0..43xPi, filled-true, color-red ): 
5 cosine :— plot( cos, 0..4xPi, color-black, 

pl thicknessz-3 ): 

5 c :5— plot( cos, 0..4:rPi, filled-true, color-red): 
5 Í :- x -5 if cos(x)20 and sin(x)20 then 

0. min(cos(x) , sin(x)) 

5 elif cos(x)c0 and sin(x)c0 then 

5 max (cos (x) , sin(x)) 

b else 0 

5 fú 

5 b :-— plot( f, 0..4xPi, filled-true, color-white ): 
,  display( ([ sine, cosine, b, s, c ], 

5 scaling - constrained ); 


15.45. ábra: Ábrák összekapcsolása 


Az előző display parancsban lényeges a, grafikonok sorrendje: megjelenítésüket 
a listában balról jobbra haladva, az ábrákat mindig az előzőek mögé helyezve 
végzi a rendszer. Ezért a b háttérszínt a, szinusz függvény és a vízszintes tengely 
közti árnyékolás tetejére festve látjuk. Erről úgy is meggyőződhetünk, hogy a 
fönti konstrukcióban három színt használunk árnyékolásra. 

A display eljárással , derékszögű grafikus tömbként" egy rajzon egymás mel- 
lett több ábrát is megjeleníthetünk. (V.ö. 15.46 és 15.47. ábra.) Tekintsük a 
következő két példát: 
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Algebrai síkgörbék ábrázolása 
A plots csomagban találjuk az implicitplot eljárást, amely egyenlettel mega- 
dott kétdimenziós síkgörbék megrajzolására szolgál. (Lásd 15.48. ábra.) 

5  implicitplot( x73 t y73 - 5Brxiy t 1/5 — 0, 

5 x--3..3, y--3..3, grid-[50,50] ); 


15.48. ábra: Az 33 4 y? — 5ry 4 1/5 — 0 implicit görbe képe 


A Maple lényegében a következő módszert alkalmazza: az egyenletet háromdi- 
menziós térbeli függvénynek tekinti és ennek veszi a z2-síkkal való metszetét. Az 
eljárás egyik hátránya, hogy durva ábrát generál (v. ö. az előző példa ábráját a 
grid opció elhagyásával kapottal), továbbá nem garantálja az ábra helyességét 
a szinguláris pontok környezetében és a görbék önátmetszésénél. ÁAlgebrailag 
ez azt jelenti, hogy a Maple-nek az f(z,y) — 0 görbe azon (z,y) pontjainak 
ábrázolásával lehetnek gondjai, ahol mind a (xy), mind a 57(7,y) parciális 
derivált nulla. Ilyen például a 


22" 4 yt — 377y —2y? 4 y? —0 


függvény, amelynek két szinguláris pontja van, a (0,0) és a (0,1), itt a görbe 
ágai átmetszik egymást (v.ö. [195]). A Maple még akkor sem képes helyesen 
fölrajzolni az ábrát az implicitplot segítségével, ha nagyon finom beosztást 
használunk. Így például 300 x 300-as ráccsal a SPARCStation 20 Model 71 
típusú munkaállomáson 18 perces számolás és 20 Mb memória fölhasználása 
után sem kaptunk kielégítő pontosságú eredményt az origó körül (az ábrát el- 
hagytuk). Ebben az esetben sokkal célszerűbb a görbe polárkoordinátás alakját 
kiszámolni és ezt ábrázolni a polarplot paranccsal. (Lásd 15.49. ábra.) 

:  subs( x-rtcos(phi), y-rtsin(phi), 

5 2xx74 4 y74 - 3rx72xy - 2ry73 4 y72 ): 


15.5. 


ed 


Speciális kétdimenziós ábrák 409 


factor("); 


2? (2r? cos(g)" 4 r? sin(d)! — 3 r cos(d)? sin(6) — 2r sin(d)? -- sin(g)?) 


5 egn :— op(2,"): 
5  sols :— map( combine, í solve(edgn,r) b ); 
ásléréss Tés sin($) - sin(3 $) — sin($) 30 -- 8 cos(2 6) — 22 cos(4 6) 
tö 9 3 cos(4 9)  4cos(2 4) " 
9 sin(d) -- sin(3 6) - sin($) 430 -- 8 cos(2 4) — 22 cos(4 9) ) 
9 1 3 cos(4 6) 4 4cos(2 b) 

s  sols :— map( unapply, sols, phi ): 

5  polarplot( sols, 0..23Pi, view-[-5/2..5/2,0..9/4] , 

5 scaling-constrained, color-black ); 


15.49. ábra: Polárkoordinátákka! számított paraméteres ábrázolás 


Logaritmikus ábrázolás 

A Maple plots csomagjának logplot, semilogplot és loglogplot eljárásaival 
logaritmikus (lásd 15.50. ábra), szemilogaritmikus (vagyis a vízszintes tengelyen 
logaritmikus skálázású) és duplán logaritmikus (lásd 15.51. ábra) grafikonokat 
készíthetünk. 


2 


pl 
2 
- 
Be 


ft use a random number generator for uniform distribution 
noise :-— stats[ random, uniform[0,0.1] J]: 
plotpoints :— [ seg( [ 0.2ri, 
exp(0.2ri) 4 noise() 1], i-0..20 ) J: 
logplot( plotpoints, style-point, symbol-circle ); 
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jázy ! zi gaz 
15.50. ábra: Logaritmikus grafikon 
5  loglogplot( x73 4 exp(-x), x-1/10..50, numpoints-200, 


5 tickmarks-[3,4], labels-["x","x73 4 exp(-x)"], 
5 scaling-constrained, axes-fírame ); 


18105 8; 
10000. 


1000. 
x"3 § exp(-x) ?ú 


100. 
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y. 
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15.51. ábra: Duplán logaritmikus grafikon 


Grafika 


Meggyőződhetünk róla, hogy , jó" ábra eléréséhez az utóbbi esetben szükséges a 


numpoints opció. 


A villamosmérnökök általában a , Bode-féle ábrázolásnak" nevezett szemilo- 
garitmikus megjelenítéssel dolgoznak. Tegyük föl, hogy valamely elektromos 
áramkörben adott frekvenciatartomány esetén a következő válaszfüggvény sze- 


rinti Vout feszültség keletkezik: 
5 alias( J-I, J-sgrt(-1) ): 
5  Vout :— 1/(-12kJtomega73-24omega"7247rJkromegat1) ; 
1 


LÉKET ETETTEK ETTE] 
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A Bode-féle ábrázolásnál a kimenő feszültség nagyságát decibelben (vagyis a 
20"91ogr-nek megfelelő egységekben) mérjük, és szemilogaritmikus skálázással 
rajzoljuk föl. (Lásd 15.52. ábra.) 
5: magnitude :— 20x1og[10]( evalc(abs(Vout)) ); 
1 


ln 
ÖYZETZTTT -4- 45 w2 31-44 144 wf 
In(10) 


) 


magnitude :— 20 


5  M :-— semilogplot( magnitude, omega-0.01..10, 
labels-[ "omega " , "magnitude "] ): 
5 M; $§ display magnitude 


v 


; 
fi 
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15.52. ábra: A feszültség nagyságának Bode-féle ábrázolása, 


A Bode-féle ábrázolásnál a kimenő feszültség fázisszögét, más néven argumen- 
tumát is föltüntetik. (Lásd 15.53. ábra.) 


5 phase :- evalc( argument (Vout) ); 
h kant —12w3 34 7w 
ase :— arc , 
8 (—242 41)2-(—1243 374w)2 
—2w2? 41 


(—2w2 4 1)2 4 (—12w83 792) 


5: P :- semilogplot( 180/Pikphase, omega — 0.01..10, 
labels-[ "omega ", phase "1 ): 
5 P; H display phase 


a 
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:1000000000€-1..... .19000900000 
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-100 


15.53. ábra: A fázisszög Bode-féle ábrázolása 


A Bode-féle ábrázolás valójában a két előző grafikon egymás alá helyezett, együt- 
tes megjelenítését jelenti (15.54. ábra). 


s  display( array(1..2,1..1, [IMI ,[PJ]) ); 


.1000000$00——— 


. L000OOOÓBOEZT SS OÓB0 


15.54. ábra: Bode-féle ábrázolás 


Az előző parancsokat összefoglalhatjuk egy eljárásba is. Az alábbiakban olyan 
Bodeplot nevű eljárást definiálunk, amely a plotopciók megfelelelő beállítását 
is elvégzi (v.ö. 15.55. ábra). 

5  Bodeplot :-— proc( voltage, domain ) 
local M, P, 1, magnitude, omega, opts, 

phase, r, toption; 

if not typematch( domain, 

omega: :name - l::algebraic..r::algebraic) then 


Mel KN 


15.5. 


VÁRT MV NIEN NN E EN 
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ERROR( "invalid input") 
elif not type( voltage, ratpoly(anything, omega) ) then 
ERROR( "input must be a rational function in" , omega) 
Tiz 
opts :5 [ args[3..nargs] 1; 
if not hasoption( opts, "thickness?, toption, ?opts? ) 
then toption:—2 ítt default thickness 
is 
1l :— evalf(1); r :— evalf(r); 
M :— plots[semilogplot] ( 
20£x1o0g[10]( evalc(abs(voltage)) ), 
omega-1..r, "thickness?-toption, 
labels-[omega ,magnitude)] , op(opts) ); 
P :- plotslsemilogplot]( 
180/Pixrevalc(argument (voltage) ) , 
omega-1..r, "thickness?-toption, 
labels-[omega,phase)l, op(opts) ); 
plots[ [display] ( array(i..2,1..1, CIM] , [P]1])) ; 


end: 
Bodeplot( Vout, omega-0.01..10, thickness-5, 


colorsblue, numpoints-200); ítt greater thickness 


Néhány megjegyzést is fűzünk ehhez a kis grafikai programhoz. Az első föltételes 
utasítással az input helyességét ellenőrizzük. Ezután az opcionális argumentu- 
mokat tároljuk az opts nevű változóban, és azt is megnézzük, hogy szerepelt-e 
a thickness opció. Ezt a hasoption eljárással végezzük el. Ha megadtuk a 
thickness opciót, a hasoption gondoskodik megfelelő kezeléséről. Amennyi- 
ben nem fordult elő ez az opció, az alapföltételezés szerinti 2 értéket vesszük. 
Maple eljárásoknak így szokás opciókat és alapföltételezés szerinti értékeket át- 


adni. 


5 


alias( J-J, Issgrt(-1) ): tt I - sgrt(-1) again 
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Komplex görbék 

Komplex görbék, vagyis az R-ből C-be leképező függvények a, complexplot 
eljárással ábrázolhatók. Elegendő lesz egyetlen példa, (lásd 15.56. ábra). Emlé- 
keztetjük az Olvasót, hogy I— V—1. 


5  complexplot( sin( Pi/3 4 trI ), t — -1..1 ); 


15.56. ábra: A t - sin(7 - ti)-nek megfelelő komplex görbe 
Konformális leképezések megjelenítése 


A plots csomag conformal eljárásának használatára is egy példát ismertetünk. 
A z — 1/z komplex függvény a komplex síkban fölvett, a 15.57. ábrán látható 
négyzetrácsot a 15.58. ábrán látható vonalhálózatba viszi át. 


5  conformal( z, z--1-I..141, grid-1]25,25], 
5 axeszírame, scaling-constrained ); 
Ea 
15.57. ábra: Négyzetrács a komplex síkban 
5  conformal( 1/z, z--1-I..1-I, grid-[25,25], 
. numxy-[100,100], axes-fírame, 


5 scaling-constrained, view-[-6..6,-6..6]); 
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1 
15.58. ábra: Az nH 5 komplex függvény konformális ábrázolása 


A 15.58. ábra az eletromos dipólus kétdimenziós megfelelőjével, vagyis nagyon 
közeli párhuzamos egyeneseken elhelyezett, két ellentétes töltés által létrehozott 
elektromos mező képével kapcsolatos. 

Vektormezők ábrázolása 

A. fieldplot eljárást kétdimenziós vektormezők fölrajzolására használjuk. Első 
példánk a következő (lásd 15.59. ábra): 


5  fieldplot( [cos(x),cos(y)], x--2xPi..2xrPi, y--2rPi..2xPi, 
5 arrows-SLIM, grid-[11,11], axes-box ); 


Tess sg egét ab eg sz 
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ae 


cos x, cos y] mező képe a [—2r, 27] x [-27, 27] négyzeten 
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A gradiensmező megjelenítésének példájaként azt az elektromos mezőt fogjuk 
ábrázolni, amely két egységnyi távolságú párhuzamos egyeneseken egyenletesen 
elhelyezkedő ellentétes polaritású, hosszúságegységenként 1 egységnyi töltések 
hatására keletkezik. Valójában az ry-síkra merőlegesen fölvett töltéshordozó 
egyeneseket végtelennek tekintjük, a negatív töltésű a (—1, 0), a pozitív az (1,0) 
ponton halad át. Ha az ry-sík Fi; vektorokkal megadott pontjain haladnak át a 
töltéshordozó l; egyenesek, a F helyen a é elektrosztatikus potenciál a következő 
általános képlettel határozható meg: 


Üss sz 2 In(distance( P, P). 


sz; 
A töltéseloszlás által létrehozott elektromos mezőt E — —Vd definiálja. Ha az 
per skálafaktort 1-nek választjuk, esetünkben ez a következőt jelenti: 


5  phi :-— In( sgrt((xt1)72ry72) ) - In( sgrt((x-1) 72tyr2) ); 


$ :- In(V3? 125414 y?) —ln(V32—27-11-4y?) 


A kétdimenziós gradiens vektor a következő módon számítható és ábrázolható 
(lásd 15.60. ábra): 


5 gradplot( -phi, x--2..2, y--1..1, 
53 arrows-THICK, grid-[11,11], axes-box ); 
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15.60. ábra: Egyenes töltéseloszlás eletromos tere 


A 17. fejezetben a DEtools csomag tárgyalásánál még visszatérünk erre a példá- 
ra. A megfelelő ekvipotenciálisok, vagyis a konstans eletrosztatikus potenciálnak 
megfelelő görbék a szintvonalas ábrázolás segítségével kaphatók meg. 
Szintvonalas és sűrűségi ábrák 

Előző példánkat folytatva rajzoljuk föl az elektrosztatikus potenciálhoz tartozó 
szintvonalakat (15.61. ábra): 


5  contourpiot( phi, x—-2..2, y--1..1, color-black, 
5 numpoints-500, axes-box, contours-10 ); 
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r 
0.5 
y 
-0.5 
Ü - ——— Ge - —- —f—— 
i 1.5 


STB WE TEST Ó 0-5 
x 


15.61. ábra: Az elekrosztatikus potenciál ekvipotenciálisai 


Azt is megadhatjuk, hogy milyen szinteket kívánunk az ábrán szerepeltetni, sőt 
az egyes szintek színezését is előírhatjuk (az alábbi rajzhoz szürkeárnyalatokat 
választottunk, v.ö. 15.62. ábra). 

5  contourplot( phi, x--2..2, y--1..1, 

pl numpoints-5O00O, axes-box, filled-true, 

s contours-[seg(i/4,i-—-6..6)], coloring-[white,black] ); 


15.62. ábra: Az elektrosztatikus potenciál megadott szinteknek megfelelő ekvi- 
potenciálisai 


Kis extra munkaráfordítással az egyes szürkeségi szintek jelentését megadó ma- 
gyarázó föliratot is készíthetünk. Megmutatjuk, hogy viszonylag egyszerű esz- 
közökkel mit érhetünk el: 
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CP :— ": it store contour plot 
legendcolors :-— seg( 
plottoolsírectanglel]( fo, i/4], [1,(ir1)/4], 
color-COLOR( RGB, 1-(it7)/13, 1-(it7)/13, 1-(i47)/13) ), 
i--7..6 ): 
legendtext :-— seg( 
textplot( [1.5, i/2, convert(evalf(i/2,2) , name) ]J , 
font-[HELVETICA , BOLD, 10] ), i--3..3 ), 
textplot( [1.5, 2, Heights], font-[HELVETICA,BOLD, 10] ), 
textplót( I3:5, 2, § 5] JG 
LP :- display( (legendcolors, legendtext), 
axes-none, scaling-constrained): it store legend 
display( array(ICP,LP]) ); t display in vector layout 


ZENET NR AB ADÉL ALA 


Heights 


1.5 


15.63. ábra: Az elektrosztatikus potenciál jelmagyarázattal ellátott szintvonalas 
ábrája 


A dó elektrosztatikus potenciál sűrűségi ábrázolását a densityplot eljárással 
hozhatjuk létre. (Lásd 15.64. ábra.) 


5  densityplot( phi, x--2..2, y--1..1, 
5 grid-[80,80], axes-box, styles-patchnogrid, 
53 colorstyle-HUE ) ; 


15.64. ábra: Az elektrosztatikus potenciál finom rácsbeosztással készült sűrűségi 
ábrája 
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15.6.  Síikgeometria 


A geometry csomagban az euklideszi síkgeometria tanulmányozását elősegítő 
eszközöket találunk. A. csomag geometriai és grafikai lehetőségeiről elegendő 
képet ad a következő két példa. 


Apollonius tétele. Tetszőleges derékszögű háromszögben a három oldalfele- 
ző ponton áthaladó kört megrajzolva a magasságok talppontjai is ugyanezen a 
körön lesznek. 


Lássuk, hogyan illusztrálható és , bizonyítható" a tétel a geometry csomag 
segítségével. Először töltsük be a csomagot, és definiáljuk az OAB háromszöget: 


5  With(geometry): it load geometry package 

s  assume( x20, y20 ): ii assume positive lengths 

5 triangle(T, 

b. C point(0,0,0), point(A,x,0), point(B,O,y) ] ): 


Ezután adjuk meg az oldalfelező pontokat és az általuk meghatározott kört: 


5 midpoint( D, 0, A ): 
midpoint( E, A, B ): 
midpoint( F, 0, B ): 
circle( C, [D, E, F ] ): 


We MEN 


Legyen G az O csúcshoz és az AB oldalhoz tartozó magasság talppontja: 


5  projection( G, 0, line(?dumnmy? , [A,B]) ): 
s line( L, [OG] ): ft altitude 


A geometry csomag legfontosabb képessége, hogy olyan geometriai kérdése- 
ket is föltehetünk, mint például , Rajta van-e ez a pont az egyenesen?" vagy 
, Merőleges-e a két egyenes?". A tétel helyességét tehát úgy ellenőrizhetjük, 
hogy megkérdezzük a Maple-től, vajon rajta van-e a G pont a C körön. 


5  IsOnCircle( G, C ); 
true 


Válasszunk ki egy meghatározott 7 háromszöget, és rajzoljuk föl a megfelelő 
ábrát: 

5 assign(x,2): assign(y,1): 

5 draw( [I C(printtext-false), T, D, E, F, G, L ], 

. axes-none, thickness-3, font-[HELVETICA , BOLD, 10] , 

5 color-blue, scaling-constrained ); 


Ahogy a fönti parancsból is látható, a geometry csomagban elérhető objektu- 
mok grafikus megjelenítését a draw eljárás végzi. Mind az egyes objektumokra 
vonatkozó lokális, mind globális plotopciókat alkalmazhatunk. A következő pél- 
dában az ábra csinosítására erősen ki is használjuk ezt a sajátosságot. Most 
csak annyit mondtunk a, Maple-nek, hogy az Apollonius kör középpontját ne 
rajzolja meg. 
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15.65. ábra: Apollonius tételének illusztrációja 


A fönti tétel algebrai jellegű levezetését az [51] 6.4. alfejezetének 3. példája 
tartalmazza. 


Simpson tétel. A háromszög körülírt körének tetszőleges pontjából a három 
oldalegyenesre bocsátott merőlegesek talppontjai egy egyenesre esnek. 


Lássuk, hogyan tudjuk grafikusan illusztrálni és , bizonyítani" ezt a tételt. 
Először az OAB háromszöget és C körülírt körét definiáljuk: 


, triangle(T, 
ba [I point(0,0,0), point(A,3,0), point(B,2,2) ] ): 
5 círcumciírcle( C, T ): 


Ezután a kör egy D pontját adjuk meg. Olyan föltételt kell találnunk, amely 
azt írja le, hogy egy tetszőleges (u, v) pont mikor van rajta a C körön: 


5  point(D, u, v ): 
s  IsOünCircle( D, C, "condition? ); 


IsünCircle: 
hint: unable to determine if u72tv72-3tku-v is zero 


FAIL 


5 condition; 
a 4 
47 4v—-34—v—-0 
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Tegyük föl, hogy teljesül ez a föltétel: 


5  assume(condition): 


A D pontból az O4, OB és az AB oldalegyenesekre bocsátott merőlegesek E, 
F, illetve G talppontját a következő parancsokkal kaphatjuk meg: 

5  projection( E, D, line( "dumnmy? , (0,AJ] ) ): 

5  projection( F, D, line( "dumny? , 6 BI9 2: 

5  projection( G, D, line( "dummy? , [A,B] ) ): 


Igazoljuk Simpson tételét: 


5 AreCollinear( E, F, G ); 


true 


Egy adott T háromszögre tehát a Maple be tudja bizonyítani a Simpson-tételt! 
Válasszunk egy rögzített D pontot a körön: 


5  solve( condition ); 


d; a, 4 72 zi 
—- — — $ — — 4 
ív v, u 2 13 v9 v"h4v"), 
3 1 2 fs 
ív — , Fett táj 9—-4v H4v") 
A megoldás alapján könnyen ellenőrizhető, hogy az (u, v) z (3 — 2 v6, 6, 1) pont 


a körön van. Vegyük ezt a pontot, és határozzuk meg a D-t az öldalegteneséken 
lévő talppontokkal összekötő egyeneseket, a talppontokon átmenő L egyenest, 
valamint az ábrázolás javításához szükséges további segédegyenest: 


assign( u, 3/2-1/2rsgrt(6) ): assign(v,3/2): 
line( DE, [D,E] ): line( DF, [D,F] ): 

line( DG, [D,G] ): line(L, [E,G]) : 

line(H, [B,G]) : 


VVVVY 


Minden készen áll a Simpson-tételt illusztráló ábra elkészítéséhez. (V. ö. 15.66. ábra.) 


s draw( 

( C(filled-false, linestyle-1, printtext-false) , 
T(color-black, filled-false, thickness-5, linestyle-1), 
DE, DF, DG, H, D, L(color-red, linestyle-1) , 

ESVE GF 1 
axes-none, linestyle-2, thickness-3, color-blue, 
scaling-constrained, font-[HELVETICA , BOLD, 10] 


, 


VAN 


422 15. Grafika 


15.66. ábra: A Simpson-tétel illusztrációja 


Gyakorlásként bizonyítsuk be a geometry csomag segítségével Simpson tételét, 
tetszőleges háromszögre! A tétel teljesen algebrai jellegű tárgyalása megtalál- 
ható [119]-ben. 


15.7.  Grafikonok álruhában 


Az adaptív kétdimenziós ábrázolás többnyire elfogadható grafikonokat eredmé- 
nyez már minimális számú mintapont fölhasználásával is. De ügyelnünk kell 
arra, hogy valóban megfelelő-e a mintavétel. A megtévesztő ábrák extrém ese- 
teként ábrázoljuk az z 1 (z — 25)? -- cos(27r) függvényt a (0, 49) interval- 
lumon. (Lásd 15.67. ábra.) 

s  plot( (x-25)72/10 4 cos(2xPirx), x-0..49 ); 


15.67. ábra: Az 1 5 (z — 25)21- cos(2rx) függvény megtévesztő ábrázolása 


A fölrajzolt (hibás!) grafikon egészen közel áll az y — -33(z— 25)? paraboláéhoz. 
Ezt a hamis látszatot az okozta, hogy az alapértelmezésnek megfelelően válasz- 
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tott 49 közel ekvidisztáns mintapontban a kiszámított függvényértékek valóban 
közel esnek a parabolához. Mivel a Maple-nek semmi oka azt föltételezni, hogy 
itt valami nincs rendben, nem is próbálkozik nagyobb vagy más eloszlású min- 
tával. Nekünk kell eldönteni, hogy akarunk-e több mintapontot (a numpoints 
opció beállításával) vagy más ábrázolási tartományt. 


5  plot( (x-25)72/10tcos(2xPixrx), x-0..49, numpoints-2000 ) ; 


15.68. ábra: Az ze  jj(z — 25)? -- cos(2r) kijavított grafikonja 


15.8. Egy gyakori féreértés 


Ha a plot( f(x), zt — Tmin .. fmax) paranccsal arra kérjük a Maple-t, hogy áb- 
rázolja az z változó f függvényét, akkor a rendszer először kiértékeli f(r)-et, s 
valószínűleg valamely T-et is tartalmazó szimbolikus kifejezést kap eredményül. 
Ezután a kapott kifejezést már numerikusan értékeli ki a választott mintapon- 
tokban. Ebből gondjaink származhatnak, ha például szakaszonként definiált 
vagy numerikus függvényt próbálunk fölrajzoltatni. Az alábbiakban erre mu- 
tatunk példát, s rögtön négy lehetőséget is említünk a problémák orvoslására. 
Tegyük föl, hogy az 


5 f :— t -2 if t2?0 then exp(-1/t72) else 0 fi: 


paranccsal definiált f függvényt szeretnénk ábrázolni: 

5  plot( f(t), t--1..4); 

Error, (in f) cannot evaluate boolean 
Látható, hogy grafikon helyett csak hibaüzenetet kaptunk. Ezt az okozta, hogy 
f(t) kiértékelésekor a Maple nem tudta eldönteni, hogy a t 5 0 föltétel teljesül-e. 


A. szokásos trükk ilyenkor aposztrófok használata, a túl korai kiértékelés elkerü- 
lésére: 


5 plot( ?f(t)?, t—-1..4 ); 
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t 


15.69. ábra: Szakaszonként definiált függvény grafikonja 


Következő lehetőségünk a függvényeknek megfelelő jelölésmód alkalmazása. Pél- 
dául az f függvényt és f" deriváltját közös ábrán jeleníti meg a következő pa- 
rancs. (Lásd 15.70. ábra.) 

5  plot( íf,D(f)), -1..4 2); 
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15.70. ábra: Szakaszonként definiált függvénynek és deriváltjának grafikonja 


:41:z 


már a Maple eleve rendelkezik a szakaszonként definiált függvényeket helyesen 
kezelő piecewise eljárással, miért ne használnánk ezt? 
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5 f :— t -5 piecewise( t:0, exp(-1/t72), 0 ): 
5 f(t); it no problem 
dákó 0c-t 
0 otherwise 


Továbbá, ahogy a 8.3. alfejezetben láttuk, megadhatjuk úgy is a függvény definí- 
cióját, hogy gond nélkül elfogadjon nemnumerikus argumentumokat is. Ennek 
egyik módja lehet 
f :— t -5 if not type(t numeric) then 
"procname ? (t) 
elif t20 then 
exp(-1/t72) 
else 0 
fi: 
f(t); $ no problem 


ZET ZT 


f(t) 


15.9. Néhány egyszerű háromdimenziós ábra. 


A kétváltozós függvények ábrázolása ugyanolyan könnyen megy, mint az egyvál- 
tozósaké. Csupán a plot3d Maple eljárást kell alkalmaznunk mindkét változóra 
megadott értéktartományokkal. Ábrázoljuk például a z — cos(ry) függvénnyel 
definiált felületet —3 és 3 közti z és y értékekre. (Lásd 15.71. ábra.) 

s  plot34d( cos(xry), x—-3..3, y--3..3, color-black ); 


15.71. ábra: A z — cos(ry) felület képe a takart részek eltávolításával 


A fönti parancs speciális esete az x és y változóktól függő f(z,y) formulával 
definiált felületet fölrajzoló 


plot3d( f(xr,y),z— a..b, y — c..d, options ) 


utasításnak, amelyben a .. b és c..d az z, illetve az y értéktartományát definiálja, 
options pedig a következő alfejezetben vizsgált opciók (esetleg üres) listája. 


A kétváltozós f függvény grafikonját a 


plot3d( f,a.. b, c..d, options ) 
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alternatív szintakszissal kapjuk, ahol a..b és c..d adja meg a két horizontális 
értéktartományt, options pedig nulla vagy több opciót ír le. 

Az alábbiakban ismét az (T,y) Fő cos(ry) függvény grafikonját rajzoljuk föl, 
de most a függvényes jelölésmódot alkalmazzuk, és néhány opciót is megváltoz- 
tatunk: 

5 f :- (x,y) -2 cos(xxy): 

s plot3d( f, -3..3, -3..3, grid-[50,50], axes-box, 

e scaling-constrained, style-patchcontour, 

5 shading-zgrayscale ); 


15.72. ábra: Az (r,y) R cos(ry) függvény szintvonalakkal kiegészített szürke- 
árnyalatos grafikonja 


15.10. A plot3d opciói 


A kétdimenziós esethez hasonlóan itt is sok opciót használhatunk ábráink , test- 
reszabására". Az X Window rendszer alatt számos opció a megfelelő menüpont 
kiválasztásával és/vagy az egér segítségével állítható be. Némely opciókat most 
tárgyalunk, a többiekkel kapcsolatban a, fejezet végén található, a plot3d op- 
cióit fölsoroló táblázatot ajánljuk. A Maple szekció során bármikor segítséget 
kaphatunk a ?plot3d,option parancs beírásával. 


Stílus 


A style — displaystyle opcióval ugyanazt a felületet különböző módokon je- 
leníthetjük meg. A legegyszerűbb a point stílus, amely csak a kiszámított 
mintapontokat ábrázolja. Ha a, line stílusopciót választjuk, a kiszámított érté- 
keket egyenes szakaszokkal köti össze a Maple. Felület ábrázolásakor egyébként, 
a mintapontok általában téglalap alakú ekvidisztáns rácshálózat osztáspontjai. 
Ha a szomszédos adatpontokat egyenes szakaszokkal kötjük össze, az eredmény 
a felületet közelítő vireframe stílusú ábra. Az előző rész első ábrájáról hiányoz- 
nak azok a szakaszok, amelyek átlátszatlannak képzelt felület esetén az adott 
nézőpontból nem láthatók. Ez a Maple alapértelmezés szerinti hidden stílusa. 
Ha a felületet több színben vagy szürkeárnyalatokban kívánjuk ábrázolni, hasz- 
nálhatjuk a patch stílust. Amennyiben el akarjuk hagyni a rácshálózat képét, 
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válasszuk a patchnogrid opciót. A contour stílusopcióval a felület szintvo- 
nalait kapjuk. A patchcontour opciót, a két megfelelő opció kombinációját 
illusztrálja az utolsó ábra. 

Arnyékolás 

A Maple-ben valamely felület háromféle módon színezhető ki (, igazi" színekkel 
vagy szürkeárnyalatokkal): az xyz, az xy és a z árnyékolás szerint. Amikor 
a shading — z opciót választjuk, a színezés vagy a szürkeségi fokozat a pon- 
tok z koordinátája szerint alakul. Az xy vagy az xyz séma esetén minden 
koordinátatengelyhez külön színskála tartozik, ezek addíciója határozza meg a 
felület pontjainak színét. A zhue és a zgrayscale opciók a z értékektől függő 
HUE szinmodell szerinti, illetve szürkeskálás grafikonokat eredményeznek. A 
shading - none hatására az egész ábra egyszínű lesz. 


Tengelyek 


Az axesopcióval a tengelyek ábrázolását adhatjuk meg. Négy választásunk van: 
none, normal, box és frame. A nevek magukért beszélnek; csupán annyit jegy- 
zünk meg, hogy a frame-nek megfelelő keretezett tengelyeket a felület csúcsai 
körül úgy rajzolja meg a rendszer, hogy ne metsszék a felületet. 


Irányítás és projekció 

Háromdimenziós grafikus objektumokat általában projekcióval szokás megjele- 
níteni a kétdimenziós képernyőn vagy papíron. A projekció középpontját (más- 
képpen a ,nézőpontot") az ábra ,tartódobozának" (vagyis az ábrát magába- 
foglaló legkisebb téglatestnek) középpontjába. elhelyezett lokális Descartes-féle 


koordinátarendszerre vonatkoztatott szférikus koordinátákkal adjuk meg. (Lásd 
15.73. ábra.) 


B 6 


x 
15.73. ábra: Irányítás megadása 3 dimenzióban a $ és a 0 szögekkel 
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A 8 és a $ szögek az orientation— [9, 6] opcióval állíthatók be. A 0 forga- 
tási szög növelése az ábrát a 2-tengely körül az óramutató járásával ellentétes 
irányban forgatja el. A 0 érték annak felel meg, hogy a felület elülső oldalát és 
tetejét látjuk. 


A $ függőleges látásszög jelentése: a 0 értéknél függőlegesen lefelé tekintünk 
a felületre, 907-nál elölről nézzük (az ry sík egyenesnek látszik), ennél nagyobb 
értékekre alulról látjuk a. felületet. 


A projection -— p opció, ahol p a (0, 1] intervallumba eső valós konstans, a 
nézőpontnak a felülettől való távolságát adja meg. A 0 (fisheye) a két pont 
egybeesését, 1 (ortogona1) végtelen távolságot, a normal érték 5-et jelent. 


Néhány ábra a szavaknál is többet mond. A továbbiakban olyan rajzokat 
mutatunk különböző nézőpontokból, amelyeket eredetileg a 


5  plot3d( x73-3kxky72, x--1..1, y5s-1..1, 
2 style-patch, axeszbox ); 


paranccsal hoztunk létre: 
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z 45 


theta -— 5, phi 


theta — 5, phi — 80 
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theta -— -60, phi -— 60 


Az előző rajzokból összeállíthatunk háromdimenziós grafikákat tartalmazó töm- 
böt is. Ez még egy kis plusz munkát igényel, különösen, ha a 15.74. ábrához 
hasonló elfogadható cimkéket is szeretnénk. (Több próbálkozással találhatunk 
a föliratok számára olyan pozíciókat, amelyek vetülete jól mutat a háromdi- 
menziós ábrán. Az ábrák cimkézését azért adtuk meg ilyen szokatlan módon, 
hogy kiküszöböljük a háromdimenziós grafikus konverzió azon hibás föltételezé- 
sét, hogy minden tengelyen kell lenni legalább egy osztáspontnak. A tengelyek 
beosztását az alapértelmezés helyett csak pontokkal jelöltük, mivel ezek nem 
látszanak a tengelyeken.) 


AZZAL NISA 


with( plots, [display,textplot3a] ): 
angles :— [( [45,45], [5,45], [5, 80], [-60,60] J: 
ticks :z [ [0-6 "],[0-" "],(0-" "] ]: d blank tick marks 
position :— 
L (sos 21: 1004 a], 16 9.1 1.21. [0.8.0.5 AT JA 
sf :— [ISYMBOL,10]: it symbol font at point size 10 
for i to 4 do 
P :— plot3d( x73-3$xry72, x--1..1, y--1..i1, 
style-patch, tickmarks-ticks, 
orientation—mangles[i] ): 
T :— textplot3a4( [ op( position[il ), 
cat("[g,f] — " , convert(angles[i] , name) ) 1], 
font-sf, color-blue ); 
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15.10. A plot3d opciói 


VGA 


FLil] :- display( íP,T), axes-frame ): 


od: 
plotarray :- matrix( 2, 2, 

I seg( Ffi], i-i..4) 1], array ): 
subs( SYMBOL(BOX) -SYMBOL(POINT) , 

display( plotarray ) ); t draw graphics array 


é/ 
7? 


[8.6] — [45, 45] 


8; 


TETTI 
B8g 


KZ 
a 
Hg 
B: 
hul 
Fi 
Fi 
hd 
Fi 
FE 


ENTETET 
NET 
N Lt li 


[061 — I5, 80] 


15.74. ábra: Az x? — 31y? grafikonja különböző nézőpontokból 


Megjegyezzük, hogy az árnyékolás vagy a nézőpont megváltoztatásához nincs 
szükség a grafikus objektum újraszámolására. Ezek csak a képernyőn megjele- 
nő ábra megjelenítési módját befolyásolják. Más a helyzet a következő opció 


alkalmazásánál. 
Rácsméret 

A háromdimenziós esetben a Maple-nek nincs a mintapontok által kifeszített 
rácshálózat finomítására szolgáló algoritmusa. Más szóval a kétdimenziós ábrá- 
zolástól eltérően a plot3d nem alkalmaz adaptív mintavételi sémát. Az alap- 
föltételezés szerint mindkét dimenzióban 25 ekvidisztáns mintapontot használ 
föl. Ha az z irányban m, az y irányban pedig n ponttal akarunk dolgozni, a 
grid —Im,n] opcióval változtathatjuk meg a beállításokat. Ügyelnünk kell te- 
hát arra a kellemetlen eshetőségre is, hogy a 15.75. ábrához hasonló megtévesztő 


háromdimenziós grafikonokat kaphatunk. 


432 15. Grafika 


5 plot3d( sin(2xPixrx), x-0..25, y-0..i, 
5  axes-frame, style-patch, shading-zgrayscale ) ; 


15.75. ábra: A sin(2rr) rendkívül gyatra háromdimenziós ábrázolása 


Látómező 
A kétdimenziós megjelenítéshez hasonlóan itt is előfordulhat, hogy korlátozni 
akarjuk a függőleges értéktartományt, sőt esetleg a felület minden dimenziójá- 
ban a megengedett tartományra vonatkozó megszorításokat teszünk. Ehhez a 
view opciót használhatjuk föl. Két lehetséges formája: 

view sz Znin .. Zmax 
és 


view — [ min -. Cmax, Umin :: Umax; fmin ::- Zmax ] . 


Megvilágítás 
A Maple két opció segítségével tud különböző megvilágításokat szimulálni: 
e light — [6,9,r, g, b] olyan fényforrást szimulál, amelynek RGB színmodeli 


szerinti összetevői r, g és b erősségűek, továbbá fénye a [d,0] szférikus 
koordinátákkal megadott irányból világítja meg a grafikus objektumot. 


e ambientlight — [r,g,b] az RGB színmodell szerint r, g és b erősségű 
komponenseket tartalmazó meghatározatlan irányú (szórt) fénynek felel 
meg. 


A következő példa, amelyben két metsző síkot az egyikre merőleges irányból 
szürke fénnyel világítunk meg, jól mutatja a megvilágítás hatását. 
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5  plot34( (íx,1-x3, x-0..1, y-0..1, style-patchnogrid, 
pe axes-írame, shading-none, orientation-[-45, 25] , 
s light-[0,0,0.9,0.9,0.9] ); 


15.76. ábra: A felületek megvilágításának hatása (a fény a [0, 0] irányból jön) 


5  plot3d( (x,1-xk, x-0..1,y-0..1, style-patchnogrid, 
pl axes-írame, shading-none, orientation-—[-45, 25] , 
b light-[135,0,0.9,0.9,0.9] ); 


15.77. ábra: A felületek megvilágításának hatása (a fény a [135, 0] irányból 
jön) 


A következő példában megadott kód esetén fölülről nézünk egy olyan oktaéderre, 
amelynek lapjait a három alapszínnek megfelelő három külön fényforrás világítja 
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5 display( 

5 plottools [octahedron] ([0,0,0] , 1) , 

5 style-patch, axes-box, 

5 — ambientlight-[0.2,0.2,0.2], 

s —— light-[45,90,1,0,0], light-[135,90,0,1,0], 
s light-[225,90,0,0,1] ,orientation-[-90, 0]); 


Az ábrát elhagytuk, hiszen a szürkeárnyalatokkal nem érzékeltethetők a. világí- 
tási effektusok. Futtassuk le magunk ezt a példát! 
Kontúrok 
A contour és a patchcontour háromdimenziós grafikai stílusokkal a, felület 
szintvonalait kapjuk. Az alapföltételezés szerint 10 görbét rajzol föl a Maple, 
ezt a számot a contours opcióval változtathatjuk meg. (V.ö. 15.78. ábra.) 

5  plot3d( 5.5-y, x-0..1, y-0..5, axeszírame, 

5  shadingszgrayscale, thickness-5, style-—contour, 

5  contours55 ); 


15.78. ábra: A felület szintvonalai 


Azt is megadhatjuk explicit módon, hogy mely szintekhez tartozó görbéket sze- 
retnénk fölrajzoltatni. (Lásd 15.79. ábra.) 


5  plot3d4( 5.5-y, x-0..1, y-0..5, axeszírame, 
5-3 shading-zgrayscale, thickness-5, style—contour, 
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és contoursz[1,2,4] ); 


15.79. ábra: A felület adott értékeknek megfelelő szintvonalai 


A plots csomag setoptions3d eljárásával megtekinthetjük az opciók értékét, 
de be is állíthatjuk őket az alapértelmezésnek vagy a további plot3d hívásoknak 
megfelelő értékekre. 


A fejezet végén megtalálhatja az Olvasó a rendelkezésére álló összes háromdi- 
menziós plotopció fölsorolását. Közülük néhányról még nem volt szó, de ezeket is 
használni fogjuk a fejezet későbbi példáiban. A munkalapos fölhasználói felület 
lehetővé teszi a style, linestyle, thickness, symbol, gridstyle, shading, 
light, axes és a projection opciók interaktív beállítását. A többieket vala- 
melyik plot paranccsal tudjuk változtatni. 


15.11. Háromdimenziós grafikai struktúrák 


A háromdimenziós ábrák elkészítése a kétdimenziósak generálásához hasonlóan 
két lépésben történik. Az első fázisban a mintapontokat számítja ki a rendszer, 
s egy PLOT3D objektumban helyezi el őket. A második fázisban ezt az ob- 
jektumot jeleníti meg a képernyőn. Ebben a részben két olyan példát hozunk 
háromdimenziós grafikus objektumokra, amelyek más esetekben prototípusok- 
ként szolgálhatnak. 


A Maple-ben egy háromdimenziós grafikus objektum a PLOT3D eljárás 
olyan hívásának felel meg, amelynek argumentumai a tengelyeket, az ábrázo- 
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landó függvényt, a kiszámított mintapontokat, az ábrázolás stílusát, a rácsbe- 
osztást, a színezést stb. adják meg. 
A következő objektum az (I, 1, 1), (—1,—1, 1), (—1, 1, —1) és az (1, 1, —1) csúcsok 
által meghatározott tetraéder éleit írja le. (Lásd a 15.80. ábrát.) 

5  PLOT3D( POLYGONS( [ [1,1,1], [-1,-1,1], [-1,1,-1] J], 
E Ete Iétset tl Hid sets 
E tett szül Elsstzíls Tatszt 15 d 
[ [-1,1,-1] , [1,-1,-1] , L[1,1,1] ] Da 
STYLE(LINE) , COLOR(RGB,1,0,0) , AXESSTYLE(BOZX) , 
ORIENTATION(30,60) , SCALING(CONSTRAINED) ) ; 


MNO NM 


15.80. ábra: A grafikus primitívekkel fölrajzolt tetraéder 


A POLYGONS ( . . ) , STYLE, COLOR, AXESSTYLE, ORIENTATION és SCALING argumen- 
tumok a következő hívással létrehozott grafikus objektum részei. 


P :- polygonplot3a( [ 
L [Elég KÉS hA [AB [-1,-1, 1], [-1,1,-11 1] 
L TE ts [-1,-1,1] , [1,-1,-11 J 
L (-1,1,-1] , [1,-1,-1] , [-1,-1,1] 1 
L [-1,1,-1] , [1,-1,-1], Es, 1] ] 38 
style-line, color-red, axes-box, 
orientation-[30,60]1, scaling-constrained) : 
lIprint( P ); it print 3D plot data structure 


NENT NINI 


PLOT3D(POLYGONS(L[1. , e [1 s 
Tt dos ŰL IT ELL s 1 séta eds e eb As 
[oz eds sel hal [edos dos ete [hag skeg Elek 
[edz él 5 Es dé od ős éle Sa 
[1., 1., 1.]]) , ORIENTATION(30. , 60.) , STYLE(LINE) , 
SCALING(CONSTRAINED) , AXESSTYLE(BOX) , 

COLOUR(RGB, 1.00000000,0,0)) 


a 


.] 
.J 


5 P; it display the graphics object 
A rajzot elhagytuk, hiszen ugyanaz, mint a 15.80. ábra. 


Az(z,y — gy? függvény grafikonjának ábrázolásához tartozó plotstruktúra 
általánosabb grafikus objektumra ad példát. (Lásd 15.81. ábra.) 
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s P :z plot3d( xkxy72 , x--1..1, y—-1..1, grid-[5,5], 
5  axeszbox, orientation-[30,30], style-line, 

5  color-cred, title-"graph of z-xy72" ): 

s 1print( P ); t$ print the 3D plot data structure 
PLOT3D(GRID(-1. .. 1.,-i. .. 1. 


E(-1., -.2500000000000000, 0, -.2500000000000000, -1.], 
[- . 50000900000000000, - . 1250000000000000, 0, 

- . 1250000000000000, - .5000000000000000], [Oo, 0, 0, 0, 0], 
[.500909000000000000, .1250000000000000, 0, 

. 1250000000000000, .5000000000000000] , 

[1., .2500000000000000, 0, .2500000000000000, 1.]], 
COLOR(RGB , 1 . 00000000 , 0 , 0) ) , ORIENTATION(30 . , 30.) , 
STYLE(LINE) , AXESSTYLE(BOX) , AXESLABELS (x,y, ""), 

TITLE( "graph of z-xy72")) 


A Maple egy grafikus objektumot rendel a négyzetrácson értelmezett kétválto- 
zós függvényhez. Ez olyan szabályos Maple objektum, amelyet a, szomszédos 
mintapontok közti lineáris interpolációra használ föl a rendszer. 


5 P; t display the surface 


graph of z-xy"2 


15.81. ábra: A z — ry? felület durva beosztáshoz tartozó képe 


Először a plot3d-nek a függvényt megadó első argumentuma értékelődik ki. 
Ezután sorfolytonosan haladva az osztáspontoknak megfelelő függvényértékeket 
számítja ki a rendszer. A gyorsabb megjelenítés érdekében ezek a számítások 
általában a beépített (hardveres) lebegőpontos aritmetikát használják. A két- 
dimenziós ábrázolástól eltérően a rendszer akkor sem finomítja, automatikusan 
a beosztást, ha az interpolációnál kapott egymáshoz csatlakozó szakaszok által 
bezárt szög túl nagy. 

Azt mondtuk, hogy a grafikus rutinok általában hardveres lebegőpontos arit- 
metikával számolják a függvényértékeket. Természetesen ha a Digits-nek olyan 
nagy értéket adunk, melyet a hardver már nem támogat, a Maple-nek nincs más 
választása, mint hogy lemondjon a hardveres aritmetika használatáról. Arra is 
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ami kizárja a hardveres aritmetika alkalmazását. Ha az ábrázolásnál komplex 
számokat is fölhasználunk, ez már lehetetlenné teszi a hardveres aritmetikát. 


5 evalhf( 2 t sgrt(3)5I ); 


Error, sgrt of a negative number 


Ez igen tragikus hatással van a megjelenítés sebességére. Meggyőződhetünk 
arról, hogy a z — V1? 4 y? felület fölrajzolása a 


5 Í :-— proc(x,y) sart(x72ty72) end: 


függvénnyel körülbelül 25-ször gyorsabb, mint a 


5 g :5 proc(x,y) z :— xtlry; evalc( abs(z) ) end: 


függvény esetében. Ha az Olvasó túl mesterkéltnek érezné az előbbi példát, 
tekintsük az f : z — 2? — 1 komplex függvény kitöltött Julia-halmazának 
ábrázolását (a halmaz azokból a pontokból áll, amelyekre az f iterált alkalma- 
zásával kapott sorozat nem tart a végtelenhez). A 15.82. ábrán ezt a halmazt 
a végtelenbe tartó" za pontok halmazával közelítettük (a zo pontot végtelenbe 
tartónak" tekintjük, ha az első 25 iteráció során előfordul olyan szám, amelynek 
abszolút értéke 3-nál nagyobb). Az ilyen pontokhoz az F(2g) — 1 függvényér- 
téket rendeljük, a többi pontra legyen F(zg) — 0. A 15.82. ábra valójában az 
F fönti értékeit szürkeárnyalatokkal megjelenítő grafikonja fölülről nézve. A 
megfelelő Maple kód lehetne a következő: 


F :- proc(x, y) 
Local Zs 
z :- evalf(x t yáI ) ; 
to 25 while abs(z)cs53 do z :— z72 -1 od: 
if abs(z)?3 then 1 else 0 fi 

end: 

plot3d( F, -2..2, -1..1, grid-[200,200] , 
orientation-[-90,0], style-patchnogrid, axes-box, 
labels-[x,y," "], shadingszgrayscale ); 


ják ZER vb, vádlbn AG vád vs" BA 


Ez a változat azonban sokkal! lassúbb, mint az alábbi igazi" verzió, amely ki- 
használja a hardveres aritmetikát: 


plot3a4( F, -2..2, -1..1, grid-[200, 200], 
orientation-[-90,0], style-patchnogrid, axes-box, 
labelsz[x,y," "1, shading-zgrayscale ); 


s F :5s proc(x, y) 

5 local X, Y, XCOPY; 

5 X :- evalf(x): Y :— evalf(y): 

5 to 25 while X72 t YT2 cz 9 do 

5 XCOPY :— X: X :5 X72-Y72-i: Y :5 2rXCOPYKY 
5 od: 

pl if X2 4Y 2? 9theni else0 fi 
5 end: 

5 

s 

5 
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15.82. ábra: A z— 2? — 1 komplex leképezés kitöltött Julia-halmaza 


A kitöltött Julia-halmaz grafikonjának határát (valójában ezt értettük Julia- 
halmazon) úgy kaphatjuk meg, hogy a z — 0 síkot ábrázoljuk a HUE színmodell- 
ben az F-et használva színfüggvényként. (Lásd 15.83. ábra.) 


s plot3d( 0, -2..2, -1..1, grid-[75,75], 
5  orientationz[-90,0], style-patchnogrid, 
5  axeszfírame, labels-[x,y," "], color-F ); 


15.83. ábra: A z— 2? — 1 komplex leképezés Julia-halmaza 
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A kétdimenziós esethez hasonlóan a háromdimenziós grafikai primitívek általá- 
nos formája 


Objectname( Objectinformation, Locallnformation ) 


alakú függvényhívás. A mostani alfejezet első példájában találkozott az Olvasó a 
POLYGONS objektumnévvel, amely a kétdimenziós esettel azonos jelentéssel bírt. 
Általában is igaz, hogy az olyan kétdimenziós objektumneveket, mint POINT 
vagy TEXT három dimenzióban is használhatjuk. Új objektumnevekként csupán 
a GRID és a MESH jelenik meg. GRID a kétdimenziós rácshálózatot definiáló 
objektum neve, a MESH struktúra pedig olyan háromdimenziós pontok listáiból 
álló listát ad meg, amely a felület pontjait írja le. A következő függvényhívás 
például két háromszögből álló felületet határoz meg: 

5  PLOT3D( MESH(I [L [1,1,1],(0,1,0],[(0,0,1] 1, 

s [ [1,1,11,[1,0,01,[0,0,1] ] ] ), 

5  STYLE(PATCH), AXES(BOX) ); 


15.84. ábra: Két háromszögből álló háromdimenziós hálózat 


A kétdimenziós grafika lokális információkra vonatkozó elnevezései közül szá- 
mosat a háromdimenziós esetben is használhatunk. Néhány példa a sok közül: 
AXES, FONT és SCALING. Természetesen vannak olyan nevek is, amelyek csak há- 
romdimenziós ábrázolás esetén bírnak jelentéssel. Megemlítünk közülük is párat: 
AMBIENTLIGHT, GRIDSTYLE, ORIENTATION és SHADING. A nevek többnyire hason- 
lóak a plot parancsokban megengedett opciók elnevezéséhez. Ténylegesen meg 
is nézhetjük, hogyan konvertálódik egy opció a megfelelő grafikus primitívvé: 

5  convert( [ color-red, orientation-[20,60] ], 

5 PLOT3DOoptions ); 


(JORIENTATION(20., 60.), COLOUR(RGB, 1.00000000, 0, 0)] 
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A plot opciók grafikus primitívekké való ilyen konverziója hasznos lehet, ha egy 
létező grafikus objektum valamelyik alacsony szintű grafikus primitívjét akarjuk 
megváltoztatni. 


15.12. Speciális háromdimenziós ábrák 


A fejezet korábbi részeiben főleg a kétdimenziós grafikával kapcsolatban vizsgál- 
tuk a Maple plots és plottools csomagjait, amelyek a két- és háromdimenziós 
ábrázoláshoz nyújtanak segédfüggvényeket és építőelemeket. A csomagok eljá- 
rásaival speciális háromdimenziós ábrák is generálhatók. Töltsük be tehát a 
csomagokat, és készítsünk néhány példát: 

5 with(plots): with(plottools): 


Nézzünk először a plots csomag eljárásait használó példákat. 
Paraméteres ábrák 


Háromdimenziós térgörbéket a spacecurve eljárással rajzolhatunk (15.85. áb- 
ra). 

5  spacecurve( ( 

s [€t$cos(2xrPixrt) tirsin(2xrPirt) ,2it] , 

5 [2-t,txcos(2xkPixt) ,tssin(2rPirt)l, 

s [t$cos(2xPirt)  2tt,tirsin(2rPixt))] b), t-—-0..10, 

b. numpoints-400, orientation- [40 , 70] , 

5 style-line, thickness-3, axes-box ); 


15.85. ábra: Háromdimenziós térgörbe 


A Descartes-féle koordinátarendszerben az 


T-— f(s,t), (me 9(s,t), vád h(s,t) 
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paraméteres formulákkal definiált háromdimenziós felületet megrajzoló eljárás 
általános alakja 


plot3d( [f(s,t), 9(s,t), h(s,$)], 5— a..b, t— c..d, options ) 


ahol a..b és c..d az s és a t független változók értéktartományai, options pedig 
nulla vagy több opció leírása. 


Példaként ábrázoljuk a 


($.2) £ (r cosd, r sind, 6 ) 


paraméterezés szerinti spirális felületet (, helicoid)a0w£rCxlés0kK bed őr 
értékekre. 


5  plot3d( [ rtrcos(phi), r:isin(phi), phi J], 
bő r-0..1, phi-0..6xPi, grid-[15,45], style-patch, 
5 orientation-[55,70], shading-zhue, axes-box ); 


S 


Sza 


SÖ 


15.86. ábra: Helicoid 


Koordinátarendszerek 


A Maple a szférikus (15.87. ábra) és a henger (15.88. ábra) mellett még sok 
egyéb koordinátarendszert is támogat. A következő néhány példában először 
elnevezzük, majd kirajzoltatjuk a grafikus objektumokat: 
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5: § :— plot3d( 1, theta—-0..2xPi, phi-0..Pi, style-patch, 
5 coords-spherical, scaling-constrained ): S; 


15.87. ábra: Gömb 


5 C :- plot3a( 1/2, theta-0..2xPi, z--2..2, style-patch, 
5 coordszcylindrical, scaling-constrained ): C; 


15.88. ábra: Henger 


5  subs( STYLE(PATCH) - STYLE(PATCHCONTOUR) , 
5 display( í15,C), axes-box, orientation-[20,70] , 
s scaling-constrained ) ); 
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15.89. ábra: Gömb és henger kombinációja 


A style-patchcontour opció helyett a fönti helyettesítéssel kellett a 15.89. áb- 
rához szükségesre változtatni a megjelenítés stílusát. Ennek oka az, hogy a 
display eljárásban a szín és a stílus meghatározásához hasonló globális opciók 
a megfelelő grafikus objektumokhoz rendelt lokális értékekké transzformálód- 
nak. 


Csőábrák 
A tubeplot eljárás egy vagy több háromdimenziós térgörbe körüli , csövet? de- 
finiál. Ábrázoljuk ilyen módon a (4, 7) típusú tóruszt. (Lásd 15.90. ábra.) 


5 r :— a t bicos(nit): z :5 cssin(nit): 

5  eurve:—[ rxcos(mit), rxsin(mkrt), z ]: 

s a:52: b:5-4/5:]) c:si: m:zs4: n:-7: 

5 tubeplot( curve, t-0..2kPi, radius-1/4, numpoints-200, 
be. tubepoints-20, orientation-[45,101], style-patch, 

5 shading-xyz ); 


15.90. ábra: (4, 7) típusú , összecsomózott" tórusz 
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Implicit ábrázolás 


Az implicitplot3d eljárással tetszőleges koordinátarendszerben fölírt egyen- 
lettel definiált nemszinguláris felület megjeleníthető. A katenoid nevű felület 
definíciója Descartes-féle koordinátarendszerben cosh z — 42? 3- 12, kirajzolta- 
tását így végezhetjük el (v.ö. 15.91. ábra): 


5,  implicitplot3d( cosh(z)-sgrt(x72ty72) , 

5 x—-3..3, y--3..3, z--2.5..2.5, grid-[15,15,20], 
5 style-patchcontour, contours-15, axeszbox, 

ba orientation-[30,70] ); 


15.91. ábra: A katenoid implicit ábrázolása 


A style-patchcontour opció biztosítja, hogy a felületen az árnyékolás mellett 
a szintvonalak is láthatók legyenek. 


Látványosabb implicit ábrát eredményez a szférikus koordinátákkal fölírt, 
szintvonalakat is tartalmazó következő példa. (Lásd 15.92. ábra.) 


s r x ( 4 4 2xcos(3itheta) - cos(3krthetat2kphi) 
5 - cos(-3krthetat2iphi) t 2rcos(2trphi)) — 2; 


r (473-2co0s5(39) — cos(39 4 26) — cos(39 — 26) 4 2cos(26)) — 2 


s implicitplot3d( ", r-0..2, theta—-0..2kPi, phi-0..Pi, 
coords-spherical, grid-[10,30,30], 
- style-patchcontour, thickness-2, orientation-[35,30] ); 


Vv 
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15.92. ábra: Szférikus koordinátákkal megadott implicit ábra 


Komplex függvények ábrázolása 


A. complexplot3d eljárással C-ből C-be leképező komplex függvényeket ábrá- 
zolhatunk. A felület magasságát az (z, y) helyen az z--yi helyen vett függvényér- 
ték abszolút értéke adja, a pont színezését pedig a függvényérték argumentuma 
határozza meg. Példaként tekintsük a gamma függvényt. (Lásd 15.93. ábra.) 


5 complexplot34d( GAMMA(z), z- -Pi-PixrI .. PitPirI, 
s  view-0..5, grid-[30,30], orientation-[-120,45] , 
5  axeszírame, style-patchcontour, thickness-2 ); 


15.93. ábra: A komplex gamma függvény grafikonja 


Hasonlítsuk össze ezt a rajzot a 2.6. alfejezet 2.8. ábrájával. 
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Poliéderek 


A polyhedraplot eljárással könnyen ábrázolhatók az olyan ismert poliéderek, 
mint a tetraéder, az oktaéder vagy a dodekaéder. (Lásd 15.94. ábra.) A help 
fájlból való a következő példa: 


s  polyhedraplot( [0,0,01], polytype-dodecahedron, 
s  style-patch, scaling-constrained, orientation-[71,66] ); 


15.94. ábra: Dodekaéder 


A Sierpinsky-féle tetraéder 


A plottools csomag lehetőségeit illusztráló példáink sorát a, Sierpinsky-féle 
tetraéder létrehozása nyitja. Ezen a példán azt is tanulmányozhatjuk, hogyan 
skálázhatók és tolhatók el meglévő grafikus objektumok, így a Maple-ben vé- 
gezhető grafikus programozás szerény példájának tekinthető. 


Először az iteráció kezdőobjektumaként szolgáló tetraédert készítjük el. Könnyen 
boldogulhatunk a tetrahedron rutinnal: 


5 base :-— tetrahedron( [0,0,01]1, 1 ): 
5  display( base,style-patch, scalingsconstrained, 
5  orientation-[60,50], shading-zgrayscale ); 


15.95. ábra: A Sierpinsky-féle tetraéder konstrukciójának alapjául szolgáló stan- 
dard tetraéder 
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Ezután 5-szeresére kicsinyítjük, majd a kicsinyített tetraéderből négy másolatot 
készítünk, melyeket a négy csúcsba eltolva helyezünk el. (Lásd 15.96. ábra.) 


v 


VVVVYVYYYN 


vertices :— (1 

[ 0, 0, sart(3) 1], 

[I 0, 2xsgrt(2)/sgrt(3), -i/sgrt(3) J, 

L[ -sgrt (2), -sgrt(2)/sagrt(3), -1/sgrt(3) 1], 

I sagrt (2), -sgrt(2)/sgrt(3), -1/sgrt(3) J]3: 
translations :— map( x -2 1/2rx, vertices ): 
tetrahedra :— 1 seg( 


translate( scale( base, 1/2, 1/2, 1/2 ), op(t) ), 


tetranslations ) b: 


display( tetrahedra, style-patch, scaling-constrained, 
orientation-[60,50], shading-zgrayscale, thicknessz-2 ); 


15.96. ábra: A Sierpinsky-féle tetraéder konstrukciójának első lépése 


A fönti lépések ismételt alkalmazásával kapjuk a Sierpinsky-féle tetraédert. Ves- 
sünk egy pillantást a négy iterációs lépés után kapott, 1024 tetraéderből álló 
alakzatra (17.97. ábra): 


v 


MIRE N 


translations :— map( x -2 1/2rx, vertices ): 
N :- 4: it number of iterations 
for k from 2 to N do 


newtranslations :— map( x -2 x/27k, vertices ): 


translations :— í seg( seg( t 4 tnew, 
t-translations ), tnew-newtranslations )h: 
od: 
tetrahedra :— ( seg( translate( 
scale( base, 1/27N, 1/27N, 1/27N), 
op(t) ), t-translations ) b: 
display( tetrahedra, style-patchnogrid, scaling-— 


constrained, orientation-[55,50], shading-zgrayscale ); 
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15.97. ábra: A négy iterációva! kapott Sierpinsky-féle tetraéder 


A kanadai zászló 


A következő érdekes példa, melyben a kanadai zászlóhoz hasonló ábrát állítunk 
elő, jól illusztrálja a kétdimenziósból a háromdimenziós grafikába való transz- 
formációkat és a grafikus objektumokon értelmezett egyéb leképezéseket. A 
15.1. alfejezetben létrehozott Maple logo-ból indulunk ki: 


S :— t -5 100/(10014(t-Pi/2)78): tt for scaling 

R :— t -2 S(t)kr(2-sin(7kt)-cos(30rt) /2) : 

mapleleaf :— plot( [ R, t-2t, -Pi/2..3/2rPi)J, 
coordszpolar, axes-none, color-red, numpoints-1000 ): 


NI 


záloga Vágh 


Ezek a parancsok juharlevélhez hasonló zárt görbét generálnak. A kanadai zász- 
lóban a görbe belsejét pirosra kell festeni. Ez legegyszerűbben azzal érhető el, ha 
a CURVES objektumnevet a POLYGONS névvel helyettesítjük. Továbbá fölveszünk 
még két téglalapot, és bekeretezzük az ábrát, hogy megkapjuk a síkba kiterí- 
tett kanadai lobogót (föltételeztük, hogy alapföltételezés szerinti háttérszínként 
a fehér szerepel, lásd 15.98. ábra). 


mapleleaf :— subs( CURVES-POLYGONS, mapleleaf ): 
rectangles :— rectangle([-5,-1]1,1-3,4], color-red ), 
rectangle([3,-1],[5,4] , color-red ) : 

border :— plot( (-1,43,-3..3, colorzblack ): 

flag2d :- display( [I mapleleaf, rectangles, border ], 
view—[-5..5,-1..4], scalingsconstrained ) : 

flag2d; 


III 
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15.98. ábra: A kanadai zászló hasonmása 


A plottools csomag transform eljárását fölhasználva az (x,y) — (z,y,0) 
transzformációval a kétdimenziós grafikus objektumot háromdimenzióssá kon- 
vertáljuk. Végül az (xr,y,2) — (z,y.1- 3 sin(r)) függvénnyel a síkban kife- 
szített zászlót a szinuszhullámra képezzük le (15.99. ábra). 


5, flag3d :— transform( (x,y,z) -2 [Ix,y,0] ) (f1lag2a) : 

5 Wavingflag3d :- 

s transform( (x,y) -2 [x,y,18t1/15$ssin(x)] )(flag3d) : 

5 display( í flag3d, wavingflag3d ), 

b scaling-unconstrained, orientation-[-110,60] , axes-none , 
5 style-patchnogrid, shading-none ) ; 


15.99. ábra: A kiterített és a hullámzó kanadai lobogó 
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15.13.  Adatmegjelenítés 


Ha függvények vagy kifejezések helyett bizonyos adatokat vagy számsorokat jele- 
nítünk meg, speciális grafikus parancsokat kell használnunk. Megkülönböztetjük 
a list-tel kezdődő nevű listaábrázoló parancsokat és a stats csomag statisztikai 
rajzoló parancsait. 


Listaábrázoló parancsok 


A függvényeket /kifejezéseket megjelenítő némely parancshoz találhatunk vele 
ekvivalens listaábrázoló parancsot a plots csomagban. (Lásd 15.2. táblázat.) 


Listaábrázolás  — Megfelelője Grafikus objektum 


listplot plot adatlista 2D ábrázolása 

Iistplot3d plot3d adatlista 3D ábrázolása 

listcontplot contourplot adattömb 2D szintvonalas ábrázolása 
listcontplot3d contourplot3d adattömb 3D szintvonalas ábrázolása 
listdensityplot  — densityplot adattömb sűrűségi ábrázolása 


15.2. táblázat: Listaábrázoló parancsok 


A következő példák némelyikében fölhasználjuk a Holland Statisztikai Hivatal- 
nak (URL: http://www.cbs.n1) az utóbbi évek holland italfogyasztására vo- 
natkozó adatsorait. 


Italfajta Egység 1985 


15.3. táblázat: Az egy főre eső holland italfogyasztás 


A beverage nevű alábbi táblázat az utóbbi évek egy főre eső átlagos italfogyasz- 
tását tartalmazza listákból álló listaként: 


5  beveragelbeeri] :- 

L [1985,85], [1990,91], [1993,851], [1994,89] 1]: 
beveragelsoft. drink] :- 

L [1985,66], [1990,861, [1993,89], [1994,93] 1: 
beveragelwinel :- 

Lt [1985,15], [1990,14.51], [1993,161, [£1994,16] J: 


SZOGNZZAS KB 


Áz összes adatot a beverage nevű Maple táblázatban helyeztük el. Töltsük be 
a plots csomagot, és ábrázoljuk a sörfogyasztás adatait egyenes szakaszokkal 
összekötött pontokként. 
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5 with( plots ): 
5 listplot( beveragelbeer] ); 


EE szé pee ; See esszeztáa 
1986 1988 1990 1992 1994 


15.100. ábra: A holland lakosság egy főre eső éves sörfogyasztásának listás 
megjelenítése 


A. rajzolási stílus megváltoztatásával fölrajzoltathatók egyedül az adatoknak 
megfelelő pontok is. (Lásd 15.101. ábra.) 


5 listplot( beveragelbeer], style-point, symbol-circle, 
5  colorsred ); 


15.101. ábra: A holland lakosság egy főre eső éves sörfogyasztásának adatpon- 
tokból álló grafikonja 
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A két ábra összekombinálható és együtt is megjeleníthető a fölhasználó által 
definiált ábrázolási tartománnyal (15.102. ábra). 


s  display( (",""t, view-[1984..1995,84..92] ); 


86 


841984 1986 1988 1990 1992 1994 


15.102. ábra: A holland lakosság egy főre eső éves sörfogyasztása, 


Némi erőfeszítéssel olyan ábrát is készíthetünk, amely többféle ital eltérő egyenes- 
és pontsstílusokkal fölrajzolt adatai mellett jelmagyarázatot is tartalmaz. (Lásd 
15.103. ábra.) 


5: 4 Data plot: 

5 bp :— listplot( beveragelbeer] , style-point, 

5 symbol-circle, color-red ): 

5 bl :- listplot( beveragelbeeri ): 

s sp :— listplot( beveragelsoít drink], style-point, 
s-t symbol-diamond, color-blue ): 

s sl :— listplot( beveragelsoft drink], linestyle-3 ): 


$t Plot legend: 

with( plottools, [line,point! ): 

line( [1990,72], [1992,721] ): 

point( 11991, 72], symbol-circle, color-red ): 
textplot( [ 1992.4, 72, beer J, align-RIGHT ) : 
line( [1990,701, £f1992,70], linestyle-3 ): 
point( [1991,70], symbol-diamond, color-blue ) : 
textplot( [ 1992.4, 70, "soft drink" ], 
align-RIGHT bé 


NESZ A S ZENEPON DEN 
Ge 
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t Complete picture: 
display(íbp,bl,sp,s1l,bL,bP,bT,sL,sP,sT), 

labels-lyear, consumption , 

title-"annual consumption of beer and soft drinkY 

per inhabítant (in liter)", view-[1984..1995,65..941] ); 


MAGAET MI 
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annual consumption of beer and soft drink per inhabitant (in liter) 


consumption Aa sZ 


izu samt... 


704 pú ene soft drink 
JA 
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651984 1986 1988 1990 1992 1994 
year 


15.103. ábra: A holland lakosság egy főre eső éves sör- és üdítőfogyasztása 


Oszlop- és kördiagramok egyszerűen fölépíthetők a grafikai primitívekből vagy a, 
háromdimenziós rajzoló rutinok speciális hívásaiból. A következő részben látni 
fogjuk, hogyan készíthetünk oszlopdiagramokat a histogram statisztikai rajzo- 
ló rutinnal. Itt néhány egyéb lehetőséget mutatunk be. Először konvertáljuk 
adattáblánkat mátrixszá: 


5 M :- map( d -: map2(op,2,op(d)), lentries(beverage)] ): 
5  setattribute( M, matrix ); 


85 91 85 89 
15 14.5 16 16 
66.86 89" 93 


Az M mátrix sorai a következő italokat írják le: 


5  indices( beverage ); 


[beer], ( wine), ( soft.drink ] 


A plots csomag matrixplot eljárásával hisztogramként ábrázolhatjuk ezeket 
az adatokat (lásd 15.104. ábra) 


matrixplot( M, heights-histogram, style-patch, 
shading-zgrayscale, orientation-[-75,75], axeszbox, 
tickmarks-L[1.5-beer,2.5-wine,3.5-"soft drink"], 
[1.5-1985 ,2.5-1990,3.5-1993,4.5-1994] , 51 , 
labels-[/,"",guant ity], font- (HELVETICA , DEFAULT , 141] 


ta 


VBEN 
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guantity 


soft ár 


15.104. ábra: Az egy főre eső éves italfogyasztás hisztogramja 


Az 1994-ben elfogyasztott italok oszlopdiagramját (lásd 15.105. ábra) így kap- 
hatjuk meg: 


data94 :- linalgl[submatrixI( M, 1..3, 4..4 ): 

matrixplot( data94, heights-histogram, style-patch, 
shading-zgrayscale, orientation-[-90,901], axes-box, 
tickmarks-[[1.5-beer,2.5-wine,3.5-"soft drink"],0,5], 
labels-[5","  guantity] , font-ÍHELVETICA , DEFAULT , 141 , 
title-" consumption of beverages in 1994" ); 


AZON B ÁNN 


consumption of beverages in 1994 


guantity 


15.105. ábra: Az 1994-es egy főre eső holland italfogyasztás oszlopdiagramja 


Kördiagramokat egyszerűen elkészíthetünk a plottols csomag pieslice eljárá- 
sával (15.106. ábra). Az alábbiakban a feladatot megoldó olyan eljárást imple- 
mentálunk, amely [ italnév, mennyiség ] alakú párokból álló listákkal dolgozik: 
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circular bar chart :— proc( d::listlist ) 
local n,i, pies, text, grayshades: 
n :— nops(d): 


grayshades :- map( x-:COLOR(RGB,x,x,x), 
[0.5,0.7,0.91 ) : 
for i to n do 
pieslil :— plottoolsípieslicel( 
[0,01 , ali] [21 ,24Pix(i-1) /n. .2xPixi/n, 
color-grayshadesleval(1t (i mod 3))] ): 
text[i] :— plots[textplot]( L 
1/2xa[i] [2] $cos(Pixr(2ri-1) /n) , 
1/2xalil[2]$rsin(Pixr(2ri-1) /n) , 
convert( d[lil[1], name ) J], 
font- (HELVETICA , BOLD, 14] ) 
od: 
pliots[display]( [L seg(pies[il, i-1..n), 
seg( textlil, i-1..n )], axes-none, 
scaling-constrained ) 
end: 


Alkalmazzuk az eljárást a következő adatokra: 


- 
- 


- 


data94 :- [ seg( [ op(indices(beverage) [i] ) , 
datag4[i,i]], i-1..3 ) 1]; 


data94 :— [[ beer, 89], ( wine, 16], [ soft.drink, 93]] 


circular bar chart( data94 ); 


15.106. ábra: Az 1994-es italfogyasztást ábrázoló körcikk-diagram 


A fönti eljárás könnyen átalakítható oly módon, hogy a szokásos kördiagramot 
vagy annak olyan , fölfújt" változatát kapjuk, ahol az egyes körcikkek között kis 
hézag van. Ezt meghagyjuk gyakorló feladatnak. 

A pareto paranccsal az 1994-es adatok úgynevezett Pareto-diagramját ál- 
líthatjuk elő. A Pareto-diagram a következő komponenseket tartalmazza: a 
csökkenő gyakoriságok szerint fölvett hisztogramot és az összesített gyakorisá- 
gokat jelölő görbét. Az adatok skálázásával megoldható, hogy a gyakoriságok 
helyett százalékértékeket használjunk. 
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5 Values :— map( d -2 op(2,d), data94 ); 
Values :— [89, 16, 93] 


Percentages :— map( (x,s) -2 100£rx/s, 

Values, "4" (op(Values)) ); 

4450 800 1550 

997 997 33. 

5  Labels :— map( d -2 op(1,d), data94 ); 
Labels :— [ beer, wine, soft.drink ] 


Percentages :— 


5  pareto( Percentages, tags-Labels ); 


soft drink 


15.107. ábra: Az 1994-es italfogyasztás Pareto-diagramja 


A listaábrázoló parancsokról szóló jelen szakaszt a listdensityplot-ra vonatkozó 
példával zárjuk: a komplex sík Gauss-egészeinek halmazát ábrázoljuk. Az (2, y) 
négyzetet feketére festjük, ha az z -- yi Gauss-egész prím, egyébként pedig fehé- 
ren hagyjuk. Ehhez először bevezetünk egy olyan függvényt, amely az 1 értéket 
veszi föl, ha a megfelelő Gauss-egész prím. A Maple-nek van egy GaussInt nevű 
csomagja a Gauss-egészekkel végzett számoláshoz, ebben található a megfelelő 
prímteszt is. 
5  isgaussianprime :- 
(x,y) -2 if GaussInt [GIprimel] (xtIlxy) then 
0 
else 
1 
Fée 


MESZ LOM 


Ezután egy 50 x 50-es rácsot generálunk, és fölrajzoltatjuk ennek listás sűrűségi 
ábrázolását (15.108. ábra). 
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data :— array( [ seg( [ seg( isgaussianprime(i, j) , 
1--25..25 ) 1], j--25..25 ) ] ): 

ticks :— [ 1--25, 26-O, 51-25 1: 

display( listdensityplot( data, style-patchnogrid, 
axes - box, scaling-constrained ), 
xtickmarks-ticks, ytickmarks-ticks ); 
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Statisztikai ábrázolás 


15. Grafika 


A stats statisztikai csomagban, még pontosabban annak statsplots nevű rész- 
csomagjában találhatók a 15.4. táblázatban fölsorolt klasszikus statisztikai áb- 
rákat készítő parancsok. 


Plot utasítás — Grafikus objektum 


— 


Egydimenztós: 

boxplot az adatokat összesítő dobozábra 

histogram az adatok hisztogramja 

notchedbox , bemetszett" dobozábra 

scatterld pontfelhős ábra 

Kéldimenziós: 

guantile a megfigyelt értékek és kvantiliseik ábrázolása, 
guantile2 kvantilis-kvantilis ábrázolás 

scatter2d pontfelhős ábra 

symmetry szimmetria-ábra 


15.4. táblázat: A statsplots csomag statisztikai ábrákat készítő parancsai 


Az ábrázolás részleteinek beállítására a changecolor, xshiít és xychange se- 
gédfüggvényeket használhatjuk. Ezen kívül a statisztikai adatokra vonatkozó 


görbeillesztési feladatokat is megoldhatunk a fits részcsomaggal. 


csak lineáris illesztést tud meghatározni. 


A Maple 
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Statisztikai ábrákra csak két példát hozunk. Ahogy korábban megígértük, a 
histogram eljárással is elkészítjük az 1994-es italfogyasztás oszlopdiagramját 
(lásd 15.109. ábra). 
5  data94; 
[[soft-drink, 93], [deer, 89], [wine, 161] 


A histogram eljárásban súlyokként használjuk ezeket az adatokat. 


5  values94 :— [ seg( Weight( i..it1, data94[i,2] ), 
5. asks d J8 


Töltsük be a szükséges csomagokat, és rajzoltassuk föl a diagramot. 


5 with( stats ): with( statplots ): 

5  histogram( values94, color-yellow, tickmarks-z 

pe I[1.5-"soft drink", 2.5-beer, 3.5-winel], default], 
5 font- (HELVETICA , DEFAULT, 10] ); 


15.109. ábra: Az 1994-es italíogyasztás oszlopdiagramja 


A második példában lineáris regressziót alkalmazunk numerikus adatokra, és 
ábrázoljuk a legkisebb négyzetek módszerével illesztett görbét. Tegyük föl, hogy 
a numerikus adatokat a datafile nevű fájlban tároljuk. 


5  ssystem("(cat datafile") [2]; t display data 


EBFOOOCOOCOODOOOO 
OONOÖODNBHBERBE 
9 B5WDVRÓE I je ha ja 

VOODOO HRBEBV E 
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Az adatokat csökkentett numerikus pontossággal importáljuk. Beolvasásukra 
több módszer is van, most a stats csomag importdata parancsát fogjuk hasz- 
nálni. 

s with( stats): with(statplots): 

5 Digits :— 5: 

5: data :— importdata( datafile, 2 ); 


data :— (0, .1, .2, .3, .4, .5, .6, .7, .8, .9, 1.], 
[1., 1.1, 1.2, 1.4, 1.6, 1.9, 2.3, 2.8, 3.5, 4.6, 6.3] 


Az adatokat a 15.110. ábrán jelenítjük meg. 


5 dataplot :5— scatter2d( data, symbol-diamond, color-black ): 
5  dataplot; í display the scatter plot 


15.110. ábra: Az adatok pontfelhős ábrázolása 


Ezután a legkisebb négyzetek módszerével z — a -- bsin(r) -- csin(27) alakú 
függvénnyel közelítjük a megadott értékeket, majd ábrázoljuk az eredeti adato- 
kat és a közelítő függvényt. (Lásd 15.111. ábra.) 
5 fitlleastsguarel [x,y], y- a t bisin(x) t crsin(2rx), 
s fa,b,ct ]]( [datal ); 
y — 1.1563 - 12.770 sin(z) — 6.5290 sin(2 7) 


5  curve :5— plot( rhs("), x-0..1, color-blue ): 
5  display( í dataplot, curve ) ); 
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15.111. ábra: Görbeillesztés a legkisebb négyzetek módszerével 


15.14. Animáció 


A fejezetet néhány animációval zárjuk. A Maple animációk képkockák (,fra- 
mes") sorozataiból állnak, melyek gyors egymásutánban jelennek meg egy: ani- 
mációs ablakban. (ÁAlapföltételezés szerint egy animáció 8 képkockából áll). A 
15.112. ábrán egy mozgó szinuszhullámhoz tartozó animációs ablakot látunk. 
Az egyes képkockákat a 15.113. ábra tartalmazza. 


A[(5 víthíplots): 
ÁT2 animate( sin(2rPir(xrt)), xz0..4, t-6..1, numpointsz$00, 
Íftrameszü ); 


j fi 1 ű j ) j 
hö ti ő. huss / 
] V kv kV si 


15.112. ábra: Maple képernyő animációs ablakkal 
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:Alz 


Látható, hogy a plots csomag animate eljárásával generálhatunk animációkat. 
A visszajátszás módja lehet forward, backward vagy circular. Az animáció 
futtatható gyorsabban, lassabban vagy akár lépésenként. Ezeket az opciókat az 
ablakhoz tartozó menüsorból vezérelhetjük. Az összes többi opció azonban meg- 
adható magában az animate (vagy a vele analóg animate3d háromdimenziós) 
parancsban. 


A 15.113. ábra 8 képkockáját valójában úgy kaptuk, hogy az animációnak 
megfelelő adatstruktúrát a display paranccsal egy grafikus tömbben rajzoltat- 
tuk ki. Formulával vagy függvénnyel generált, illetve paraméteres alakban adott 
háromdimenziós felületeket az animate3d paranccsal animálhatunk. Ugyan- 
ez elérhető úgy is, hogy több ábrát jelenítünk meg a display utasítással az 
inseguence - true opciót fölhasználva. Kísérletezzünk kedvenc felületünk kü- 
lönféle transzformációival! 

Az inseguence opció illusztrálásához létrehozunk egy olyan animációs struk- 
túrát, amellyel implicit görbét jelenítünk meg. Először az implicit ábrázolások- 
ból álló táblát készítjük el: 

5. for i Írom 0 to 8 do 

5 Plil :— implicitplot( x73 ty73 - 5rxry — 1-i/4, 

5 --3..3, y--3..3, tickmarks-[2,21 ) 

5 od: 


A plots csomag display eljárását alkalmazzuk az implicit ábrák egymás utáni 
fölrajzolására, vagyis az animáció megvalósítására: 

5  display( L seg( Plil, i-0..8 ) ], inseguence-true ); 
Az animációt elhagytuk, de az egymás utáni képkockák megtekinthetők a 15.114. áb- 
rán. 


5 display("); 
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Befejezésül egy olyan látványos példát ismertetünk, melyben animált oktaédert 
forgatunk a z tengely körül. 


5 with(plots): with(plottools): ii load the plots package 
5 base :— display( octahedron((0,0,01,1), 

B color-BLUE, scaling-constrained, axes-none, 

5 style-hidden, thickness-3, orientation-[30,60] ): 
5 N :— 16: it number of angles 

5  angles :— [ seg( Pixk/(2rN) , k-0..(N-1) ) 1]: 

5 for phi in angles do 

3 Plphil :- rotate( base,0,0,phi) 

5 od: 

s display( [ seg( Plphil], phi-angles ) J], 

s inseguence-true ); 


Folyamatos visszajátszás esetén az animáció egyenletesen forgó oktaédert mutat. 
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Ebben a részben fölsoroljuk a plot rutinok összes opcióját. A következő csopor- 
tosítást alkalmazzuk: először a minden rutinban alkalmazható opciókat írjuk 
le, majd az egyes grafikus módok speciális opcióit vesszük sorra. A táblázatok 
egy-egy sora az illető opció nevét, lehetséges értékeit és jelentését tartalmaz- 
za. Megjegyezzük, hogy az opciók értéke általában akár kis-, akár nagybetűkkel 
megadható, kivéve, ahol a táblázatban nagybetűs alak szerepel. Elfogadott 
mind a brit, mind az amerikai angol szerinti helyesírás. A szokásos alapfölté- 
telezés szerinti értékek aláhúzva szerepelnek a táblázatokban. A DEFAULT és a 
default speciális nevek beépített platformfüggő beállításokat jelölnek. 
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Általános plotopciók 


axes — style 


A következő tengelystílusok állnak rendelkezésünkre: 


Tengelystílus — Jelentése 


box 


keretben elhelyezett ábra 


DEFAULT az alapföltételezés szerinti stílus 

frame az ábra oldalai mentén fölrajzolt tengelyek 

none nincsenek tengelyek az ábrán 

Cartesian a Descartes-féle koordinátarendszernek megfelelő ábrázolás 


axesfont — [ family, style, size ] 
A tengelyeken lévő beosztásokhoz használt font. További részletek a font 
opciónál találhatók. 

color — colorspec 


A színeket a következő módon adhatjuk meg: 


Sziínspecifikáció Jelentése 

COLOR(RGB,r,g,b) . a megfelelő RGB szín 

COLOR(HSV,h,5,v) a megfelelő HSV szín 

HUE( h ) COLOR(HASV,h,0.9,1) 

color name valamely előre definiált színnév (aguamarine, black, blue 
stb.) a plot/colortable táblából (kiíratása előtt adjuk 
ki a readlib( plot /color") parancsot) 


coords — name 
A megadott koordinátarendszert kívánjuk használni. Kétdimenziós grafika 


esetében a következő nevekre gondolhatunk: bipolar, cardiod, cartesian 
stb. (a ?plot,coords kiírja a többi megengedett nevet is). A háromdimen- 
ziós grafikában gyakori koordinátarendszerek cartesian, cylindrical, 
spherical stb. (a ?plot3d,coords kiírja az öszes nevet). 

font — [ family, style, size ] 
A text objektumokban használt fontot határozza meg. A size a pontokban 
megadott fontméret. A family és a style következő kombinációi érhetők el: 


Fontcsalád  Fontstílus 


COURIER BOLD, BOLDOBLIGNUE, DEFAULT, OBLINUE 
HELVETICA  BOLD, BÜLDOBLIGUE, DEFAULT, OBLINUE 


TIMES ROMAN, BOLD, ITALIC, BOLDITALIC 
SYMBOL sz 


labelfont — [ family, style, size ) 
A tengelyeken elhelyezett cimkékben használt fontot határozza meg. To- 
vábbi részleteket lásd a font opciónál. 
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labels — ( sz, Sy (, sz) ] (két vagy három sztring) 
A tengelyek mellé írt cimkézés. 
linestyle — n (nemnegatív egész érték) 


A grafikon vonalait a 0 és 7 közti n egész értéknek megfelelő szaggatott 
vonalstílussal rajzoltatjuk ki. (A 0 az alapföltételezés szerinti érték.) 


numpoints — n (természetes szám) 


A mintapontok minimális számát határozza meg (az alapföltételezés szerinti 
értékek: két dimenzióban n — 49, három dimenzióban n — 625). 


scaling — mode 


Három skálázási módszert alkalmazhatunk: 


Skálázás 
constrained az ábrát minden dimenzióban azonosan skálázzuk 
DEFAULT az alapföltételezés szerinti skálázás 

unconstrained az ábrát az egyes dimenziókban tetszőlegesen skálázhatjuk 


Jelentése 


symbol — name 


Ha a style - point opciót alkalmazzuk, az egyes mintapontokat vagy a 
poligonok csúcsait a következő szimbólumok valamelyikével jelölhetjük: 


Specifikáció circle [ cross DEFAULT diamond Í point 


Szimbólum -k rendszerint -- o 


thickness — n (nemnegatív egész érték) 


Az ábrán szereplő egyenesek vonalvastagságát meghatározó, a [0, 15] tar- 
tományba eső szám. Ezen kívüli értékekkel a moduláris aritmetika szabá- 
lyai szerint számol a rendszer. Az alapföltételezés 0, nagyobb számérték 
vastagabb vonalat jelent. 


tickmarks — ( xzspec, yspec (, zspec) ] 
A tengelybeosztások számát, elhelyezését és cimkézését határozza meg. 
Mindegyik specifikáció állhat egy számból (pl. a beosztások minimális szá- 
ma), számok egy listájából (pl. az osztásjelek helye a tengelyen) , egyenletek 
listájából (pl. az osztásjelek helyei a hozzájuk tartozó címkékkel) vagy a 
default speciális értékből. 

title — s (sztring) 
Az ábra címe ( az alapértelmezés s—NULL, vagyis nincs cím). 

titlefont — [ family, style, size ] 
A címben használt fontot határozza meg. További részleteket lásd a font 
opciónál. 
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viewW—VvVU 
Az ábrából látható tartományokat adja meg. v lehet függvényértékekből 
álló tartomány, a default speciális érték, vagy ilyen specifikációkból álló 
egy-egy lista a tengelyirányoknak megfelelően. A default olyan elegendően 
nagy tartományt jelent, amely lehetővé teszi a teljes görbe vagy felület 
megjelenítését az adott dimenzióban. A view alapértelmezése default 
minden tengely mentén. 


A plot eljárás specifikus opciói 


adaptive — true/false 
Az adaptív ábrázolás megengedése/tiltása. 

discont — true 
(Csak kifejezésekre alkalmazható!) Alapföltételezés szerint a Maple nem 
törődik a szakadási helyekkel. Ha azonban a true értékre állítjuk be ezt az 
opciót, megpróbálja megtalálni és megfelelően kezelni őket. 

filled — true 
Kitölti a görbe és a vízszintes tengely közti tartományt. 

resolution — n (természetes szám) 
A megjelenítő eszköz képpontjainak dimenziónkénti száma (alapértelmezés: 
n — 200). 

sample — paraméterértékek sorozata 
A kiindulásként használt mintapontokat megadó paraméterértékek. 


style — name 


A következő rajzolási stílusok állnak rendelkezésünkre: 


Stílus Jelentése 

line a mintapontokat egyenes szakaszokkal kötjük össze, a poligo- 
nok kitöltött belsejét elhagyjuk 

patch a pontokat szimbólumokként, a görbéket egyenes szakaszok 


segítségével, a poligonokat kifestett tartományokként, külön 
megrajzolt határukkal együtt ábrázoljuk 
patchnogrid ugyanaz, mint a patch, csak elhagyjuk a poligonok határát 
poin csak a mintapontokat és a poligonok csúcsait rajzolja ki 


xtickmarks — ( xzspec] 
A vízszintes tengely beosztását adja meg. Részletesebben lásd a tickmarks 
opciónál. 

ytickmarks — [ yspec ] 
A függőleges tengely beosztását adja meg. Részletesebben lásd a tickmarks 
opciónál. 
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A plot3d eljárás specifikus opciói 


ambientlight — [r,g,b] 
Az RGB színmodell szerint a megadott erősségű vörös, zöld és kék kompo- 
nesekből álló szórt fény. 

color — colorfunc 
A közös plot opcióknál fölsorolt összes színmegadási lehetőségen túl ki is 
színezhetünk egy térgörbét vagy egy felületet. A colorfunc olyan függvényt 
vagy kifejezést jelöl, amely az ábra pontjaihoz a HUE séma szerinti színeket 
rendel, de lehet ( r, g, b ] alakú lista is, ahol r, g és b a nyomtatási tarto- 
mányt meghatározó változóktól függő kifejezések vagy függvények, ekkor a 
kapott értékek az RGB színskála szerint értelmeződnek. 

contours — specification 
Ha. a contour vagy a patchcontour rajzolási stílust választjuk, ezzel az 
opcióval megadhatjuk a szintvonalak számát. Az alapértelmezés: n — 10. 
A specifikáció lehet függvényértékek listája is, ekkor a nekik megfelelő szint- 
vonalak szerepelnek az ábrán. 

grid — [nz, ny ) (két természetes szám) 
A mintapontok által kifeszített (négyzet)rács dimenziói. Alapföltételezés: 
nz - ny — 25. 

gridstyle — rectangular/triangular 
Téglalapokból/háromszögekből álló rácsot használunk. 

light —[d9d,r,g,b] 
Az RGB színmodellnek megfelelő, a megadott erősségű vörös, zöld és kék 
komponesekből álló olyan fényforrást szimulál, amelynek fénye a (fokokban 
mért) [ $, 9, ] szférikus koordinátákkal megadott irányból éri a grafikus 
objektumot. 

lightmodel — name 


A következő táblázat az ambientlight és a light opciókra külön-külön 
tartalmazza az előre definiált megvilágítási modelleket: 


Modell . Ambient Light Light 


lighti " (0.5, 0.5,0.5] (90, —45, 0, 0.9, 0], [45, —45, 0, 0, 0.91, 
(90, 45, 0.9, 0, 0] 

light2 — [0.5, 0.5, 0.5] [45, 90, 0.9,0,0],  [45, 45, 0, 0.9, 0], 
[90, —45, 0, 0, 0.9] 

light3 — [0.5,0.5,0.5]  [45, 45, 0, 0, 0.9], (45, 45, 0, 0.9, 0], 
[0, 135, 0.9, 0, 0] 

light4 — [0.6, 0.6, 0.6]  [85, 60, 0.8, 0.8, 0.8] 
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orientation —[d,6] 
Azt adja meg, hogy melyik irányból nézzük az ábrát; ez a nézőpont iránya 
szférikus koordinátákban: $ a z tengellyel bezárt szög, 9 pedig a nézőpont 
Ty síkra való vetületének az z tengellyel bezárt szöge (mindkettő fokokban). 
Alapértelmezések: $ — 0 — 45, lásd a 15.73. ábrát. 

projection— p 


A következő p értékeket használhatjuk: 


p Projekció értéke Jelentése 


fisheye 0 nagylátószögű perspektíva 
normal 1/2 közepes perspektíva 
orthogonal 1 nem perspektivikus ábra 

a p € [0, 1] valós szám általunk definiált perspektíva 


shading — name 


Több árnyékolás közül választhatunk: 


Árnyékolás — Jelentése 


none nem alkalmazunk árnyékolást 

xyz a tengelyek mentén változó színárnyalatok 

xy csak az z és az y tengely mentén változnak a színek 

z a z tengely mentén egyetlen színtartomány szerinti színezés 
zgrayscale a. z értékek szerinti szürkeárnyalatos színezés 

zhue a z értékeknek megfelelő HUE színmodell szerinti színezés 


style — name 


A következő rajzolási stílusok használhatók: 


Stílus Jelentése 


contour csak a felület szintvonalait ábrázoljuk 
hidden mint a wirefírame, csak a rejtett éleket kitöröljük, vagyis 
eltávolítjuk a felület más részei által takart egyenes szaka- 


szokat 
line a wireframe szinonímája 
patch a felületet drótvázon kifeszített árnyékolt elemekből állítjuk 


össze, a takart elemek kitörlésével 
patchcontour  szintvonalakkal kiegészített patch stílusú ábrázolás 
patchnogrid mint a patch, csak a rácsozatot elhagyjuk 
point csak a mintapontokat és a poligonok csúcsait jelenítjük meg 
wireframe a szomszédos mintapontokban fölvett függvényértékek egye- 
nes szakaszokkal való összekötésével drótvázas felületet raj- 
zolunk 
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Az animációval kapcsolatos opciók 


frames — n (természetes szám) 


Az animáció során n képkockát jelenítünk meg. Alapföltételezés: n — 16. 


framescaling — name 
Az animációban megjelenő képkockák skálázása a következő módokon tör- 
ténhet: 


Skálázás 
default az alapföltételezés szerinti reláció 


nonuniform minden kocka külön skálázható 
uniform minden kocka azonos mérték szerint skálázott 


Jelentése 


inseguence - true Álapföltételezés szerint a display több ábrát egyetlen rajz- 
zá kombinál össze. Ezzel az opcióval az ábrákat egy animáció kockáiként jele- 
níthetjük meg. 


15.16. Gyakorlatok 
8 sin2m 8 
1. Ábrázoljuk az — vért függvényt a (0, 47) intervallumon. 


? sint z 
2. Az Sz szinuszintegrált a Si(xr) — f sizzti dt képlettel definiáljuk. Ábrázoljuk 
tv 
Si(r)-et a (0,100) intervallumon; számítsuk ki lim 5Si(x)-et, és az eredményt 
T7-—$OoOo 


hasonlítsuk össze a a grafikonról leolvasható válasszal. 


3. Ábrázoljuk az 1 3! faktoriális függvényt és deriváltját a (—4, 4) interval- 
lumon. 


4. Gépeljük be a 
plot( cosh(x)"2 - sinh(x) "72 - 1, x-0..10 ); 


parancsot, és magyarázzuk meg, hogy mit látunk. Tudunk-e javítani az ered- 
ményen? 


5. Ábrázoljuk az z — z sin(1/x) függvényt a nulla körüli valamely , érdekes" 
tartományon. 


t 
6. Ábrázoljuk at — ű e" do függvényt a (—2, 2) intervallumon. 
00 


x 
7. Ábrázoljuk az Tt — fi sin(sin €) dé függvényt a (0, 27) intervallumon. 
0 


8. Rajzoljunk föl néhány Lissajous-görbét, melyet tetszőleges m és n egészre a, 


ta ( sin(mt), sin(nt)) 
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paraméteres alak definiál. Szenteljünk külön figyelmet annak az esetnek, amikor 
m és n egymás utáni Fibonacci számok. 


9. Rajzoljuk föl a Bernoulli-féle lemniszkátát, amely a következő módokon ad- 
ható meg: 


(a) az (5? 4 y?)? — (x? — y?) egyenlettel, 
(b) az r? — cos2é polárkoordinátás egyenlettel, és 


cost costsint : y 
——— a Paraméterezéssel, melyben —r £t 2 Tr. 


c) az T— —— — z 
(c) ismét 17-sinft 


10. Rajzoljuk föl a következő paraméteres ábrákat. 


8-1 2t 


(a) te (6 mr) . $€(—on 00), 


(b) 16 (52 — 92 a 5t 1 —58—81 90), te(0,1), 


(c) rajzoljuk föl az előbbi ábrát a t—  ( cos(3t), sin(5t)), t € (0, 1) paramé- 
teres függvénnyel együtt. 


11. Ábrázoljuk a H Heaviside-féle lépcsősfüggvényt, majd a következő függvé- 
nyeket: 


(a) H(z—1) — H(z — 2), 
10 
(b) 3 (—1/2DIH (a — í/2), 


(e) (1— Iz]) (H(z 4 1) — H(z — 1)). 


12. Ábrázoljuk a t — (FresnelC(t), FresnelS(t)) paraméteres alakban adott 
függvényt a (0, 6) intervallumon, és írjuk le a görbe asszimptotikus viselkedését. 


13. Rajzoljuk föl az r — cos 9(4 sin? 0 — 1) polárkoordinátás egyenlettel definiált 
, folium"-ot. 


14. Ábrázoljuk az 1  x -b cos(rr) függvényt a (—49, 49) intervallumon 


(a) a plot alapértelmezés szerinti beállításaival, 


(b) különböző opciókkal. 
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15. Rajzoljuk föl az z — e? 3. 1]n]4 — r] függvényt a (0, 5) intervallumon. Mi a 
véleményünk a kapott eredményről? 


16. Rajzoljuk föl az 1 függvényt —1 és 1 közti z és y értékekre. 


x 
32 ty? 


17. Ábrázoljuk az (x,y) — 2(x? — 3y?) függvénnyel definiált ,majomnyerget? 
különböző opciók fölhasználásával. 


18. Ábrázoljuk az (r,y) Fő sin(27z)sin(2ry) függvényt 0 és 25 közti z és 
y értékekre anélkül, hogy az opciók alapértelmezését megváltoztatnánk. Mi a 
véleményünk az eredményről? 


19. Ábrázoljuk a következő paraméterezéssel adott felületet: 
($.9) A (cos $ sin(29), sin $ sin(29), sin 0), 
ahol 9 és $ 0-tól 27-ig változik. 


20. Rajzoljuk föl a (—1,0) és az (1,0) koordinátájú pontokban elhelyezett egy- 


dd 4 te 


21. Rajzoljuk föl a Klein-féle palackot a Dieudonné-féle parametrizáció [56] 
fölhasználásával: 


x 


(2 -- cos(u/2) sint — sin(u/2) sin(27) ) cos u 
(2 3- cos(u/2) sint — sin(u/2) sin(2t) ) sin u 
sin(u/2) sint - sin(u/2) sin(2t) 


ahol0 £ u . 27és0 Ct a 27. Hasonlítsuk össze az eredményt a, [128]-ban 
található , grafikus galéria" első példájával. 


22. Rajzoljuk föl a Klein-féle palackot a Banchoff-féle parametrizációval (v. ö. [7]): 
z —  (cos(9/2)(V/27- cos b) - sin(9/2) (cos $ sin $)) cos 0 


y ( cos(9/2)(V2 -- cos $) 4 sin(9/2) (cos $ sin 6) ) sin 8 
z —  — sin(9/2)(V2- cos) -- cos(9/2) (cos $ sin 6) 


ahol 0 c 0 £ 4rés 0 £ $ a 27. Hasonlítsuk össze az eredményt a [109]-beli 
színes ábrával. 


23. Rajzoljuk föl a Möbius-szalagot. (Útmutatás: a, megfelelő paraméterezést 
megkaphatjuk egyenesszakasznak változó emelkedési szögek szerinti kör körüli 
forgatásával.) 


24. Ábrázoljuk a következő paraméterezéssel definiált katenoidot: 


(9,2)—  (cos0 coshz, sind coshz, 2), 
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a0 SL 8 £ 27 és —1 £ z £ 1 paraméterértékekre. Készítsük el a megfelelő 
hengerkoordinátás ábrát is. 


25. Ábrázoljuk azt az Enneper-féle minimális felületet, amelyet az 


u 3 uv2 v v? 2 2 


tagot z ő a e e, seek s v 
É 2 6 2" 2.6 2 2 2 
Paraméterezéssel kapunk. 


26. Ábrázoljuk az exp(z) cos z — cosy egyenlettel definiált Scherk-féle minimális 
felületet. 


lását. 
28. Ábrázoljuk az (z,y) — sin z cosy függvény kétdimenziós gradiensmezőjét. 
29. Készítsünk forgó spirálist ábrázoló animációt. 


30. Készítsük el egy ház rajzát kizárólag a grafikus primitívek fölhasználásával. 


dig ásó 


értékkel kapjuk. Készítsük el a szürkeárnyalatok színskáláját. 


32. Bizonyítsuk be és szemléltessük Pascal tételét a geometry csomaggal. 


Pascal tétel. Legyenek A, B, C, D, E és F egy körvonal tetszőleges pontjai. 
Jelölje P az AB és a DF egyenesek metszéspontját, 0 a BC és az FE egyenesek 
metszéspontját, végül R a CD és az EA egyenesek metszéspontját. Ekkor a P, 
(2 és az R pontok egy egyenesre illeszkednek. 


33. Bizonyítsuk be és szemléltessük Euler következő tételét. 


Euler tétel. Tetszőleges háromszögben a magasságpont (a magasságvonalak 
metszéspontja), a súlypont (a súlyvonalak metszéspontja) továbbá a köré írt és 
a beírt kör középpontja egy egyenesre illeszkedik. 


34. Igazoljuk és szemléltessük a Feuerbach-körről szóló következő tételt. 


Feuerbach tétel. A 7T háromszög csúcsai legyenek A, B és C. Jelölje A, 
B", C" az oldalfelező pontokat, D, E, F a magasságok talppontjait, végül X , 
Y és Z a H magasságpontot a csúcsokkal összekötő szakaszok felezőpontjait. 
Ekkor az A", B", C!, D, E, F, X,Y és Z pontok rajta vannak azon a körön, 
amelynek N középpontja a H-t a T körülírt körének O centrumával összekötő 
szakasz felezőpontja, sugara pedig fele a T köré írható kör sugarának. 


35. A plottools csomaggal készítsük el a 15.106. ábrán látható kördiagram 
olyan , fölfújt" változatát, amelyen az egyes szegmensek között kis hézag van. 


ES 


Egyenletek megoldása 


A fejezet a Maple-ben implementált azon módszereket tárgyalja, melyekkel kü- 
lönböző típusú egyenleteket és egyenlőtlenségeket, illetve ezekből álló rendsze- 
reket oldhatunk meg. Külön figyelmet szenteltünk az algebrai egyenletrend- 
szereknek, a Gröbner-bázisok használatának. A rekurrens relációk alkotják az 
egyenletek másik részletesen ismertetett típusát. A (különféle tartományok fö- 
lötti) egzakt módszerek mellett foglakozunk közelítő numerikus módszerekkel is. 
A fejezet példái szerteágazó alkalmazási területekről származnak: elektromos 
áramkörök tervezése, kémiai reakciókinetika, neurális hálózatok és dimenzió- 
analízis. 


16.1.  Egyismeretlenes egyenletek 


A solve Maple eljárás legegyszerűbb változata egyismeretlenes egyenleteket pró- 
bál megoldani: 
s egn :— (x-1)r(x72txt1) — 0; 
egn :— (5—1)(22t 241) —0 


s solve( egn, x ); 


1 1 i 7 


Az egyenlet tartalmazhat több ismeretlent is, ekkor még megkérhetjük a 
Maple-t, hogy oldja meg valamelyik ismeretlenre a többit paraméternek tekint- 
ve. 

5 egn :— x73 1 2rarx72 t arx — 1; 
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egn:— 33 32a14ar—1 
5  solve( egn, x ); 
T.szsájs 2 
-yi/8 §y29.£ 
6" 69 30 
1 2 1 1 
gy öl 4 Ba zat ZT VS0- AV 462), 


-2 gi széke 19118 
gaz öl 4964 Ta 21v3(571 3692) 


91 :— 72 a? -- 108 — 64 a? -- 12 V—84 a3 — 12 a! -- 108 a2 3 81 


72 :— 3 9 
911/8 


A Maple három (komplex) megoldást talált, ezeket kifejezéssorozatként repre- 
zentálta. A példából az is világosan kitűnik, hogyan ábrázolja a Maple a bo- 
nyolult kifejezéseket: megpróbál közös részkifejezéseket találni, és ezeket a 271, 
742 stb. címkékkel jelöli. Mi is hivatkozhatunk ezekre a cimkékre mindaddig, 
míg értékük meg nem változik. 


5 rationalize( /273 ); 


pi 1 ii 1 
—— a? — — 3 — a? 4 — vV—84a3 — 12 at 1- 108 a2 -- 81 


648 432 729 3888 


A gyakorlatban csak a közvetlen hivatkozás biztonságos, mivel előfordulhat, 
hogy a rendszer újra fölhasználja a cimkét, s ezzel törli az előző információt. A 
munkalapos fölhasználói felületen másként is kiválaszthatjuk a cimkéhez rendelt 
jobboldali értéket: másoljuk át a képletet egy input sorba, s ha szükséges, adjunk 
neki nevet is. 


16.2.  Rövidítési lehetőségek a solve alkalmazásánál 


A solve hívásának első argumentumaként egy egyenletet vagy egyenletek hal- 
mazát várja a Maple, de ha csak kifejezéseket adunk meg, az ,— 07-t hozzá 
képzelve automatikusan egyenletekké egészíti ki őket.! 


s solve( a 4 1In(x-3) - 1n(x), x ); 
ez 
140 


!1Fölhívjuk az Olvasó figyelmét, hogy a Maple az egyenletrendszereket és a megoldásokat 
halmazokként tárolja, így a fejezet némely példájának eredménye függ a halmazok elemeinek 
fölsorolásától. (A Fordító megjegyzése.) 
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Második argumentumként változónevet vagy változók halmazát kell megadnunk 
a Maple-nek. Ha ez hiányzik, a Maple az első argumentumban szereplő isme- 
retleneket az alábbihoz hasonló paranccsal határozza meg, 


indets( egns, name ) minus í constants hb 


és az eredmént használja a solve második argumentumként. Ez roppant kényel- 
mes, de néha furcsa következményekkel járhat. 


s  solve( a 4 1n(x-3) - In(x) ); 
(a — -n(z — 3) 4 In(z), 2 —z) 


A Maple z-re és a-ra oldotta meg a rendszert. Az z — z megoldás azt jelenti, 
hogy z értéke tetszőleges lehet. 


Láttuk, hogy a Maple a terjedelmes részkifejezéseket cimkékkel rövidíti. A 
rendszer néha másfajta rövidítéseket is alkalmaz: 


5 XT - 2kx76 - 4rx"5 - x73 4 x72 t 6ix 1 4; 
31 —2137—435—7342727136214t4 


s  solve("); 


1-4 V5, 1— vV5, RootOf(. 27 — 7—1) 


Ezzel azt akarja közölni a Maple, hogy két analitikusan fölírható megoldást 
talált, az 1 -k v5-öt és az 1 — V5-öt; a többi gyök pedig a 27— 7-1-0 
algebrai egyenletet a .Z2 ismeretlenre megoldva kapható meg. 
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A solve alkalmazásával kapcsolatban a következő gondjaink lehetnek: a rendszer 
nem talál megoldást, bár biztosan tudjuk, hogy létezik, nem kapjuk meg az 
összes megoldást, végül túl sok (hamis) megoldást kapunk eredményül. A fönti 
esetek mindegyikére mutatunk példákat, és arra is teszünk javaslatokat, hogyan 
segíthetünk a Maple-nek. 


Nem kaptunk megoldást, pedig biztosan létezik legalább 
egy 


Gyakran tudjuk, hogy az egyenletnek vagy egyenletrendszernek van megoldása, 
de nincs olyan általános módszer, amellyel ezt meg is lehetne találni. Van- 
nak olyan esetek is, amikor matematikai szempontból nézve nincs is reményünk 
arra, hogy analitikus formában föl tudjuk írni az általános megoldást. A Galois- 
elméletből jólismert, hogy az ötöd- vagy ennél magasabb fokú algebrai egyenle- 
tek gyökeire nem adható csupán gyökjelekkel fölírt megoldóképlet. A. Maple-től 
sem várhatunk többet, csupán elég jó algoritmusok halmazát (bizonyos) egyenle- 
tek megoldására. De számos olyan matematikai probléma is létezik, amelyeknél 
az általános módszerek nem vezetnek eredményre, a fölhasználó mégis elő tudja 
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állítani valamilyen úton a megoldást. Ennek alapja sokszor a formulák spe- 
ciális alakjának, tulajdonságainak fölismerése, amit egy számítógépes algebrai 
rendszer nem vesz észre. 


Ha a Maple nem talál megoldást, három dolog történhet: 


1. A Maple a RootOf jelöléssel visszaadja az eredeti egyenletet, hogy tovább 
dolgozhassunk vele: 
5  solve( cos(x) — x, x ); 


RootOf(.Z — cos(.2)) 


s evalf("); 
.7390851332 


2. A rendszer csöndben marad, mivel nincs megoldás. 


5  solve( x—-— x t1, x ); 
ő 


3. A rendszer csöndben marad, mivel nem talált megoldást, de elképzelhe- 
tő, hogy létezik megoldás. Ezt a Maple a SolutionsMayBeLost változó 
true-ra történő beállításával is megerősíti: 

5  solve( cos(x) — x72, x ); 
b 
5 — SolutionsMayBeLost; 


true 


Beszédesebb lesz a Maple, ha megnöveljük az infolevell[lsolvel] változó érté- 
két. Mivel a solve is fölhasználja a remember opciót a korábbi problémákra 
adott válaszok megőrzésére, először a forget segítségével töröljük a solve előző 
eredményeit: 

5 readlib(forget): 

forget( solve ): it forget previous results of solve 


infolevellsolve] :-— 2: it make Maple more communicative 
solve( cos(x) — x72, x ); 


NAV 


solve: Warning: no solutions found 
solve: Warning: solutions may have been lost 


Ismert, hogy ennek az egyenletnek nincs zárt alakban fölírható megoldása. Most 
tehát akár meg is dicsérhetnénk a Maple-t, hogy nem talált megoldást. Néha 
azonban kicsit kiábrándítóak a solve válaszai. Az olyan számítások például, 
amelyek függvények valamelyik ágának kiválasztását igénylik, vagy amelyek gyö- 
köket, logaritmusokat, esetleg trigonometrikus függvényeket tartalmaznak, nem 
túl jól mennek a számítógépes algebrai rendszereknek, s ebből a szempontból a, 
Maple sem kivétel. 
5  infolevell[solvel] :— 1: t reset userinfo 
5 egn :— x t x7(1/3) — -2; 

egn zi r/8 — 2 


16.3. Néhány probléma 477 


5 solve( egn, x ); 


solve: Warning: no solutions found 


A rendszer nem talált rá az z — —1 valós megoldásra. Most kisegíthetjük 
a Maple-t, ha a gyökös kifejezéseket a RootOf jelöléssel algebrai számokká 
transzformáljuk, megoldjuk az egyenletet, az eredményt visszakonvertáljuk gyö- 
kös alakra, és ellenőrizzük, nincs-e túl sok , megoldásunk". 
5  convert( egn, Rootüúf ); 
x H RootOf(.2? — x) — —2 
5  solve(t",x); 
5 1 5 1 
Az (x 42)? 4 z polinom összes komplex gyökét megkaptuk. 
Másik példa: 
s  solve( sin(x) — 3krx/Pi, x ); 
RootOf(3.-Z — sin( 2) 7) 
s evalf("); 
.5235987756 
A sin(x) és az z —  31/r függvények grafikonja alapján világosan látszik, hogy 
pontosan három megoldás van: r/6, —1/6 és 0. 
A föntiek alapján még ne legyünk túl rossz véleménnyel a solve képességeiről. 
Néhány gyöngyszem: 
s  (x76-1)7x — 0; solve(",x); 
(zf . 1) —-0 
3 NNNNSI F 1 1 
Soszá teki st lat 
hsz b 43, atni V3 
s x 41 x7(1/2)4x7(1/3)tx7(1/4) — 4; solve(",x); 
14 VT az 3 gt/t — 4 
1 
s  x73r(In(5)-1n(x))-3; solve(" ,x); 
2? (In(5) — In(x)) — 3 
5 el1/3 LambertW( 5£)) § el1/8 Lambert W(-1, 5) 


5 arccos(3rx) - 2rarcsin(x); solve(",x); 
arccos(3 3) — 2arcsin(x) 


3 1 
egett 


5  arccos(2rx) - arctan(3rx); solve(",x ); 
arccos(2 1) — arctan(3 2) 


ő -242/10 
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5  max( x, 2rx-2 ) - min( x72-1, 5-x ); solve(",x ); 
maxí(r, 27 — 2) — min(z? — 1, 5 — r) 


TIT 27 1 kget 5 7 
27275zt2vő; 
5 evalf(["]); 

[—.6180339890, 1.618033989, 2.333333333] 


267 


A 16.1. ábra alapján szemléletesen is meggyőződhetünk az eredmény helyessé- 
géről. 

5  plot( ( max( x, 2rx-2 ), min( x72-i, 5-x ) b, 

5 x — -4..4 ); 


16.1. ábra: A max(r, 27 — 2) és a min(r? — 1,5 — Tr) grafikonja a (—4, 4) inter- 
vallumon 


5 abs( x t abs(xt1) ) — 1; solve(",x ); 
le 4]z-41I]-1 
0, Realgkange(—oo, —1) 


Az egyik megoldás (végtelen) intervallum! Ha halmazjelöléseket használunk, az 
eredményt is halmazokként írja ki a rendszer: 


5  solve( (""], (xl ); 
(2 — 0), (íz c —-1) 


Túl kevés megoldás 


A hiányos megoldás klasszikus példája a következő: 
s  solve( sin(x) -— 1/2, x ); 
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A tetszőleges k c Z-vel adódó végtelen sok ér --2kr és Sr t 2kr alakú meg- 


oldás helyett a Maple megelégszik egyetlen eggyel. A többi megoldást csak úgy 
kaphatjuk meg, ha az  EnvAllSolutions környezeti változónak true értéket 
adunk: 


5 readlib(forget): 

5  forget( solve ); t forget previous answer 
5 — EnvAllSolutions :— true: 

5  solve( sin(x) — 1/2, x ); 


1 2 
Éz Cr.-Bi 1927.Z1" 
e"tzr-BI 427.21 


A B1"7 változó tetszőleges bináris számjegyet (0 vagy 1), a .7217 pedig tetsző- 
leges egészet jelöl. 
5: map( about, indets(" name) ): 


Pi: 
is assumed to be: Pi 


Originally Bi, renamed B1": 
is assumed to be: OrProp(0,1) 


Originally Zi, renamed 21": 
is assumed to be: integer 
Két további hasonló példa: 
5  solve( exp(x) — 2, x ); 
In(2) 42Imx.27 


s  solve( exp(-x) — x, x ); 
Lambert W( NNI, 1) 


Itt a logaritmus, illetve a Lambert-függvény különböző ágain kapjuk a különböző 
megoldásokat. 


Néha találkozhatunk a  MaxSols változóval is, amely fölső korlátot ad meg 
a kért megoldások maximális számára. Álapföltételezés szerinti értéke 100, de 
szükség esetén ez is átállítható: 


5, egn :— product( x-k, k-1..101 ) — 0: 
5  nops( ( solve( egn, x ) b 2); 


100 


5 — MaxSols :— 200: 
5  nops( (í solve( egn, x ) 3 ); t true number of solutions 


101 
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Túl sok megoldás 


Egy olyan trigonometrikus egyenlet következik, amelynél a Maple támogatásra 
szorul. 


5 — EnvAllSolutions :— true: 
5 egn :— sin(x)73 -13/2:sin(x)72 t ilxsin(x) - 4; 


egn :— sin(r)? — z sin(z)? 4 11sin(r) — 4 


5 solve( egn, x ); 

arcsin(2) — 2 arcsin(2) -B17 4-2m.217 4 mr .B1", 
1 
artár-BI42r.2I7, 


6 
arcsin(4) — 2 arcsin(4) B1" 27.217 47. BI" 


Megvan az összes komplex megoldás, de mi valószínűleg csak a valósakat sze- 
rettük volna meghatározni. Jobban a dolgok mögé látunk, ha, az egn egyenletet 
sin(x)-re oldatjuk meg: 


5  solve( egn, sin(x) ); 
1 
2, -—, 4 
, 9" 


A kapott három egyenlet, sinz — 2, sinz — 2 és sinz — 4 már külön-külön 
megoldható. 

A következő példa azt illusztrálja, hogy ha függvényhívások nevét használjuk 
ismeretlenként, s erre akarjuk megoldatni egyenleteinket, kellő óvatossággal kell 
eljárnunk, mert ilyenkor a Maple nem túl sok matematikai böcsességről tesz 
tanúbizonyságot. 

5  solve( cos(2rx) — cos(x), x ); 
E a — BT H2T.Z17",2m 217 
3 3 
5  solve( cos(2rx) — cos(x), cos(x) ); 
cos(2 7) 


Vigyázat, az előző egyenletben a rendszer cos 27-et nem tekinti a cos z polinom- 
jának. 
5  solve( 24kcos(x)72 - 1 5 cos(x), cos(x) ); 


él] 
5  seg( solve( cos(x) — s, x), sz " ); 


T- am-BI 42.217, 2m.217 
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Ezt a részt két gyakorlatiasabb kérdés vizsgálatával zárjuk. Az első az egyen- 
letek ,preprocesszálása". A gyökök megkeresése előtt a Maple habozás nélkül 
egyszerűsíteni próbálja az egyenletet: 


5  (x-1)72 / (x72-1) - 0; 


(z— 17 
2-1 gi ú 
s solve("); 
1 
TVYt (xz — 1)? 
A Maple maga is rájön, hogy ha az "S-t valós függvénynek tekintjük, 


akkor az z — 1 nem megoldás. 


s  subs( x-i, "" ); 


Error, division by zero 


(z—1? , (2—1) 


2-1" 241 
analitikus kiterjesztést véve z — 1 megoldásnak tekintendő. 


s limit( 1hs(""), x-1 ); 


ekvivalensek. Az 


Az R[r] hányadostest elemeiként azonban 


0 


Befejezésül arra a problémára hozunk föl egy példát, amikor az egyenletrend- 
szer megoldásainak fölírásához a rendszer nem képes megfelelő paraméterezést 
találni. 

s egns :— ( witxtytz—-1, wty-0, 

5 2wtz5s2 vtzzO) 

s vars :— indets( egns ); 


vars :— íz, y, w, v, 2) 


5  solve( egns, vars ); 


(y-—wv-2w—2,T—2w—1,2——2wt 2 w—wl 


Ha egy egyenletrendszert az összes ismeretlenre nézve oldatunk meg, a Maple 
a megoldások paraméterezésére ilyesféle kritériumokat használ: ,vegyük azt az 
egyenletet, amelyben a legkevesebb tag van" vagy ,vegyük azt az egyenletet, 
amelyben legegyszerűbbek az együtthatók" stb. Mit tegyünk, ha más kritériu- 
mokat szeretnénk alkalmazni? Valamely változót a többiekkel kifejezve megkap- 
hatunk úgy is, ha mellékföltételekre vonatkozó egyszerűsítéseket végeztetünk: 


s simplify( ív,wh, egns, [v,w,x,y,z] 2); 
1 
—Zz, — — 1 
£ 2, GHódál ) 
s simplify( (fv ,wt, egns, [v,w,z,y,x] 2); 


1 1 
(27t5.2-1) 
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De ez nem azt jelenti, hogy megoldottuk az eredeti egyenletrendszert. Ez a mód- 
szer csak akkor alkalmazható, ha előre tudjuk, hogy mely változók használhatók 
paraméterekként. Ilyenkor a paramétereket ki is hagyhatjuk az ismeretlenek 
halmazából. 


5  solve( egns, (v,w,y,zb ); 


1 1 1 1 
ssel esztbats eti asz zőj 


16.4.  Egyenletrendszerek 


Az előző rész utolsó példájában már láttuk, hogy a solve egyenletrendszerek 
megoldására is fölhasználható. Az egyenleteket és az ismeretleneket halmazként 
kell megadnunk. Még ha egyismeretlenes egyenletrendszerünk van is, az isme- 
retlent egyelemű halmazként kell fölírni. Ebben a részben néhány gyakorlati 
példán mutatjuk be az egyenletrendszerek megoldását. 


Lineáris egyenletrendszerek 


Először egy olyan rendszert tekintünk, amely a 16.2. ábrán látható, ellenálláso- 
kat tartalmazó elektromos áramkörben a feszültségek, az áramerősségek és az 
ellenállások közti kapcsolatot írja le. (Ez a példa a [(62]-ből származik.) 


16.2. ábra: Ellenállásokat tartalmazó elektromos áramkör 


Mivel ez egy villamosmérnöki példa, célszerű az ebben a körben szokásos gya- 
korlatot követve a V—1-et I helyett J-vel jelölni. 


5 restart; 

5 alias( J-I, J-sgrt(-1) ): 

5 egns :— (1 R[1]:xI[1]-4R[3]:I[3]-R[4]:xI[4]-V[1]-0, 

: R[2]:I[21-V[21-R[3]:I[31-O, R[51:I[51-R[61:xI[6]-V[21-0, 
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s R[51:I[51-RC715xI[7]-R[4]5IC[4]1-0, I[11-I[21-I[3]-0, 
I[21-I[61-I[8]-0, I[51-I[631-I[71-0, I[41-I[7]-I[1]-0, 
s I[31-I[81-I[41-I[5]-0 3; 


v 


egns :— (134 Ig — 14 — I; —0, I4 34 [7-1 s I — I2 — I3—-0, 
DB — Ig — Ig —0, I; 3 Ig — Iz —0, R; Is — R; 1g— V2 —0, 
R. I: 4 Rz Iz 3- R4 14 — Vi — 0, R2 I2 — V2 — R3 Iz — 0, 
R; Is -4 R7 [7 — R4 14 —0) 


Tekintsük ezt olyan lineáris egyenletrendszernek, amelyben a feszültségek és 
az ellenállások adott paraméterek, az áramerősségek pedig a meghatározandó 
ismeretlenek. 

s currents :— ( seg( I[il], i-1..8 ) b: 

s resistors :— ( seg( RL[il], i-1..7 ) ): 

s: voltages :— ( V[1], VI[21 3: 

s gol :— solve( egns, currents ): 


A megoldást nem írattuk ki. Ehelyett az Is áramerősségre keresünk egyszerűbb 
képletet. Előtte még alkalmaznunk kell az assign eljárást az áramerősségekre 
kapott megoldásra, mert a solve magától nem teszi meg ezt. 
5 assign( sol ): 
s I(51; 
(Ri R3 R7 Va 4 Ri R3 R4 V2 -- R3 R2 R4 V2 4 R4 Rz3 R7 V2 
- Ri R2 R4 V2 4 R1 R2 R7 V2 -- R3 R4 RG V2 4 R3 R2 R; V2 


-- V1 Rs R2 R4 1- Vi Rs R4 Rz -.R4 Ra Rr Va) /(Ri Rs .Rs Reg 


- R1 Rs R4 R;5 1 Ri: R3 R4 Rs 1 Ri Rs3 R7 R5 4 Ra R3 R7 R; 
2 R3 R2 R4 R5 1 R4 R3 R; Rg 1 R4 R3 R7 Rs 1 Ri R3 R7 Rs 
2 R1 R2 R7 Rs 1 Ri R2 R4 R5 3 R1 R2 R7 Rs5 4- Ri R2 R4 Rs 
- R3 R2 Rz Rs; t R3 R2 R; Rs 3- Ri R2 R; Rs 1 R4 R2 R7 R; 
- R3 R2 R7; Rs 1 R4 R2 R; Rs 1- R4 R2 R7 Rs 3- R3 R2 R4 RG) 


A formulát úgy egyszerűsítjük, hogy a részkifejezéseknek rövid neveket adunk, 
és I;-öt ezekkel előállítva egyszerűsíttetünk. 


5 relations :— ( 

5 A — R[1]:R[2]:xR[4] 4 R[1]:R(3]:R[4] 4 R[21:R[31:R[4] , 
s B - R[5]:R[6] 4 R[5]:$:R[7] 4 R[6]:R[7], C - R[1]:R[2] 
p-d 4 RC[11]:R[3] 4 R[21:R[3] 4 R[21:R[4] 4 R[3]:R[4] , 
s 

ug 

a 


Dp - R[41:R[6] 3: 
I[5] :— map( simplify, IIl5], relations, 
[op(resistors) , A,B,C,D] ); 


. 044 WIRD VÁ: VŐ VEND 
7 a R54A1BC1tR;A 


Is : 


s I[5] :— map( collect, I[5]1, Í[V1,V2,D] ); 
((V2 - V1) Rz 4 Vi R2) D3-V2 A V2 R7C 


Ig 
ü R5A31BCtR;A 
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Második példaként tekintsük egy olyan egyenletrendszert, amely valamely 
enzim által katalizált reakció pszeudo egyensúlyi állapotát írja le. A Michaelis- 
Menten elméletet alkalmazzuk a 16.3. ábrán látható dimerikus enzimreakcióra. 


ki ks 
tá CE Sas a. Eat VP 
k2 
ha S "ta CC 
kz ka 
hk S BE Cs ka Ci 4 S 


16.3. ábra: Dimerikus enzimreakció 


Itt az S, P, E, C1, Cs és Cs rendre az alapanyag-koncentrátumot, a végtermék 
koncentrátumát, a szabad enzim és a három enzim-alapanyag komplexum kon- 
centrátumát jelenti. A reakció kinetikáját leíró determinisztikus matematikai 
modell a következő differenciálegyenlet-rendszerrel adható meg: 


CI 
C2 
Cs 


k22C3 (k33 -- ka) Cs — (k2E - ka4C1 Tk k3C2)S 
k5C1 1 keCz — (ks5. E t- ks6GC2)P 

(k11 I jú ks) Ci - ko2C2 — (ki - k25S -k ks5P)E 

(ki -- ks5P)E 4 kaCs — (kii 1 ks 4 ka45)Ci 
k2.ES 3- (ks 4 kz3) Cs — (k22 1- k35 4 kes P)C2 
(k66 zP- k35)C2 -- ka C1 S — (k33 - ky - ke) Cs 


Koncentráljunk az első egyenletre. A kényelem kedvéért a különféle nevekre 
néhány rövidítést vezetünk be a macro és az alias segítségével. 


5 alias( S§-S(t), P-P(t) ): it s, p as functions of time t 


5  seguence : 
seg( k.i.i 
seg( C.i 

(evalO€subs) ( szseguence, "macro(s)? ): 

RS :- k22xC2 4 (k33-4k4)rC3 - (kK2rEtk31C2-tk44rC1)rS; 


VVVY 


seg( k.i — k[lil, i-1..6 ), 
Srkli il "a5ir 6195 
cli], isi..6 ): 


RS :— k2 2 C2 3 (k3,3 t ka) Cs — (ka E 3- kz C2 4 ka 4C1) 5 


Föltételezzük, hogy a pszeudo egyensúlyi állapotban a, szabad enzim és a komp- 
lexek kontcentrációja csak olyan lassan változik, hogy akár időben állandónak 
is vehetjük. Ekkor a következő egyenletrendszert kapjuk, amely a CI, C5, Cs és 
E ismeretlenekre nézve lineáris: 


5 sys :— 
2-0 s 
Ba 0 — 


(k11tk5):rCi 1 k22kC2 - (k1tk2kxS-4k55kxP)xE, 
(k1tk55rP)xrE 4 k4xC3 - (k11--k5-tk44kS)rCI1, 
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5 0 - k2xrExS 4 (k6tk33)xC3 - (k22tk3r$Stk66xP):rC2, 
s 0 - (k66xPtk3:S):rC2 4 k44:xCIxS - (k331k4tk6)rC3, 
s EO - C14C2-C3-E ); 


sys :— (0 — (k6,6. P 4 kz 5) C2 - ka, 4 C1 § — (k3,3-4 ka 3 ke) Cs, 
05 (ki 4 ks5,5P) EA ka Cs — (ki, 1 - ks 4 ka, 4 5) C1, 
E0 — CC. 1021 0CszitE, 
0 k2 ES (ke - ks, 3) Cs — (ka, 2 4 k3 5 -- kő, 6 P) C2, 
0 — (ki, 1-4 ks) Ci -- ka, 2 C2 — (ki -4 ka 5 -- ks,5 P) E) 


A Maple meg tudja oldani ezt a rendszert, így az §" reakciósebesség kifejezhe- 
tő S, P, Eg és az adott konstansok segítségével. A terjedelmes megoldást nem 
íratjuk ki. Ehelyett inkább számoljuk ki a ks55; — kes — 0-nak megfelelő speciális 
esetet. 

s solve( sys, 1C1,C2,C3,E) ): 


s assign("): 
5  k55 :— 0: k66 :— 0: 


12:2 


s diff(S,t) - collect( normal(RS), S, factor ); 


sz — —§S E0(kz 5? ka ka, a ke 
- ks (ks ka ka - ki, 1 ka ka 4 ki, 1 ke ka 4 ki ka, 4 ke tt ks ke ko) S 
— ka, 4 ki ks, 3 k2,2) / (aa 5 kg ka 
(ki ka, a k3 1 ki, 1 ks ka - ka ka, 4 k3,3 1 ko ka, a ke 4 kz ka ka -- ks ks ko) 
5? 3 (ks ka ka -- ki ka, a ka,2 4 ki ka kz -- ki, 1 ke ka -4 ka, 4 kz, 3 k2, 2 
- ks; ka k3 ki ka, a ke 1 ks kz, 3 ka F ki, 1 ka kz 2 ks ke ka 
-- ka, a ke k2,2 t ki, 1 ka ka 4 ki ka, 4 kz,3 1 ki, 1 ks, 3 ko) S 
TF k2,2 (k3, 3 -t ky -k ks) (ki -4 ks -k k1,1)) 
A Maple ennek a, differenciálegyenletnek az analitikus megoldását is meg tudja 


határozni a dsolve eljárással. A. differenciálegyenletekről részletesebben csak a 
következő fejezetben lesz szó. 


Nemlineáris egyenletrendszerek 


Ennyi elég is volt a lineáris egyenletrendszerekről. Megoldásuknál egyedül a 
gépidő és a memória mérete jelent korlátokat. A rendszerben két algoritmust 
implementáltak a megoldás előállítására. Az első a ritka mátrixok kezelésével 
kiegészített szokásos Gauss-elimináció, a második egy , primitív" törtmentes al- 
goritmus, amely többek között egészekből, gyökkifejezésekből vagy polinomok- 
ból álló (esetleg ritka) együtthatómátrixok esetében alkalmazható. Fordítsuk 
figyelmünket a nemlineáris egyenletrendszerek felé. Tekintsük a következő kör 
és parabola egyenletét. 


34y-25, y— 2? —5, 
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Oldjuk meg a rendszert a Maple segítségével. 
5: egns :— ( x72 4y-2 — 25, y-5 x2- 5 hb; 
egns : (27 4y" —25,y— a? — 5) 

5 vars :— (íx,yhb: 
5  solve( egns, vars ); 

(y——5,7—0) (y——5,7—0),(y—4 5—3]),(r——3,y—4) 
Ez elég egyszerűen ment, de a nemlineáris egyenletek megoldása könnyen bo- 
nyodalmakhoz vezethet: 


5 restart; 
5 egns :— í x72ty72-1, sagrt(xty)-x72-y72 ); 


egns : (/2 1 y— z? — y?, x? 4 y? — 1) 


s vars :— ífx,yhb: 
5 sols :— solve( egns, vars ); 


sols : (íz — —RootOf(2. 2? — 1), y — RootOf(2.2?—1)), 
(z—-1,y—0), (z—2—493—2937 4393, y — 93), 
(z—2—492—292-14392,y- 92) 
91:—-4.2"3429—2 72?-4 7-1 
792 :— RootOf(271, —.8090169944 -- .3930756889 /) 
963 :— RootOf(21, —.3269928304) 
A Maple láthatóan négy megoldást talált, ezeket halmazok sorozataként repre- 
zentálta az eredmény kiírásakor. Az egyes halmazokon belül a változóknak az 


adott megoldáshoz tartozó értékei egyenletek formájában vannak megadva. Ez 
megkönnyíti a megoldások visszahelyettesítését az eredeti rendszerbe. 


5  subs( sols[2], egns ); 


5 simplify( subs( sols[1], egns ) ); 
(10—0,1—-1] 
A megoldások ellenőrzésére a testeg eljárást is használhatjuk. 


s map( testeg, subs( sols[1], egns ) ); 
(true) 


Az elsőként megtalált megoldás, 
5 sols[1]; 

(z — —RootOf(2 .2? — 1), y — RootOf(2.2? —1)) 
valójában kettő vagy négy megoldásból álló halmaz. Ha mindkét RootOf- 
os kifejezés ugyanazt a komplex számot jelöli, két megoldás van, melyeket az 
allvalues eljárással állíthatunk elő. 
5 si :5— allvalues( sols[1], "dependent? ); 


51: (y- 5/2252) (2-5 V2y- 2) 
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Az allvalues hívásában a dependent kulcsszó azt jelenti, hogy a RootOf két 
előfordulását nem egymástól függetlenül kell kiértékelni, hanem mindkétszer 
ugyanazt az értéket kell venni. Az allvalues alkalmazásakor ez a Maple alap- 
föltételezés szerinti viselkedése. 


Ezt az első megoldást tekinthetjük négy különböző esetnek is, és külön-külön 
ellenőrizhetjük, hogy melyik ad igazi megoldást: 
5 sols[1]; 
(íz — —RootOf(2.2? — 1), y — RootOf(2.22?—1)) 


5 candidates :— allvalues( sols[i], ? independent? ); 


candidates — (y— 5422 —5 2), (2-5 V2v- 52), 


-5V2 2-5 2), (2-5 vV2v--5 Va) 


5. for c in candidates do 
simplify( subs( c, egns ) ) 
5 od; 


v 


(10—0,1—1) 


(A-n m1) 


(27/4-0,1-1) 
(10—-0,1—1) 


Látható, hogy a négy , jelöltből" csak két esetben kaptunk megoldást. A követ- 
kező eljárással válaszhatjuk ki a megoldásokat. 


5 issol :-— proc( sol, egns ) 

28 convert( map( testeg, subs( sol, egns ) ), 
5 "and" ) 

5 end: tt the selection routine 

5  select( issol, (candidatesb, egns ); 


(fveváeeeh he- an) 


A harmadik és a negyedik megoldásnál újabb érdekes dolgot tapasztalunk, itt 
ugyanis a RootOf-nak van egy extra argumentuma, amellyel egy meghatározott 
gyököt jelölünk ki. Ezt átkonvertálhatjuk a megszokottabb gyökös jelölésmódra, 
is: 


5  sols[3]; 


(v-912—-2—491—-290 4391) 
951 :— RootOf(4.2" 44.27? —2 7? —4 Z — 1, —.3269928304) 
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5  convert( ", radical ); 


5 3 2.3 3 
(97912-7— 491 —2271 r3v8-1V232v) 
90 e eyg edd pdiye 
moz Ta A 4 
5 s3 :— simplify("); 


1- 7 d 7 1: rzd re 3/ 
99 [v--717v5- 242V5,1——1t7v5t7 24245) 


5  convert( sols[4], radical ); 


5 
(12-14-29 vő 5 V2-2vő,v- xi) 


1 1 1 
Kile evés TV2-B4ő 


s s4 :— simplify("); 
LT 1 BR, LT 41 1 
54 —[v--7-g vő 242455 —g-gvő-TI -21 248] 


Ténylegesen tehát öt megoldást talált a Maple, nevezetesen 
5 s1, sols[2], s3, s4; 


1 1 1 1 
(-3V22--i 3). (2-5v2v--g vő] -1v-0), 
1 NOZÉN 1 t A TA 
1--gg vő; 23945 ap-gtgvőtz 24245], 
1 1 1 
(v7-3-g vő V-242v5a--1-gvő-2I -24 25) 


de saját jelöléseit alkalmazva a RootOf-okkal két vagy több gyököt összevon- 
tan, egyetlen kifejezésként írt föl. Némileg csalódott lehet az Olvasó, hogy a 
Maple miért nem a gyökös alakban fölírt megoldásokkal állt elő azonnal. Vé- 
gül is a RootOf-ok belsejében legföljebb negyedfokú polinomok szerepeltek, 
ezek gyökeit meg ki lehet fejezni gyökjelekkel. Ha az EnvExplicit környezeti 
változót a true értékre állítjuk, a Maple mindig fönti óhajunk szerint jár el. 

5 readlib(forget): 

5 forget( solve ): tt forget previous results 

5 — EnvExplicit :— true: 

5 candidates :— ( solve( egns ) ); 


1 1 
candidates :— ( (z-1,y-0), (7 57 -5völ, 
1 1 
-zv72v--gvb, 


16.4. Egyenletrendszerek 489 


11-942-5- 4948 -2992 42 1v5-T 24246), 
fecske Szal sat őr akk 
y-922-7—492 ated 547 V7-9vE 2-IVBE ; 
(479127 1-490 242 Tf v5- Tf V2- 2v8)) 
981:——1—-2v5-1V2-ivő 

1 1 1 
92:—7—7vV547V2-2v5 

1 1 1 
73:——147V547V24r2v5 

hh.z 1 
94 : SETÉT 2424V5 


5 nops("); 


Ez még túl sok megoldás! A problémát az okozta, hogy a Maple nem különböz- 
tette meg, hogy a 427 4 423 — 22? — 4z—1 polinom négy gyöke közül melyekkel 
kaptunk valódi megoldásokat. Ezért nekünk kell kiválogatni az igazi megoldáso- 
kat. Ez nem megy a korábban definiált issol rutinnal, mivel az teljes egészében 
a testeg eljárásra hagyatkozik, és nem tartalmaz óvintézkedéseket arra az eset- 
re nézve, ha az utóbbi hibázna. Ezért most úgy alakítjuk át, hogy először az 
összes tagot áthozzuk a baloldalra, négyzetre emelünk, majd a radnormal eljá- 
rással normálalakra hozzuk a skatulyázott gyökjeleket tartalmazó kifejezéseket. 
A feladat további része már megoldható a testeg-val. Ha a testeg hibát je- 
lez, vagyis nem tudja eldönteni, hogy az adott kifejezés tényleg megoldás-e, a 
biztonság kedvéért visszadjuk ezt a gyököt is. 


5 issol :5— proc( sol, egns ) 

5 local egs; 

5 egs :— subs( sol, egns ); 

5 egs :5— map( lhs - rhs, egs ); 

5 egs :— map( u -2 u72, egs ); ítt c- sguare expressions 
ösi egs :— radnormal( egs ); 

be if not convert( map( testeg, egs ), "and" ) 
5 then false 

5 else true 

- b aa b 

5 end: t$ the selection routine 


Az előző szelekciós rutinban a részeredményeket azért emeltük négyzetre, hogy 
lehetőség szerint elkerüljük az egymásba skatulyázott gyökjelekkel kapcsola- 
tos problémákat. Enélkül a testeg nem biztos, hogy rájönne arra, hogy az 


1/2/2 — 245 4 1/2/54/2 — 245 nemnulla komplex szám. 
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5  select( issol, candidates, egns ); 


( eztys0k 1-2 2-- vö (2-5v5v--gva, 


4 


t.- 4 1 
issza tvörTV2-győ 


4 
TI 2 1 


5 
(v-922-1-147-2m2 1 vő- 24245, 


v-9412—-5—-4988-24V-fvő1 ő 2-2V5)) 


s nops("); 
5 


A négyzetreemelésekkel az eredeti egyenletrendszer polinomiális rendszerré ala- 
kítható. Az így nyert rendszer a hagyományos módszerekkel, például az isme- 
retlenek kiküszöbölésével is megoldható. 


Először végezzük el a négyzetreemelést, és írjuk föl a kapott polinomokkal az 
új rendszert: 


s Pli] :— ( 1hs - rhs )( egns[1] ); 
Po :— s? 34y-1 
s  P[2] :— ( 1hs72 - rhs72 )( egns[2] ); 
P,:—24y— (27 -yy 
s Pegns :— ( P[1], P[2] 3; 
Pegns :— ír 4 y — (z? — yó, 37 4 y? — 1) 


A következő lépésben küszöböljük ki az y ismeretlent a rá vonatkozó rezultáns 


vünkben, vagy például az [53, 76, 130, 132, 138] irodalmakban.) 
s egn.x :— resultant( P[1], P[(2], y ) — 0; 

egn.z :— —67? —22 — 82? 387? 3247" 3162? — 327 — 0 
5 egn x :— factor( egn x ); 

egn.2:—25(1—1)(222—1) (457142? —252?—47—1)—0 


A Maple könnyedén megoldja az x ismeretlenre ezt az algebrai egyenletet: 
5 x roots :— solve( egn x ); 


3 £.4 LIZBR 4 
2-roots — 0, 1, 5 V2,-5V2,-n 747 24245, 


4 4 
1 1 1 1 1 1 

gússó ám b CAN A ás ker har kár ha Lágá ae 
1 1 1 
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Az y ismeretlent mellékföltételekkel kiegészített egyszerűsítéssel fejezhetjük ki 
z segítségével: 
s simplify( PI[2], ( Pli] b, ly, x 1); 

13ty—4rtr4r—1 


5 egny :— y — solve(",y); 

egny:—y——rt4rt— 47941 
Az (egn.r, egn.y) egyenletekből álló új rendszerre ugyanazokat a megoldásokat 
kaptuk, mint amit az  EnvExplicit környezeti változó true értékénél a solve 


adott volna. A , hamis gyökök" a négyzetreemelés következményei. Mindenesetre 
megtaláltuk az eredeti rendszer összes megoldását. 

A kiküszöbölést könnyebb lett volna az eliminate könyvtári függvénnyel el- 
végezni. 


5 readlib( eliminate ): 
5  eliminate( (P[1],PI213, y ); 


(y—221—z—27? 3-1), 
(í2(z—1)(232—1) (45442? —272—42—1)H 
Ez az eljárás pszeudo-rezultánsokat és pszeudo-szubrezultánsokat használ (v. ö. 


[4, 53, 76, 139]). Az eliminate eredménye alapján könnyen láthatók a megoldá- 
sok. 


Vegyük elő újra eredeti példánkat, de most írjuk föl három ismeretlennel. A 
négyzetgyök helyett vezessünk be egy új z ismeretlent, s konstruáljunk ezzel 
egy olyan algebrai egyenletrendszert, amelynek megoldáshalmaza tartalmazza 
az eredeti rendszer összes megoldását: 


5 egns :— 1 x72 1 yr2— 1, z— x72 - y72, 272-xty]); 
egns — (2-7? —y,2-zt4y z Thy z1) 
Ezután tekintsük a rendszert definiáló polinomok halmazát: 
s  polys :5 map( lhs - rhs, egns ); 
polys — (2— 23? thy, 2—z—y 373 ry—1) 


Most küszöböljük ki y-t és Z-t: 
5  eliminate( polys, fyszd 2); 


(2—-432—4989 443" 4827 —811—42?327—1, 
y—-25t—2—277 41), 
(z(2—1)(222—1) (454457? —277—47—1)) 


Lényegében megkaptuk a korábban látott megoldást. 


Általában nem ilyen könnyen megy az algebrai egyenletrendszerek analitikus 
megoldásának meghatározása az eliminációs módszerrel. A következő részben 
egy jóval kifinomultabb módszert írunk le ugyanennek a problémának megoldá- 
sára. 
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16.5. A Gröbner-bázis módszer 


A polinomok kiszámíthatósági elméletének fontos fogalmát alkotják a Gröbner- 
bázisok. A 14.7. alfejezetben a mellékföltételekre vonatkozó egyszerűsítésnél al- 
kalmaztuk a Gröbner-bázis módszert. Ebben a részben azt fogjuk röviden meg- 
vizsgálni, hogyan használható algebrai egyenletrendszerek megoldására. Továb- 
bi részletek (például a megoldáshalmaz végességének tesztelése vagy a módszer 
kiterjesztése testekről gyűrűkre) a [13, 26, 27, 51] munkákban találhatók. 

Lássuk, hogyan kezelhető az előző rész utolsó példája a Gröbner-bázis mód- 
szerrel: 
5 polys :— ( x72 34 y7r2 - 1, x72 - yr2-z, x ty - z72 b); 

polys :—— (32 4y?—1, 2? —y—z, zhy-— 27) 
Az zx, y és z változóknak a z 3 y - 2 relációval indukált valódi lexikografikus 
rendezésére vonatkozó minimális Gröbner-bázist így kapjuk: 
5  with( grobner ): it load the Groebner basis package 
5 G :- gbasis( polys, [z,y,x], ?"plex? ); 
G :— [/-232241,213y—1442?—4zt, 
—327— 21-42? — 427 31221 — 1627 1829] 

5 G :-— factor( G ); 


G :— [/-23741,24ty-—-1447? — 477, 
21(z—1)(222—1) (42443? —252?—47—1)] 
A Gröbner bázis közös zérushelyeinek halmaza ekvivalens az eredeti polinomok 
közös zérushelyeinek halmazával. A Gröbner bázisban viszont sikerült levá- 
lasztanunk az x egyváltozós polinomját, a másik két ismeretlen pedig könnyen 
kifejezhető z segítségével, mivel az első két polinom triviálisan megoldható y-ra, 
illetve 2-re. 
27-272—-1, y— —431—472?—r711 
A harmadik polinom, 
2(z—1)(252—1)(451"H4z?—23?—42—1) 
gyökei fölírhatók analitikus alakban. Ezután minden gyöke visszahelyettesíthető 
az y-ra és a z-re vonatkozó egyenletbe. 


5 — EnvExplicit :— true: 
5 assign( í solve(G[1], íz, solve(G[21]1 ,íy)) ) ); 
5 rootlist :— [ solve( G[3] ) 1; 


1 1 1 1 
e. 1 5 vé s ezt 19542 V24245, 
1 1 1 
V2712v5, -2-gva] 2—2.v5, 


ző — 
get "4 
1 1 

dB 
04 ns 4 5] 
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for x in rootlist do 
simplify( [ ?"x?-x, ?"y?"-y, "27"—z ] 
if simplify( subs( ", polys ) ) -— 
then print( "valid solution" ) 
else print( "INvalid solution" ) 
fi 

od; 


Jas 
(03 


VAN 


[2-09y-1,2——1] 
valid solution 
[2-1,9y—0,2—1] 


valid solution 
[7 5V2y--i 52270] 
valid solution 
[2--572v-5v2 270] 
valid solution 
[275 egve V2r2v5v--113v8-; 24245 
2-2 V242v545v5 2425 ] 


valid solution 


1 1 1 1 1 Tk 7 
[27--3678-; 242V5,y5—-1t7V5t7 24245, 


2-7 V242v5-5v5 2425] 


valid solution 


1 T 1 / 1 1 1 
[27-2-gv5- I Aah yzejegvőszi —212V5, 


1 
2-—2IV-2424/5—3IV8 2425 ] 


valid solution 


1 1 1 
[27-5-; 371 —23245, v--3-3 ő 1. 4-atayő, 


z — TK nezte 


valid solution 
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A Gröbner-bázis módszer egyik előnye az előző részben látott eliminációs mód- 
szerrel szemben az, hogy különböző rendezési relációkkal kísérletezve mélyebben 
megismerhetjük a megoldandó probléma struktúráját. 

Második példánk egy neurális hálózatokkal kapcsolatos közönséges differenci- 
álegyenlet stabil állapotait leíró egyenletrendszer (lásd [146]). 


(cz try? 4 z2? —1, cytyr? hy2—1, cztzr? tzy? —-1) 


Ezt az z, y és z ismeretlenekre vonatkozó egyenletrendszernek tekintjük; c adott 
paraméter. A solve eljárással kapott alábbi megoldás algebrai függvényeket 
tartalmaz: 

5 egns :— ( cxrx t xry72 
5 cry t yrx72 t yiz72 — 


t xsz72 —.1, 
í, csz t z$XxX72 t zry72— 1 b); 
egns :— 
(czt2z3? hzy—1 cytyzty22 1, crtry ht rz? — 1) 


5. — EnvExplicit :— false: tf stick to Root0fs 
5  solve( edgns, í(íx,yizb ); 


íz — RootOf(c.2—1-- 2.29), y — RootOf(c.2—1-42.2?), 


1 
z —- ——  — e - —— —  ——— )]), 
ct2RootOf(c.Z2Z—1- 2.782! 
úg ÁLIS YALAYI j e 
es. 3 ezt 33 ei j 
9448 c —133c421292 
ÉS 4 aa —1-42cY2-4 292? GRRR, ZRRRNER 
dlölé; c ; —-133c423292 [/ 
1 2 1cYW2? 3 92 
y-—- ——— z—— 2-2, 
2 c9421 92 —1 


já 1 2922 -437c424 692? 4 c8 
2 92214cW2—-2c—92 : 


bed cry 
—  RootOf(.224.2941190 ho) 


y — RootOf( 22 3.2914191V 4090) z— 71) 


91 :— RootOf(1--e.Z 3.2?) 
952 : RootOf(3c.22 42-12 .21— 7) 
Ez a válasz csak egy strukturálatlan számhalmaz. Algebrai egyenletrendszerek 
megoldásánál hasznos lehet a groebner csomag gsolve eljárása. A gsolve-nak 
csak a nullára redukált egyenletek baloldalán álló polinomokat kell megadni. 
5  polys :5s map( lhs - rhs, egns ); 
polys :— (cy kyz? hy2? —1 crtrytr22—1 czitzz? -H2y? — 1) 


16.5. A Gröbner-bázis módszer 495 


5 with( grobner ): t load Groebner basis package 
5 settime :— time(): 
5 sys :— gsolve( polys, íÍx,y.zl 2); 
sys : [[D—2,y—z, cz—1-4- 220], 
[cs—1-42e2223, y—z, 2 13c22 4221 — 7], 
[rt2ztyyztety 42214 cezit ző], 
[1—2,—142e2422? ey, 9 th 3e2? 1221 — 2], [ 
21—$€41(—ő—2)zt4cz2—22 ő, 
—-8? 31(—-8—2zt4cz 22791 2y, 
2214142c2—22?12ezf] 
s cpultime :— (time()-settime) $ seconds; it computing time 
cpu.time :— 117.374 seconds 
Olyan új polinomrendszerek listáját kaptuk, amelyek közös zérushelyei mege- 
gyeznek az eredeti rendszer megoldásaival. Ezek az új rendszerek sokszor már 


könyebben megoldhatók, vagy legalábbis jobban megmutatják, hogyan osztható 
föl az eredeti probléma kisebb részproblémákra. 


5 for s in sys do 


5 solve( fop(s)), (x,y.z) ) 
5 od; 


(íz — RootOf(c.2—1--2.2?), z — RootOf(c.2—1-42.29), 
y — RootOf(c.2—142.2?)) 


—132cX134291? 
fr tás e; ize Eg 


c 
91 :— RootOf(3c.22 42 412.21— 27) 
(íz — —91 — RootOf(.2? 3 .2913 91 4 o), 


y — RootOf(.22 42913 91749, 2—-91) 
991 : RootOf(1-ke.Z 4.2?) 


—142cY14291? 
ászt, gy sztlál aggze EE ESEL z 


c 
951 :— RootOf(3c.2? 42 32.21— 7) 


1 1 
—-31y-52-15910491—2c3V ZT ő, 


1 1 
ts göA 5716 419V1—2c9V 191 0) 
951 :— RootOf(.22 2 411-42c.7—2.2742c.29) 
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Hasonlítsuk össze a gsolve eredményét az eredeti rendszer Gröbner-bázisának 
kiszámításával: 


5  settime :— time(): 
5 G :— gbasis( polys, [x,y,z], "plex? ): 
5 cpultime :— (time()-settime) $ seconds; 


cpu.time :— 2346.394 seconds 
5 factor( G[-1] ); 


(cz—1-422)(I1Fezr2) (22 Pé h112c02—22312cz) 
(ő 3c2 1221 — 7) 


A gsolve szerinti megközelítésnél valahányszor faktorizálható polinomhoz ju- 
tunk, a Maple az egyes tényezőknek megfelelő részfeladatokra bontja föl az ere- 
deti feladatot. Ezzel növelhető az eljárás hatékonysága, ami a Gröbner-bázis 
módszer alkalmazásainak egyik kulcskérdése. 


Harmadik példánk olyan algebrai egyenletrendszerre, melyet a Gröbner-bázis 
módszerrel próbálunk megoldani, a geodéziából származik. Itt csak fölvázoljuk 
a problémát és a Maple segítségével történő megoldását. A részletek megtalál- 
hatók a [(98]-ban. 

A föld felszínén vagy annak közelében lévő P pont Descartes-féle geocentri- 
kus z, y és z koordinátái, valamint a geocentrikus referencia-ellipszoidra vonat- 
kozó Helmert-féle projekciójának geodétikus koordinátái, a h (magasság), a A 
(földrajzi hosszúság) és a $ (földrajzi szélesség) közti összefüggést a következő 
kifejezések írják le. 


(16.1) z —- (N1 h)cosgdcosA, 
(16.2) — (N-h)cosdsinA, 
(16.3) — (N(1—e?) 4 h)sind, 


ahol az N vertikális főgörbületi sugarat és a referencia-ellipszoid e excentricitását 
a következő formulák definiálják: 


a 


N — —————— 
1— e2 sin? 6 


és 


ahol a és b a referencia-ellipszoid fő- és melléktengelye. A fenti egyenletek alap- 
ján az z, y és z Descartes-féle koordinátákat közvetlenül kiszámolhatjuk a Ah, 
A és $ geodétikus koordináták segítségével. Az inverz probléma sokkal nehe- 
zebb: ekkor a fönti nemlineáris egyenletrendszert kell megoldani a h, A ésa d 
ismeretlenekre adott z, y és z mellett. 

Ha megoldatjuk a, Maple-lel ezt a, trigonometrikus egyenletrendszert, az ered- 
ményben a földrajzi szélesség nyolcadfokú polinomok gyökeivel fölírva szerepel! 
De ennél okosabban is eljárhatunk. Először is a trigonometrikus mennyiségekre 
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bevezetett új ismeretlenek és a jólismert trigonometriai azonosságokból szárma- 
zó algebrai összefüggések hozzávételével rendeljünk eredeti rendszerünkhöz egy 
algebrai egyenletrendszert. A következő változókat fogjuk használni: cf — cos d, 
sf — sind, tf — tand, cl — cos A és s/ — sin A. A négyzetgyökös kifejezésre be- 
vezetjük az S — V1 — eZmathitsf? változót, végül legyen d — (N - h)ef. Így a 
következő egyenletrendszert kapjuk: 

s sys :— [ x - (Nth)rcfrcl, y - (Nth)rcfírs1l, 

z - (Nx(1-e72)4h)ssf, cf7F2 1 sf7F2 - 1, c172ts172 - 1, 

tíxrcf - sf, NxS - a, S§72 t er2rsf"72 - 1, (Nih)rcef - d, 

d72 - x72 - y72 JJ; 


ME 


sys — [2—(N 4 h) ef cld,y—(N-4h) ef sl, 2—(N(1— e?) 4 h) sf, 
cf? dr sf?—1, cP ts? —1, tfef—sf, NS- a, 52 e? sf? —1, 
(N 3 h) ef —d, 2 — 2? —y?] 
Kiszámítjuk a változók 
Naa spy zhzékz al pl sát t 


valódi lexikografikus rendezésének megfelelő Gröbner-bázist: 
5 with( grobner ): it load Groebner basis package 
5 vars :-— IN S,x,y,h,cl,sl,cf,sfí tfl: 
s gsys :— gbasis( sys, vars, ?plex? ): 


A teljes Gröbner-bázis túl nagy ahhoz, hogy kiírassuk. Egyébként is csak a tf 
változót tartalmazó egyváltozós polinom érdekel bennünket, ami várhatóan a 
Gröbner-bázis utolsó polinomja lesz: 
5  collect( gsys[-1], tf ); t get the polynomial in tf 

—2? 4 (22d—2dze)tff 422dtf (8 — 2? rez? rate? 

3 (—-8 a ke) ir 
s  map( convert, - ", sgrfíree ); $ rewrite the polynomial 
22 32(—-1-4 e?) zdtf?—22dtf—(—-8—z? ret? ha ed)if? 
e(daejdi 
s sort( subs( e72rz72 - (e72-1)srz72 4 z72, " ), tf ); 
—(—1-ke?) 8 1tft32(-14 ed) zdtff —(-8 4(-14e2) 22 rate) f? 
—2zdtf 42? 


Végül tehát a tan d olyan negyedfokú polinomját kaptuk, amely már analitiku- 
san megoldható (v. ö. [150]). 


Ugyanerre az eredményre jutottunk volna a finduni eljárással is: 
5 finduni(tf,sys,vars); 
—2? 4 (22d—2dze?) tf? —-2zdtf 4 (—8 — 22 3e2 2? ha ed)? 
4(-£br:fejr 


498 16. Egyenletek megoldása 


Az eljárás a változók teljes fokszáma szerinti rendezést alkalmazza a Gröbner- 
bázis kiszámításához, majd ezt fölhasználva konstruálja meg a polinomok által 
generált ideálnak a, (tf-fel) fölírt legkisebb fokszámú egyváltozós polinomját. 
Ebben a. speciális esetben a, számítási idő két és félszerese az előzőének, amikor 
lexikografikus rendezéssel dolgoztunk. 

Az eddig látott példák alapján már bizonyára kialakult valamilyen elképzelé- 
sünk a Gröbner-bázis módszer erősségéről; akár úgy is, mint az eliminációs vagy 
a Ritt-Wu féle karakterisztikus halmazok módszerének lehetséges alternatívá- 
járól. (Az utóbbi Dongming Wang által implementált és a [186]-ban publikált 
változata megtalálható a Maple osztott könyvtárában.) Mégegyszer emlékez- 
tetünk arra, hogy a Gröbner-bázis algoritmus alkalmazásánál komoly hátrány 
lehet a jelentős idő és memóriakomplexitás. 


16.6.  Egyenlőtlenségek 


Az alábbi példák alapján az Olvasó képet alkothat a Maple egyenlőtlenségek 
és egyenlőtlenség-rendszerek megoldásával kapcsolatos képességeiről. A sikeres 
megoldás szükséges föltétele, hogy egyértelműen elrendezhetők legyenek azok a 
pontok, ahol az egyenlőtlenségek egyenlőségbe mennek át. 

Tekintsük az z 7 2? 4 47? 3 27 — 1 polinomot, amelynek grafikonja a 
16.4. ábrán látható. 


s plot( x73 4 4$rx72 4 24x - 1, x — -4..1); 


16.4. ábra: Az x? - 47? 27 — 1 grafikonja a (—4, 1)-en 


Határozzuk meg, hol pozitív a függvény. 


s  solve( x73 4 44x72 4 24kx- 15 0, x ); 


16.6. Egyenlőtlenségek 499 


RealRange(Open(- 5 — 5 V13), Open(—1)), 
RealRange(Open(-5 -k 5 13), 09) 


Az egyismeretlenes egyenletekhez hasonlóan a megoldás nem tartalmaz változó- 
kat, de most a RealRange jelöléssel van fölírva. Ha a feladatot egyenlőtlenségek 
halmazaként adjuk meg, (az egyenletekhez hasonlóan) az ismeretlent tartalmazó 
egyenlőtlenségek formájában kapjuk a megoldást. 


s  solve( ( x73 4 4xkx72 t 24x - 150), (x ); 
1 1 
(3-5 VB cz, z c -1), (515 VB c 2) 


Az egyenlőtlenség körüli halmaz-zárójelek elhagyhatók, ekkor is megoldáshal- 
mazokat kapunk: 


5  solve( abs(x)rx t exp(x)2-0, (xb ); 


(—2 LambertW(5) £ 2) 


s  solve( axrx tb 5— c, (xb ); 
signum(a) (c — b) ) 


(—signum(a) z £ — üi 


A solve egyenlőtlenségrendszerekre is alkalmazható: 


s  solve( (í x72 - x — 0, xc0 ), x ); t nonzero solution 


(2-1 


5, — EnvExplicit :— true: 
s  solve( (x74-9, x72-300) ); 


(2 —-IV3), (z—-IV3) 


5  solve( ( xc1/3, yc1/2, x721y72-1 ), (x,yb ); 


2 2 
ty c—zV227-V1-y)fyc-3v2z——V1-y?) 
2 1 2 1 
(7 v2dyszyi-gyézk 72 eze -yi-w aza 


5 evalf(["]); 


[(x — 41. — 1.42, y c —.9428090414), 
(z — —1. V1. — 1.42, y c —.9428090414), 
(xz — V1. — 1.y2, —.9428090414 c y, y £ .5000000000), 
(xz — —1. 1. — 1.y2, —.9428090414 c y, y £ .5000000000)] 
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16.7. Numerikus megoldási módszerek 


Egyenletek vagy egyenletrendszerek megoldásainak numerikus közelítésére az 
fsolve Maple eljárást alkalmazhatjuk. Használata hasonló a solve-hoz. 
5 X7 - 2rx76 - 41x"5 - x73 41 x72 t 6rx t 4, 

2 —22"—-435—r? 41 46144 


5: fsolve("); 
—1.236067977, 1.167303978, 3.236067977 


A 16.1. táblázatban fölsorolt kiegészítő opciókat is megadhatjuk: 


Jelentése 


complex komplex értékű gyök(ök) 
a..b a valós számok ezen tartományában keresünk gyököt 
maxsols-n —— a megoldások maximális száma 

fulldigits  Digits pontosságú lebegőpontos számítások 


16.1. táblázat: Az fsolve opciói 


Néhány példa: 
5 fsolve( "" , x , complex ); 


—1.236067977, —.7648844336 — .3524715460 I, 
—.76488344336 -t .3524715460 /, .1812324445 — 1.083954101 7, 
.1812324445 -- 1.083954101 1, 1.167303978, 3.236067977 


s fsolve( "9" , x , 0..2 ); 
1.167303978 


Az utóbbi esetben arra kértük a Maple-t, hogy csak 0 és 2 közti valós megoldá- 
sokat próbáljon keresni. 

Algebrai egyenleteknél az fsolve általában (de nem mindig) az összes valós 
megoldást kiszámítja, sőt a komplex opció használata esetén az összes komplexet 
is. Más típusú egyenletek esetében rendszerint megelégszik egyetlen megoldás 
meghatározásával: 

5 egn :— sin(x) — x/2; 


1 
egn :— sin(z) — 27 


5 fsolve( egn, x ); 
1.895494267 


5 fsolve( egn, x, 0.1 .. infinity ); 
1.895494267 
5 fsolve( egn, x, -0.1 .. 0.10); 


0 


16.8. A Maple további egyenletmegoldó rutinjai 501 


5 fsolve( egn, x, -infinity .. -0.1 ); 
—1.895494267 


Az fsolve működésének alapja két algoritmus: a (többdimenziós) Newton- 
módszer, illetve ha ez nem vezet eredményre, akkor a (többdimenziós) szelő- 
módszer (v.ö. [174]). 

A realroot eljárás a Descartes-féle jelszabályt alkalmazza egyváltozós polino- 
mok valós gyökeit szétválasztó intervallumok listájának előállítására. Kiegészítő 
opcióként megadható az intervallumok hossza, is. 

s readlib( realroot ): 
5 XT - 24kx76 - 44x75 - x73 1 x72 t 6rkx 1 4; 

27-21" 437" —3 3471 167144 
s realroot("); 

[[0, 2], [2, 4], [72, —1]] 
5 realroot( "", 1/100 ); 
149 75 207 415 —159 —79 
(Ldovőa] [sa 16] 160 sé] 

A sturm eljárással valamely polinom adott intervallumba eső valós gyökeinek 
számát határozhatjuk meg. Elméleti alapja a Sturm-tétel (v. ö. [138]). 
5, readlib(sturm): 
5 XT - 24x76 - 41x75 - x73 41 x72 t 6rx t 4; 

217 —239—-415— 371327 16144 


s  sturm( ", x, -infinity, infinity ); ít three real roots 
3 

s. sturm( "", x, 0, infinity ); t two positive roots 
2 

5  sturm( """, x, 2, 4 ); tt one root between 2 and 4 
1 
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isolve 


Az isolve eljárással egyenletek vagy egyenletrendszerek egész megoldásait ke- 
reshetjük meg. A következő példa ennek alkalmazása a dimenzióanalízisre. 


A levegőben gyorsan mozgó objektum F légellenállása függ az objektum V 
v kinematikai viszkozitástól. Ezen mennyiségek dimenziói kifejezhetők az m 
tömeg, az l hosszúság és a t idő dimenzióiból. Az F, V, d, p, c és a v dimenziója 
a következő módon határozható meg: 


5 nondimensional :— forcerf $ speed"v $ diameter7d 
5 x densityőr $£ acoustic velocityőc 
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pl x kinematic viscosiíty"m; 


nondimensional :— force! speed" diameter? density" 
acoustic.velocity" kinematic.viscosity" 


5  subs( í( force -— M:xL/T72, speed - L/T, diameter - L, 
density - M/L73, acoustic velocity — L/T, 
s kinematic viscosity - L72/T ), nondimensional ) ; 


ML f L pr M T L ő Hg m 
T2 T L? T T 

5 simplify( ", "symbolic? ); 
MŰdr) I(ftvtd—3 rTtct2m) r62 f—v—c—m) 


v 


5 egns :— ( seg( op(2,i)-0, i- " ) ); 
egns :— 
í(ftr-0,ftvtd-—3rtct42m-0,—2f—-v-—-c—m-—0) 
5 isolve("); t find all integral solutions 
(f—-— N39,v—— N1-— N2712 N38,d—— N1712.N3,m- NI, 
ez N2,rz NI) 
5  subs( ", nondimensional ); 


force(--N3) speeg(7-N1—-N2--2 -N3) gigmeter(7-N1-1-2-N3) 


density-N 2 acoustic.velocity-N ül kinematic.viscosity-" ? 


Néhány trükk alkalmazásával csoportosíthatjuk az azonos kitevőjű hatványokat: 
5 expand( In(") ); 


—.N93 In(force) — In(speed) .N1 — In(speed) .N2 -- 21n(speed) .N3 
— In(diameter) .N1 -- 2 In(diameter) .N9 -3- .N3 In(density) 
- .N2 In(acoustic.velocity) 4- .N1 In(kinematic. viscosity) 
5  [ coeffs( ", ( N1, N2, N3), ?vars? ) 1; 


[-In(speed) -- In(acoustic. velocity), 
—In(force) -- 2 In(diameter ) -- In(density) 4 21n(speed) , 
—In(diameter) — In(speed) -- In(kinematic. viscosíty)] 


5  combine( ", ln, anything, ?"symbolic? ); 


speed force 


I kinematic. viscosity 
diameter speed 


I ( EEEEZETTEN 1) 1 ( Feet densíty meet) 
n [ —— —  ] , n/] ———————  )], 
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5 zip( (a,b) -2 exp(a)"b, ", [vars] ); 


acoustic. velocity -N2  / diameter? density speed? Hü 
speed " force ú 


kinematic.viscosíty s 
diameter speed 


s  convert( ", "x" ); 


; ; -N. 
acoustic. velocity -N2 / diameter? density speed? ú 
speed force 


kinematic.viscosíty já 
diameter speed 


Három egész paraméterrel meghatározott dimenzió nélküli változók családját 
kaptuk. Ezek kétféle kombinációja jólismert az aerodinamikából és a folyadékok 
dinamikájából. 
5  subs( N1-O, N2--1,  N3-0, " ); tt the Mach number 
speed 
acoustic. velocity 


s  subs(  N1--1,  N2—-1,  N3-0O, "" ); it the Reynold?"s number 
acoustic.velocity diameter 
kinematic. viscosíty 


msolve 


Használhatunk moduláris aritmetikát is. Következő példánk a Pell-egyenlet 
harmadfokú analógja Z7 fölött. 


5  msolve( y72 — x73 - 28, 7 ); 


(14—-0,7—0), (1y-6 5-4), í(v—6,r—1), (y— 6, z — 2], 
íyz1 :—4h (yv-1, 5—1)j, (y—1 z—2] 


rsolve 


A Maple meg tud oldani rekurrens egyenleteket is. Ehhez olyan standard tech- 
nikákat használ, mint a generátorfüggvények, a 2-transzformáció, valamint a 
helyettesítéseken és a karakterisztikus egyenleteken alapuló módszerek. Néhány 
példa: 


e Általánosított Fibonacci-polinomok 
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5 rsolve( ( f(ntr2) — f(nt1) 1 f(n), 
5 f(0)-0, f(1)-i ), f(n) ); it Fibonacci numbers 


álcát es Era eat ör esi 
ax/5-p il V531 


5 rsolve( ( f(nt2) - xrfí(nt1) 1 yrf(n), 
5 £(0)-0, f(1)-1 ), f(n) ); 


(ddágsagtőrt b—--) 


3— Vr? t4y 
(22? 1 4y) (z - Va? 14y) 


(z/2r4ya 2? 4 4y) ( 7) 


1t14V/11t4y 
(72 4 4y) (za 2 34y) 


5 normal( ", "expanded? ); 
n n 
(gt ate —yze] —(- ae [— s — 
2—4V/r?1t4y 2t4V/rt4y 
VI: t44y 


. ft 5th generalized Fibonacci polinomial 
5  normal( subs( n-5," ), "expanded? ); 


3 r3ya? 4 y 
Ennek kapcsán megjegyezzük, hogy n c 100-ra igaz az a sejtés, amely 
szerint f(n) akkor és csak akkor irreducibilis, ha n prím. 


e A Gauss-elimináció komplexitása 
5 rsolve( ( T(n) -— T(n-1) 4 n72, T(1)-0 ), T(n) ); 


2(n--1) (ra) (ra) —3(n- 1) (ra) kn 


5 factor("); 


5(n-Dn215n46) 


e Az összefésüléses rendezés (, merge sort") komplexitása 


5 rsolve( f T(n) — 2:T(n/2) 1 n-1, T(1)-0 3, T(n) ); 
In(n) 
1 (Ej 30) ln (n) 


—]n (2) —In(n) nt nin (2) 
§ In (2) 


5 simplify("); 
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e A Karacuba-féle szorzási algoritmus komplexitása 


5 rsolve( ( T(n) — 3:T(n/2) 4 n, T(1)-13, T(n) ); 
taj) 
nő) 4. nt ( dás gé a) 


5  simplify("; 


sing) —2n 


Az összegzési problémákat néha csak részlegesen tudja megoldani a Maple. 
5 rsolve( fi jös be 1In(nt1)ra(n) 4 1, a(n) ); 


[9- (i si In( ms) ( § (Lj II ht) -F In(2) a(0) -k 1, 


n1-1 -n2-1 —"  n1-1 
a(0) — a] 


A megoldás aszimptotikus viselkedéséről néha még akkor is tud valami informá- 
ciót nyújtani a rendszer, ha az rsolve nem talált zárt alakban fölírható megol- 
dást. 
5  rsolve( u(nt1) — In( u(n)t1 ), u(n) ); 
rsolve(u(n 4 1) — In(u(n) 3-1), u(n)) 


s asympt( ", n, 4 ); 


2 -0 45 nm) 1 
nt TO 


Befejező példánk a Knuth által [118]-ban kitűzött probléma megoldását tar- 
talmazza. Fejezzük ki az 


sza, az zb  Tny2— Tni1 tt Zn/(n74- 1), F18— 8 ÚJRA NER 


rekurrens egyenlet megoldását n ismert függvényeivel, és írjuk föl a megoldás 
aszimptotikus alakját is. 
5  infolevelírsolvejJ :— 5: 
5  rsolve( ( x(nt2) — Ess 4 x(n)/(nt1), 
5  x(0)-a, x(1)-b b, x(n) ); 
-C1 (nt 1) 


Túl optimisták voltunk. A Maple csak a megoldás aszimptotikus alakját tudta 
meghatározni. Az LREtools csomag új rutinjai, melyek lineáris rekurziókat 
kezelnek, ebben az esetben nem vezettek eredményre. Próbáljunk segíteni a 
Maple-nek. Először számítsuk ki a rekurrens egyenlet z-transzformáltját (kicsit 
másként fölírt, de az eredetivel ekvivalens alakban). 

, readlib( ztrans ): tH load library function 

a (ol sz ai XCI) séh 

s  subs( ztrans(x(n) n,z) — F(z), 


506 16. Egyenletek megoldása 


5 ztrans( (nt1)$rx(nt2)-(nt1)kx(nti)tx(n), n, z ) ); 
fo) fo) 
szaga ATC. 1 ds éz sze 
2" F(2) —z (37 F(2)) az Z (3 F(2)) 4 F(2) 


Ezt a differenciálegyenletet kell megoldanunk. 
s  dsolve( ", F(z) ); 
63 (5) 
Pig) a z(e:!2zat.C1)e 
1—22-4 2? 


A számítás utolsó lépése, az inverz 2-transzformált meghatározása a legnehe- 
zebb. 


5  expand("); 
2? a z.C1 
NEE ZA Ete et E TE 8 SEBE det áz éc4d BEST ESB 
té) 1—22- 2? Méz (1— 22-22) 


5  subs( invztrans(F(z) ,z,n)-x(n) , invztrans("  z,n) ); 


z 
x(ín) —ant at .C1 invztrans szőr KAN n) 
ím) el?) (1—2274 22) 


5  simplify( factor(") ); 


(-3) 
x(n —anta-t CI! invztrans e Z, n) 


5 f :— subs( body - invztrans(exp(-1/2) ,z,k) , k-2body ); 
as (1) 
s g :— subs( body - invztrans(z/(z-1)72,z,k), k-:body ); 


9:—köok 


A kívánt z2-transzformáltat innen konvolúcióval nyerjük. 
s 1hs(""") - subsop( 3 - CisSum(f(n-k) $g(k) ,k-0. .n) , 
beg rhs(t"")); 


x(í(n —antait. CI 93 Kerti 


5  (valuedsubs)( n-r1, " ); 
b—2a4 .CI 


s  solve(", C1); 
b—2a 


s  subs( Cis", "en ); 


2  (—1)(n-k) 
x(l(n —antat(b—2a) EST) 


70 
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A Maple még az összeg zárt alakját is meg tudja mondani. 
5 value("); 
(b—2a)(—D)6 9 hypergeom( [—n -t 1, 2], [], 1) 
(n — 1)! 


x(n)y— ant a-t 


A genfunc csomag függvényei segítségével racionális generátorfüggvényekkel 
dolgozhatunk. Hasznos segédeszköz lehet, ha a generátorfüggvények módsze- 
rét , manuálisan" próbáljuk rekurrens egyenletekre alkalmazni. 


match 


Jelenleg a Maple csak korlátozott mintaillesztési lehetőségeket biztosít. A 
match függvény egyváltozós kifejezésnek megadott mintával való egyezését vizs- 
gálja. Ilyen egyszerű feladat például a következő: megadható-e olyan a és b, hogy 
7132x713— (z-ka)? 1 b legyen minden z-re. 

s match( x72 4 2ix t 3 — (xta)72 14 b, x, ?sol? ); 


true 


A Maple megerősíti, hogy elérhető egyezés. A megfelelő a és b értékeket a 
harmadik paraméterként megadott sol változóban kapjuk. 


s sol; 


(a—1,b—- 2] 


Lényeges, hogy pontosan megértsük az algebrai mintaillesztést végző match 
és a typematch közti különbséget. Az utóbbi csupán az objektumok alakját 
vizsgálja. 


5 typematch( (xt1)72 1 2, 
5) (a::anything) £t (b::anything) ); 


true 


(419, 2 


v 


typematch( (xt1)72 71 2, 
5 ((Cu::anything) £t (v::anything))72) £4t (w::anything) ); 


true 


5 typematch( x72 t 2ix t 3, 
(((p::anything) £t (ag::anything))72) £t (r::anything) ); 


false 


v 
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16.9. Gyakorlatok 


1. Számítsuk ki az a hatodfokú polinomot, amely átmegy a (—5, —120), (—3, 48), 
(—2, 36), (1, 120), (4, 2400), (10,220380) és a (12, 57408) pontokon. 


2. Vizsgáljuk meg, hogy a 
372 43y" 1 6ryt6r-t6yt2 


polinom fölírható-e 
alztbyto"-td 


alakban alkalmasan választott a, b, c, d és n értékekkel. 


3. Tekintsük a következő két kémiai reakciót. 
(a) Ap, a,T, s, t, u és v mely értékeire lesz a 


p KMn0O4 -- ag H2S04 1- r H2C-04 6 
s K2504 4 t Mn504 -- u H2O t v CO2 


reakcióegyenlet kiegyensúlyozott? 
(b) A p, a, r, s és t mely értékére lesz a következő reakcióegyenlet 
PpCO 1 9 CO; 1-r H2 — s5cH4 FtH:O 
kiegyensúlyozott? 
4. Oldjuk meg a következő egyenletet a solve és az fsolve segítségével: 


4895 4 8! — 63? 3 114532 — 377118 50 


5. Oldjuk meg a következő egyenleteket. 
(a) (zr1)et) — (z41)2 
(b) z-4(1-42)? 4 (242) 4 (34 a)V/t 5 


29 
2 arct z t, 
(c) 2arctanz — arctan ( s -a ) 


(d) 2—sin(1— 23) — 27 


6. Az (z,y, 2) Descartes-féle koordináták könnyen kifejezhetők az (r, 9, $) szfé- 
rikus koordinátákkal: 


rcosOsin$d 


rsinőgsiné 


T cos b 
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Fejezzük ki a szférikus koordinátákat a Descartes-félékkel. 


7. Oldjuk meg az ír? ty? — 5, xy — y? — 2) egyenletrendszert a, solve és az 
fsolve segítségével. 


8. Oldjuk meg az zx, y és z valós ismeretlenekre a következő algebrai egyenlet- 
rendszert (a valós konstanst jelöl): 


(2-7 —y42ar12az—a? z 0, 
yz—ay—arta — 0 
—2atzsty — 0) 


9. Legyen f az zj 4 33 4 mt x3 homogén polinom. Ez a P? projektív térben 
az 
(0: 71: ma: zz € PÍlf(ro,r1,x2,xs) — 0) 


Fermat-felületet definiálja. 


(a) A felületen 27 egyenes van. Határozzuk meg ezeket az egyeneseket a Map- 
le fölhasználásával. Utmutatás: az 1o:T1:T2:xT3 ÉS az yo: Yi :y2 :y3 ponto- 
kon átmenő egyenest az ún. Plücker koordinátákkal így írhatjuk föl: 


p7 :— 3gyj — Tjyi, ahol z,j—0,1,2,3 és iszj. 


Az ebben a koordinátarendszerben megadott egyenes akkor és csak akkor 
van rajta a felületen, ha 


Tu 4 2 u2 4 uz, Duo E D?u2 rk DSuz, 
940 4 p ui PP uz, pu b pu PF pu) —0 
minden uo, U1, u2, u3 E IR-re, továbbá p9!p23 4 p092p?1 4 p08p12 — o. 


(b) Határozzuk meg a, Fermat-felület szinguláris pontjait. Emlékeztetésül egy 
pont akkor szinguláris, ha ott a függvény és az össze parciális derivált 
értéke 0. 


10. Oldjuk meg a következő egyenlőtlenségeket. 


(a) Iz—3]:13— 2] 5 Iz] 

1) 
B. 

(b) lés jő SAST TR Ta] 

11. Oldjuk meg az an41 — (8/5) an—an-1, a9 — 0, ai — 1 rekurrens egyenletet. 


12. Oldjuk meg az anyi — 3nan — 2n(n — 1)an-1, a1 — 5, a2 — 54 rekurrens 
egyenletet. 


is kldádlteeét VK 


DA Mg zero sb etarttöre anal ezen At an élet 
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Differenciálegyenletek 


A Maple sok közönséges differenciálegyenlet analitikus megoldását elő tudja 
állítani explicit vagy implicit formában. A közönséges differenciálegyenlete- 
ket megoldó dsolve eljárás egy sor hagyományos technikán alapul: Laplace- 
transzformáció, integráló tényezők keresése stb. A pdesolve eljárás parciális 
differenciálegyenleteket old meg a karakterisztikák módszerével és más klasszikus 
módszerekkel. A liesym csomagban a parciális differenciálegyenleteknél szoká- 
sos Lie szimmetria módszereket is inplementálták. Ezekkel könnyebben gene- 
rálhatunk további megoldásokat a, parciális differenciálegyenlet valamely parti- 
kuláris megoldásából. Közönséges differenciálegyenletekre elérhető a Taylor-sor 
módszer, a hatványsorok módszere és más közelítő módszerek is. Ha minde- 
zek nem vezetnek eredményre, még mindig próbálkozhatunk a Runge-Kutta 
és más numerikus módszerek használatán alapuló numerikus megoldó rutinok- 
kal. A DEtools csomag a megoldások ábrázolását és a (független vagy akár a 
függő) változók transzformációit támogató eljárásokat tartalmaz. Ezen túl a 
perturbációs (például a Poincaré-Lindstedt vagy a többszörös skálázásos) mód- 
szer végrehajtásához szükséges segédeszközöket is megkapjuk a Maple-től. Ez a 
fejezet a Maple differenciálegyenletek tanulmányozására szolgáló eszközeit tár- 
gyalja. Sok példánk az alkalmazott matematika területéről származik. 


17.1. Vessünk egy pillantást a differenciálegyenletekre 


Idézzük föl a közönséges differenciálegyenlet (KDE) fogalmát. Ez adott inter- 
vallumon teljesülő olyan 


Ffyyy",... yo, 2) 7-0 
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alakú egyenletet jelent, amelyben F az R"t? valamely részhalmazán értelmezett 
valós függvény, y , y", . . . y) pedig az y — y(z) ismeretlen függvény deriváltjait 
jelöli. A KDE n-ed rendű, ha az F függvény nem függ (n -- 1)-dik argumentu- 
mától. Ha F lineáris első n t 1 argumentumában, 


an(z)y 0 a ani (Dye 4 4 a(z) 4 a0(z)y 4 a(z) — 0 


alakban is fölírható, ekkor a KDE lineáris. Ha F polinomfüggvény, az n-ed rendű 
KDE fokán F (n--1)-dik argumentumának kitevőjét értjük. Rövidebben szólva, 
a KDE rendje k, ha a benne előforduló deriváltak közül a k-dik a legmagasabb 
rendű, továbbá a KDE foka ennek a deriváltnak a kitevője. Néhány példa: 


v —37y—nx? - 0 másodrendű elsőfokú lineáris KDE, 
y —y? - 0 másodrendű elsőfokú nemlineáris KDE, 
(9) -y — 0 másodrendű harmadfokú nemlineáris KDE. 


A matematikusok differenciálegyenleteket megoldó módszerek széles választékát 
dolgozták ki. Az érdeklődő Olvasónak a (135]-ben található áttekintést ajánl- 
juk a számítógépes algebra alkalmazásáról a közönséges differenciálegyenletek 
megoldásában. A módszerek egy részét a Maple-ben is implementálták. 1s- 
mét megemlítjük, hogy az összes módszert a dsolve eljárás tartalmazza. A 
Maple-re bízhatjuk a differenciálegyenletet megoldó módszer kiválasztását, de 
mi magunk is választhatunk. Ha például a Laplace-transzformáltak módszerét 
kívánjuk alkalmazni, vagy a megoldás Taylor-sorát szeretnénk megtalálni, csak 
ezt kell megmondanunk a rendszernek. 

Őszintén szólva bármilyen imponálóak a Maple közönséges differenciálegyen- 
letek megoldásával kapcsolatos lehetőségei, igencsak szegényesnek tűnnek a té- 
ma óriási szakirodalmához képest. Legtöbbször csak az elsőfokú és a háromnál 
alacsonyabb rendű KDE-ket tudjuk megoldatni a rendszerrel. A dsolve ismer 
bizonyos speciális függvényeket is. Mindazonáltal a Maple értékes segítséget 
nyújthat a differenciálegyenletek megoldásánál. A következő részekben az egyes 
lehetőségeket az alkalmazott matematikából vett számos példa kapcsán taglal- 
juk. 


17.2. Analitikus megoldások 


Tekintsük az elsőrendű, elsőfokú 
zy — yln(ry) —-y 


differenciálegyenletet. Ha nem ragaszkodunk a KDE valamelyik kitüntetett 
megoldási módszeréhez, elegendő simán meghívni a, dsolve-ot: 


s ODE :— xrdiff(y(x),x) - y(x)kln(xry(x)) - y(x); 
fő) 
ODE — 2 (——y(z)) — y(r) In(ry(z)) — y(z) 
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5  dsolve( ODE, y(x) ); 
z- C1ln(z) 4 .C1 In(y(2)) 


Kényelmesebben kezelhető és természetesebb jelölést vezethetünk be a Maple 
alias konstrukciójával. Alkalmazzuk ezt ugyanarra a feladatra. 


5 alias( y-y(x) ): 
s  ODE :— xxdiff(y,x) — yrln(xxy) - y; 


ODE — z(—7y)—yin(ry)-y 


5  dsolve( ODE, y ); 
z— C1ln(z) 4 .C1 In(y) 


Látható, hogy a Maple implicit megoldás keresése mellett döntött. Ha az y 
függvényre explicit megoldást szeretnénk kapni, használhatjuk a solve-ot, de 
segítségünkre lehet az isolate is. 
s  readlib(isolate)(",y); 
( 2— C1ln(z) ) 
y — e .C1 
Mindezt azonban már az elején is közölhettük volna a Maple-lel. 


s  dsolve( ODE, y, explicit — true ); 
e —C1ln(2) ) 
y- e 


Eső 
Az általános megoldás ennél egyszerűbben is fölírható. 
5  expand("); 


el-e) 
Mr x 
s  subs( .Ci-i/c, " ); 
elez) 
y pora] 
x 


A KDE fönti megoldása már könnyen ellenőrizhető (és ezt ajánlatos is elvégezni, 
ahányszor csak módunkban áll). 
5  testeg( subs( ", ODE ) ); 
írue 


Második példaként tekintsük az 
yy—Vvi2yii 


differenciálegyenletet. Megnöveljük az infolevel[dsolve] változó értékét, hogy 
több információt kapjunk a számítás menetéről. 

5  infolevel[dsolvel :— 5: 

5 alias( y-y ): ti unaliasy 
A változatosság kedvéért a differenciálegyenletet nem a diff-fel, hanem a D 
operátorral adjuk meg. 

5  ODE :— ( y x D(y)— sgrt( y72 - 2xy § 1) )(x); 


ODE :— y(x) D(y)(x) — V(—-13- y(z))2 
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A dsolve megérti ezt a jelölést is. 
5  dsolve( ODE, y(x) ); 


dsolve/diffeg/dsoli:  -2 first order, first degree 
methods : 

dsolve/diffeg/dsoli: trying linear bernoulli 
dsolve/diffeg/dsoli: trying separable 
dsolve/diffeg/sepsol: solving separable d.e. 
dsolve/diffeg/dsoli: — separable successful 


y(z) pa y(z)? In(—1-- y(2)) 
vVy(2)? —2y(m) 1-1 y(z)? —2y(2) 41 y(z)? —2y(m) 41 
In(1ry(m)y(2) 01 


vVy(a2)? —2y(2) 41 


az eredmény további egyszerűsítéssel a következő alakra hozható: 


s  simplify("9; 
—y(z) csgn(—1 3-y(z)) 4 z — csgn(—1 4 y(r)) In(—1 4 y(r)) — .C1 
A Maple láthatóan ügyel arra, hogy melyek az érvényes egyszerűsítések. Ezért 
ad vissza az explicit módszer két (lehetséges) megoldást. 
5  infolevel[dsolve] :— 0: it restore information level 
5  dsolve( ODE, y(x), explicit — true ); 
y(m) — e(—LambertW(el-1—et-0D)—1—2-4. 01) ai 


y(r) be e(—LambertwW(el-ttz—-00)—134-a— 01) 41 


A differenciálegyenlet tartalmazhat több változót is. Tekintsük például azt a 
differenciálegyenletet, amely az z tengely mentén pozitív irányban haladó ember 
által a hosszúságú kötéllel maga után vontatott objektum pályáját írja le: 


Boagzzsze ső ő 
y /a2 — 2 
5 alias( y-y(x) ): 
5  ODE :- diff(y,x) — -y / sagrt(a72-y"72); 


s ÖR le y 
ODE :— Tem 2 


s solution :— dsolve( ODE, y ); 
2 
a 
2 
a" arctanh(——————— 
GREAT 
aaz maja se e Zzág ELŐT 
a/a2 


Sokkal egyszerűbb a megoldás, ha föltesszük, hogy a pozitív. 


solution :— 


5. solution :— simplify( ", assume-positive ); 


solution : Va? — y? — aarctanh(————) Haz. CI 


vaz 


17.2. Analitikus megoldások 515 


Figyeljük meg, hogy a Maple nem veszi észre, hogy a 0 konstans függvény is 
megoldása a, differenciálegyenletnek. 

Ha az ember az origóból indul el, s az objektum ekkor a (0, a) helyen van, 
vagyis ha, a, kezdeti föltétel y(0) — a, megpróbálhatjuk a Ci konstanst megha- 
tározni: 

5  subs( íx-O,ysab, solution ); 


Error, division by zero 


Mi a hiba? A Maple a megoldást olyan implicit formulával írta föl, amely a 
kezdeti érték behelyettesítésekor hibás eredményre vezetett. Ha rájövünk, hogy 
arctanh(1/7) és arctanh(r) csupán egy konstansban tér el, próbálkozhatunk a 
következő implicit megoldással is: 

5 solution :— sgrt(a72-y72) - 

5 atarctanh( sgrt(a72-y72)/a) t x — C; 


solution :— Va? — y? — a arctanh(——) t:-C 


Ellenőrizzük, hogy ez tényleg megoldás. 
5 diff( solution, x ); 
2. 4 y(áy) 


BEZáKa LÁT EZSTETÉRT E ES ON 
ksdtat Má er öt - Y) 


s Diff(y,x) — solve( ", diff(y,x) ); 
E ásza 
Ön T fe? —y? 

Most már gond nélkül elvégezhető a behelyettesítés. 
5 — (evalOsubs)( (x-0,y-al, solution ); 
sc 
Csábítónak tűnhet ez a helyettesítés is: 
s  subs( x-0, solution ); 


5  subs( y(0)-0, " ); 
Ja — 502 
Va? — y(0)2 — a arctanh( VÉSŐ ) sű 


Azért nem a várt eredményt kaptuk, mert korábban y-t az y(x) álneveként 
vezettük be. Az x-0 első helyettesítés után visszaadott y(0) objektum mást 
jelent, mint ha egyszerűen csak y(0)-t gépelünk be. 
5  subs( subs(x5-0,y) — a, " ); 
—a arctanh(0) — C 


5  subs( op(0,y)(0) — a, "" ); 
—a arctanh(0) — C 
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Az eredetileg követett módszerhez képest ezek elég trükkös megoldások. A pél- 
dát a ,tractrix" néven ismert megoldásgörbe leírásával zárjuk (v. ö. (69]). 


5 Tractrix :— subs( C-0, solution ); 


[az eaja 
Tractrix :— Va? — y? — aarctanh(V— ) tz-0 


A Maple egyébként lehetővé teszi kezdeti- vagy peremérték problémák köz- 
vetlen megadását is. Ezt a matematikai inga 


u" Fwuyuzo0 


differenciálegyenletével illusztráljuk, amelyben u a vízszintes kitérést jelenti. 
(Lásd 17.3. ábra.) Az álnevek használata az előző példa kapcsán leírtakhoz 
hasonló bonyodalmakat okozhatna, ezért inkább lemondunk róluk. 


5 ODE :- diff(u(t),[t$2]) 4 omega-2ru(t) — 0; 


ODE :— dő u(t)) F w? u(t) —0 


5  dsolve( ( ODE, u(0)-2, D(u)(0)-3 ), u(t) ); 


u(t) — 2cos(wt) 43 EE 


Az első deriváltat a 0 helyen D(u) (0) alakban adhatjuk meg. A további u"(0), 
u!"(0), . . . , magasabb rendű deriváltak alakja (DO€(u) ) (0) , (DOGA(u) ) (0), . . . 
5  dsolve( ( ODE, u(0)-1, u(2)-3 ), u(t) ); 
(cos(w)? — 2) sin(wt) 
sin(w) cos(w) 


u(t) — cos(wt) — 


s  combine("); 
—sin(wt — 2w) 1 3sin(wt) 
sin(2w) 


u(t) — 


A Maple-ben egyszerűen elérhető a, differenciálegyenletek megoldására hasz- 
nálható integráltranszformációs módszer. Példaként a csillapított lineáris oszcil- 
látor válaszfüggvényére alkalmazott Laplace-transzformációt tekintjük. A. meg- 
felelő kezdetiérték probléma: 


5  ODE :- diff(u(t),It$2]) t 2-rdromegardiff(u(rt) ,t) 
5 t omega"72ku(t) - Heaviside(t); 


ODE :— s u(t)) 42dw (6 u(t)) -—- w? u(t) — Heaviside(t) 
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5  initvals u(0)-0, D(u) (0)-0: 
s solution dsolve( ( ODE, initvals ), u(t), 
pa method - laplace ); 


solution :— u(t) — e. La tt kizárt tea [2 
el-d ut) g2 cos(V/—w? (d—1)(d41)t) 
Ni w2(d—1)(d7-1) 
PE dő dut) /w2 — d2 w2? dsin(V—w? (d— 1) (d1)2) 
w3(d—1)(d11) 


5 simplify("); 


u(t) — — (v — w d? — eli cos(4V—w2 (—1 4 2) b) w 
Tr el-i52) P cos(4V—w2 (—1 - d2) t) w 
— elis) / w2(—1- d2) dsin(V/—-w2 (—1- d2) 1) ) / (e 
(sű 1)) 
5 solution :— collect( ", (sin,cos), simplify ); 


Flt EZECTZÚ 
solution :— u(t) — ZS ao 
e(-dwt) EETÍT Ej dett —w2 (—14 d) 2) erül 


w? (—1- d?) w2 


A Maple nem tesz különbséget a csillapítás különböző esetei között (d — 0 csil- 
lapítás nélküli, 0 cd a 1 alulvezérelt, d — 1 kritikus, d c 1 túlvezérelt). A 
legtöbb esetben a fönti megoldás az éppen legkényelmesebb formára egyszerűsít- 
hető, ha explicit föltételeket teszünk, vagy közvetlenül megadjuk a paraméterek 
értékét. 


5 d :z 0: 
5  simplify( solution, assume-positive ); t no damping 
cos(wt) —1 
ult) — ——— — 
c) 7. 
5 d :5- 1/6: 


, simplify( solution, assume-positive ); $ underdamping 
hi 
ultek (ssel 1/844:) cos (7 V35wt) - 
el-1/őv) 455 sin (z V5501) — 35) fa 
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Ábrázoljuk ezt a megoldást különböző frekvencia értékekre. (Lásd 17.1. ábra.) 


5  plot3a4( rhs("), omega-2/3..4/3, t-0..20, 
s style-hidden, orientation-[-30,45], axes-BOXED ); 


17.1. ábra: Az alulvezérelt oszcillátor válaszfüggvénye 


Rögzített frekvencia esetén a különböző d értékekhez tartozó megoldásokat ha- 
sonlóan ábrázolhatjuk. (Lásd 17.2. ábra.) 
: d :— "d": omega :— 1: 


5  plot3d( rhs(solution) , d-1/5..2, t-0..20, 
pa style-hidden, orientation-[-10,45], axes-BOXED ) ; 


17.2. ábra: Az oszcillátor különböző csillapítási tényezőkhöz tartozó válaszfügg- 
vénye 


Az ábra alapján világos a, csillapítás és a rendszer válasza közti kapcsolat: a kis 
d értékeknek megfelelő alulvezérléssel , túllövünk a célon", nagy d értékek mellett 
meg lassan válaszol a rendszer az input jelekre. 
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A többi integráltranszformáció (fourier, fouriersin, fouriercos, hilbert és 
hankel) szintén alkalmazható differenciálegyenletek megoldására a Maple-ben. 
Még egy példa: 


s diff(u(t),[t$21]) 4 3rdiff(u(t) ,t)t 2ru(t)-exp(-abs(t)); 


(5 v(0) 3 (él u(t)) —- 2 u(t) — elt 


s  dsolve( ", u(t), method — fourier ); 


u(t) — — ce t Heaviside(—t) 4 — 5 e 21) Heaviside(t) 


kk dei t Heaviside(t) — § L (-9 Heaviside(t) 


A dsolve lineáris differenciálegyenletekből álló rendszert is meg tud oldani. 


s  ODE :-— diff(f(t),[t$2]) - 6rdiff(g(t),t) -6rsin(t), 
és 6rdiff(g(t) , [t$2]) 4 cs2raiff(f(t),t) — 6rcos(t); 


ODE :— 
0? fő) 0? ő ú: 
(210) 6 (E 90) — ösin(), 6 (5 E(4)) 2 (21) — 6 cost) 
s initvals :5— f(0)- 0, g(0)-1, D(f£)(0)-0, D(g) (09—1: 


5 funcs :5— (f(f(t),g(t)b: 
s  dsolve( ( ODE, initvals ), funcs, method - laplace ); 


sin(t) 6 sin(ct) 
(10 z SS ÖELÜ B "EZDÍrEDe 
6 cos(ct) cos(ct) 
Tsszhietük 44-Merj 
cos(t) cos(t) c? cos(ct) 
ei s sznterú S-ÜGIŰ "üti 
sin(ct) . csin(ct) ) 
(c—1)(ct1)ec (c—1)(ec41) 


s  collect( ", (cos(crt),sin(crt)), normal ); 


— , cos(ct) sin(ct) 2sin(t) cz e? —1 
ELÁKÉKÁNT zattal TT DT MOT T E TA 
(ős cos(ct) sin(ct) , (1-t c?) cos(t) ) 

8 C—-D(rD €.-a. eled 0) 
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A 17.1. és a 17.2. táblázatban fölsoroltuk a közönséges differenciálegyenletek 
azon típusait, melyeket a dsolve jelenlegi változata meg tud oldani. 


A KDE típusa A KDE alakja 

lineáris y 4 P(z)y — 0(2) 
P(z; Had oP 

egzakt y — (e 5 é e iz. 8) 

inegzakt F(x,y)y G(x, y), ha található hozzá integráló tényező 


szeparálható y — f(z)9(y) 


homogén y — F(xy") E 


magasabbrendű — 2 — F((y,y) 

Bernoulli-féle y 4 P(z)y — 0(2y" 
Clairaut-féle y-2y 4 F(y) 

Riccati-féle y — P(2)y? 4 A(a)y 4 R(x) 


17.1. táblázat: Elsőrendű megoldható KDE típusok 


A KDE típusa A KDE alakja 

konstans eüh. lineáris — ay" 4 by" --ey— d(r), ahol a,b,cE C 

Euler-féle xy" 4 azxy by — c(m) 

Bessel-féle Ty" 4 (2k 4 Dgy - (atrT 4 8)y — 0, 
ahol ka, B. rEC és ar 0 

hipergecometrikus z(1—2)y" 4 ((c— (at b-t Dzxz)y — aby — 0, 
ahol a,b.cEC 


Riemann-Papperitz y" a Py 1 0y — 0, ahol 
fsz IA ap IE a EK, 
9 — (erőltesd) 4 saBalb—ájíb— a] 
aeeesiee elte 1) sé 


2 
(2—a)(z2—b)(z—c) 


17.2. táblázat: Másodrendű megoldható KDE típusok 


Ezen kívül a Kovacic-algoritmust (lásd (121]) is inplementálták a Maple-ben. 
Ennek segítségével olyan 


P(z)y" 3 A(a)y 3 R(a)jy —0 


alakú homogén lineáris másodrendű KDE-ket próbálunk megoldani, ahol P(z), 
0(z) és R(r) racionális függvények. A módszer a Risch-algoritmushoz hasonló 
döntési eljárás: adott lineáris másodrendű KDE-re a Kovacic-algoritmus eldön- 
ti, hogy létezik-e zárt alakban fölírható Liouville-megoldás; ha a válasz igen, 
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meg is ad egy ilyen megoldást. Magasabb rendű lineáris differenciálegyenletek- 
re két fontos döntési eljárást implementáltak: az Abromov-féle RATLODE-t 
(RATional Linear ODE, v.ö. [2]), amely azt dönti el, hogy az ODE együttha- 
tóit tartalmazó tartományban van-e zárt alakban fölírható megoldás, továbbá 
Bronstein EXPLODE (EXPonential Linear ODE, lásd [22]) algoritmusát, amely 
exp(f f(z) dr) alakú megoldásokat határoz meg. A Maple-ben implementált 
módszerekről kellemes bevezetőt találunk a [123] cikkben. Az EXPLODE-t 
használja föl a következő példa: 


s alias( y-y(x) ): 
s x"2rdiff(y,[x$3]) t (x-3rx72)kdiff áREszos 6 
5 (4kx72- BAÉJRATNEGY S t (x-2kx7 585 


a(z sz (áz az saggtlak et árle 2 
5  dsolve( ", y ); 


y — .C01 e? 4 .C2(—2 2 e" BesselY(0, x) 
— x e? rStruveH(0, x) BesselY(1, x) 
- 2 e? rStruveH(l, x) BesselY(0, x)) t .C$(—2 z e? BesselJ(0, 2) 
— 2 e? rStruveH(0, T) BesselJ(1, x) 
- 2 e? rStruveH(l, 2) BesselJ(0, r)) 


Nézzünk egy Bessel-féle egyenletet is: 
5 alias( y-y(x) ): 
s diff(y,[x$21) 1 3:rdiff(y,x)/x 1(x72-15)/x-2xy - 1/x; 
8? öz (22—15)y 1 
(zzz ra őe gaz 


s dsolve( ", y ); 
192-4-16 32 4 83 -C1 BesselJ(4, x) jú -C2 BesselY (4, x) 


x5 17 z 
Alternatív output formátumot kínál a bázismegoldások fölhasználása. 
5  dsolve( "", y, output — basis ); 
BesselJ(4, z) BesselY(4, 2)] 192--163?- zi 
; x í ű j 25 


Néha még akkor is segítségre szorul a Maple, ha sikeresen fölismerte a KDE 
típusát: 


5  infolevel[dsolve] :—- 2: 
s ODE :— diff(y(x), x) 4 2ry(x)trexp(x) - y(x)72 
5 - exp(2rx) - exp(x) s 0; 


ODE — (25 y(a)) 4 2y(m) ez — y(a)? — elz2) — ez —0 
xs 
5  dsolve( ODE, y(x) ); 
dsolve/diffeg/dsoll: 


-; first order, first degree methods : 
dsolve: Warning: no solutions found 
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Könnyen ellenőrizhető, hogy e? megoldás. 
5  subs( y(x) - exp(x), DDE ): expanda("); 
0-0 


A keresett y(r) függvényt írjuk föl z(x) -- e? alakban, és próbálkozzunk újra. 
5 subs( y(x) — z(x) t exp(x), ODE ): expand("); 


fo) 7. RSS 
(37 2(2)) — z(z) —0 
5 dsolve( ", z(x), explicit -— true ); 


dsolve/diffeg/dsoll1: 

-5; first order, first degree 

methods : 

dsolve/diffeg/bernsol: — trying Bernoulli solution 
dsolve/diffeg/linearsol: — solving ist order linear d.e. 
dsolve/diffeg/dsoli: — linear bernoulli successful 


Lösét AB 
—T-4.CI 


Vizsgáljuk meg az általános megoldást: 


z(T) — 


s: solution :z exp(x) t rhs("); 
1 


lution :— e? 4 —— — 
solution e Tzgek ŐT 


5  subs( y(x) — solution, ODE ): testeg("); 
true 


A Maple néha csak részben oldja meg a feladatot: 
5 alias( yzy(x) ): 
5  ODE :-— diff(y,[x$3]) t (242rx)rdiff(Cy, [x$2]) t 
ped (4kxt4-1/x) kdiff(ly,x) t 2ry — 0; 


ODE e(S gr era) rás) 250 
79 7 N ggz j7 2 "07" v- 


s  dsolve( ODE, y ); 


2 


8 (—22) , e(—22) 2 
y — .C1e te fpssa( (s (37 -Y(z)) -- 


[0 
(27 — 43?) (— .Y(r)) t(—432—22—1-- 42?) Ya), (-Y(a) )) áz 
öz 
Ez a RootoOf jelöléssel analóg: DESol a differenciálegyenlet valamelyik meg- 
oldását reprezentálja, amelyet további földolgozásra átadhatunk a diff, series, 
evalf stb. eljárásoknak. A ?DESol paranccsal még többet tudhatunk meg erről 
a lehetőségről. A fönti megoldást tehát így ellenőrizhetjük: 
5  simplify( subs(",ODE) ); 
0-0 
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A 17.3. táblázat a dsolve azon opcióit tartalmazza, amelyeket akkor alkalmaz- 
hatunk, ha az analitikus megoldás előállítását kértük a type-exact opcióval. 


Opció Jelentése 


method — fourier Fourier módszer 
method - fouriercos a Fourier-féle koszinusz transzformált módszer 
method — fouriersin a Fourier-féle szinusz transzformált módszer 


method - hankel a Hankel transzformált módszer 

method — hilbert a Hibert transzformált módszer 

method - laplace a Laplace transzformált módszer 

method - matrixexp a mátrix exponenciális módszer 

output — basis bázismegoldás és partikuláris megoldás generálása 
explicit — true explicit megoldás keresése 

explicit - false implicit megoldás 


17.3. táblázat: A dsolve( ODE, type-exact) kiegészítő opciói 


17.3.  Taylor-sor módszer 

Ha nem tudtuk meghatározni a KDE analitikus megoldását, még mindig meg- 

próbálhatjuk kiszámoltatni a Maple-lel Taylor-sor segítségével való közelítését. 

Ezt a módszert alkalmazzuk a 17.3. ábrán látható ingára, melynek mozgását az 
19" — —gsin 0 


differenciálegyenlet írja le (l az inga hossza, g a nehézségi gyorsulás, 9 pedig a 
fonálnak a függőlegessel bezárt szöge). 


17.3. ábra: Inga 


s  ODE :— lxdiff(theta(t), [t$2]) -—-gtrsin(theta(t)) ; 


82 
ODE :— tg 09(t)) — —gsin(9(t)) 
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initvals :— theta(0)-0, D(theta) (0)-v[0]/1: 

Order :— 9: 

solution :-— dsolve( í ODE, initvals b), theta(t), 
type — series ); 


VAVV 


vot 1gvot 1 gvo(gl-4- vo?) tő 
[/ 6 B 120 4 
1 gvo(g9 2? 31191 vo? 4 voW)t 


5040 16 


Az alábbiakban dimenzió nélküli változókkal írjuk föl ezt a megoldást. Először 
még ellenőrizzük a dimenziókat: 


5  subs( í v[0]1-L/T, g-L/T72, 1-L b), " ); 
td 8 ord B 13 í 
BD-T- GT VET 5040TT 


Ezután a dimenzió nélküli a és b paramétereket határozzuk meg: 


solution :— 0(t) — 


5  nondimensional :-— v[0]7rev[0] $ greg x 17el $ tet; 
nondimensional :— vo "vo ge9 Jel zet 
5: simplify( subs( ( v[0]-L/T, g-L/T72, 1-L, t-T ), 


5 nondimensional ), assume-positive ); 
T(evot-eg--el) T(—evo—2 eg-t-et) 


s isolve( ( seg( op(2,i)-0, i-" ) b ); 
(et — — N1 3 N2, evao —— NI — N?2, el — N1, eg — .N2) 


5 assign(") 
5 ( a - subs( N1--1,  N2-1i, nondimensional) , 
5 b - subs( . Ni--1,  N2-O, nondimensional) b); 


A g gravitációt és a fonál / hosszát kifejezzük a dimenzió nélküli változókkal, 
majd az így kapott kifejezéseket behelyettesítjük a differenciálegyenlet megol- 
dásába: 

a sölvet ", 1g ib. 


5  subs( ", convert( rhs(solution), "polynom? ) ); 


a vo? a? 
1 1 ab? ( 8 4 vo?) 1 abí( 


5 map( normal, " ); 


1 1 8 
b—zab-4 otlet) 


1 


2 Pp 11ab? 3 b 
5049 2 (af -k ab" b") 
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Hasonlítsuk össze az eredményt a sint sorfejtésével. 


5 series( sin(t), t, 9 ); 


1 1 1 
szg gőz za 9 
egét gap TO) 


17.4. A hatványsor módszer 


Az olyan modern számítógépes algebrai rendszerekből, mint a Maple, természe- 
tesen nem hiányozhat a differenciálegyenletek megoldására szolgáló hatványsor 
módszer sem. De jegyezzük meg, hogy ez a módszer csak polinomegyütthatós 
lineáris differenciálegyenletekre működik. Első példánk egy Bessel-féle differen- 
ciálegyenlet: 


ny" hy b 4ry— 0. 
A Maple megtalálja a pontos megoldást. 
5 egn :— xrdiff(y(x),Ix$2]) 4 diff(y(x),x) § 
5 4xx72xy(x) — 0; 


8? fo) ő 
egn:— x (zzz y(z)) k (3 y(3)) F4r"y(z) —0 


5  dsolve( egn, y(x) ); 
4 
y(r) — -C1 BesselY(0, a 7/2) 4 .C2 BesselJ(0, 3 33/2) 


Az alábbiakban az y(0) — 1,y" (0) — 0 kezdeti értékeknek megfelelő megoldást 
hatványsorként állítjuk elő. 


5 initvals :-— y(0)-1, D(y) (09-00: 
5  with( powseries ): t load the power series package 
5 solution :— powsolve( f egn, initvals ) ); 


solution :— proc(powparm) . .. end 


5  tpsform( solution, x, 15 ); $ truncated powerseries 


4 8 4 6 16 9 12 15 
ge tajt —ggai" PT gggggő TS] 


A Maple az együtthatókra vonatkozó rekurzív képletet is meg tudja adni. 
5  solution( k); 
-k — 
egét 
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Emlékeztetünk arra, hogy az aláhúzással kezdődő neveket maga a Maple hasz- 
nálja, a legutolsó képlet tehát az 


— 40k—3 
snlá T 
rekurzív relációnak felel meg. 


Második klasszikus példánk a, kvantummechanikából származik: oldjuk meg 
az egydimenziós harmonikus oszcillátor egyenletét. Dimenzió nélküli egységek- 
kel a Schrödinger egyenlet a következő alakú lesz: 


d?y(z) 
dx? 


1(A— 3?)y(x) — 0. 


Az egyenlet levezetése megtalálható a 17.6 alfejezetben. 


5  alias( yzy(x), h-h(x) ): 
5 egn :-— diff(y,(x$2]) 4 (1lambda-x72)xy —- 0 


egn :— ém 4(A—29)y—-0 


Az aszimptotikus viselkedés analízise alapján az y(z) — h( res / 2 helyettesítés 
látszik célszerűnek. A A-ra vonatkozó differenciálegyenlet: 


5 subs( y — exp(-x72/2)xh, " ): 
5  collect( ", exp(-x72/2) ) / exp(-x72/2); 
[0 02 
Ezer Es BTTO ALL ae 2 gl jk s 

h422h 22(zzh) 1 (sz) 0 22)h—0 

5 egn :— collect( ", [diff(n,[x$21), diff(h,x), h)] ); 
2 
egn :— (án) -22 (2 n) H(—144)h-0 


A differenciálegyenletet a hatványsor módszerrel oldjuk meg: 
5  with(powvseries): 
s H powsolve(egn) : 
s h tpsform(H,x,10); í a few terms 


1 
haz 004124 00(1— A)? 47 0182) ata 


3 C0(1—2)(5— A) zta CI (3—A)(7—AN) ső 


si 120 

-37 001— 2) 6— (9-2 

ma (3— A) (7— A) (11— A)a? -k 

70330 €0(1— A (5—2)(9— 2) 13— 4) af a 
1 


362880 (. 8—A(7—A)(11—1(15— 4) 29 0(2) 
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5  collect( convert( ", ?"polynom? ), [CO,C1] ); 


(145(1—2) 2? 42 (1 A) (65— A) zi 4 7 aa XY (B— 300 — Ajaő 
teggggg ÜL ayAte 2) (19—(13— A) z ÉsAn 
erzem eü 2) (7— 2) 5 4 rúg (8 — A) (7 — A) (11 — Aja 
tisz X) (7— X) (11— A) (15 — A) 9 ) Ci 


Nézzük meg, hogy Ah sorának együtthatóira milyan rekurziót kapunk. 
5 H(.k); 
a(.k —29(—3— A 1 2.k) 
-k(.k—1) 
Ennek jelentése 
E sal (3 -HA — 2k)ar-2 
ja k(k—1) 7" 
vagy ekvivalens módon 
(k 3 1)(k 4 2)ar42 — (2kt1— A)ak 


tetszőleges k-ra. A sorfejtés akkor és csak akkor lesz véges, ha valamely egész 
k-ra teljesül a A — 2k 3-1 egyenlőség, ami a harmonikus oszcillátor energiaszint- 
jeinek híres kvantifikációját adja. A hullámfüggvényre kapott egyik példa: 


5 CO :— 1: Ci :— 0: lambda :— 9: 
5  tpsform(H,x,10): convert(", polynom? ) ; 
4 
1—49324— at 
3 
Ez a megoldás a negyedik Hermite polinom konstansszorosa. 
5 orthopoly[H](4,x) / 12; 
4 
1—434-gt 
37 
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Kezdetiérték problémák numerikus megoldását a type - numeric opcióval kér- 
hetjük a Maple-től. Alapföltételezés szerint ekkor az RKF45 algoritmusnak meg- 
felelő Fehlberg-féle negyedrendű Runge-Kutta módszert alkalmaz a rendszer 
(lásd [61] ), de más numerikus módszerek is rendelkezésünkre állnak. Elsőként 
az y(0) — 0, y"(0) — —0.1 kezdeti föltételekkel kiegészített 


— (1—y?)y 34y—0 


van der Pol egyenletre alkalmazzuk a Runge-Kutta módszert. 
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Differenciálegyenletek rendszerének numerikus megoldásához a dsolve eljárást 
a type - numeric opcióval kell meghívni. 


5 alias( y-y(t), y0-y(0), yp0-D(y) (0) ): 
: egn :— daiff(y,[t$2]) - (1-y-2)rdiff(y,t) t y— 0; 


02 20 
em —(7gy—(1—y)(z;yty—0 


5 initvals :— y0-0, yp0--0.1: 
5 F :— dsolve( (egn, initvalsb, y, type — numeric ); 


F :— procí(rkf45 T) ... end 


A numerikus megoldó algoritmus olyan listát ad vissza, amely három egyenlő- 
séget tartalmaz: az első a t független változó értékét adja meg, a második az 
y függő változó értékét ezen a helyen, a harmadik pedig pedig az 4" deriváltat 
ugyanitt. Két példa következik ennek illusztrálására: 


s  F(0); 


[1-09y—-0 1] 


LL ATOSRA 
pg 


[t — 1, y — —.1447686096006437, 5Ly - —.1781040958088073] 


Jobban megértjük a megoldást , ha megpróbáljuk ábrázolni valamely számunkra 
érdekes tartományon. Először konvertáljuk függvénnyé a numerikus megoldást. 
Könnyen kiválasztható az y függő változó értékét definiáló egyenlőség jobb ol- 
dala. 


5 Y :— t -5 rhs( op(2,F(t)) 2); 


Y :— t 5 rhs(op(2, F(t))) 


Ezután a plot parancsot használhatjuk a megoldás grafikonjának fölrajzolására. 
(Lásd 17.4. ábra.) 


s: plot(Y, 0..14, title- 
5 "solution of van der Pol?s Eguation" ); 
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solution of van der Pol"s Eguation 


17.4. ábra: A van der Pol egyenlet megoldásának grafikonja 


Ha nincs szükségünk az adaptív rajzoló algoritmussal készült , szép" grafikonra, 
a megoldást ábrázolhatjuk a plots csomag odeplot eljárásával is. 


s  plots[odeplot]( F, [t,y], 0..30, title- 
b "odeplot of the solution of van der Pol?"s Eguation" ); 


odeplot of the solution of van der Pol"s Eguation 


17.5. ábra: A van der Pol egyenlet odeplot-tal fölrajzolt megoldása 


Második, terjedelmesebb példánkban a numerikus KDE megoldó módszert olyan 
differenciálegyenletek rendszerére alkalmazzuk, amelyek a merev, surlódásmen- 
tes, két szabadsági fokú robotmanipulátor dinamikáját írják le (kettős inga). 
Az [58]-ban ismertetett dverk78 78 rendű folytonos Runge-Kutta módszert 
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használjuk. (Lásd 17.6. ábra.) 


17.6. ábra: Kettős inga 


Először az Euler-Lagrange formalizmusnak megfelelő mozgásegyenleteket vezet- 
jük le. Az érdeklődő Olvasó [122]-ben találhatja meg a Newton-Euler formaliz- 
mus szerinti mozgásegyenletek levezetését. Legyen 9 — (01,02) és ő — (01, 02), 
definiáljuk az ? f 

L(0,99—T(0,9)—V( 9) 
Lagrange-függvényt, amelyben T(0, 0) a mozgási, V (d) a helyzeti energiát jelenti. 
A fönti konfiguráció esetében a mozgási energiát az mi tömeg 7) és az ma tömeg 
T; mozgási energiájának összegeként kapjuk. Az mi tömeg mozgási energiája 
közvetlenül megadható: 


T1 (0, 9) — amió2. 
A végpont (22, y2) Descartes-féle koordinátái 


xx; — lisin81 le sin(01 - 02), 
y2 — l1cosd1 7 la cos(91 - 02). 


A. sebesség komponenseinek Descartes-féle koordinátái tehát 


32 li (cos 01 )91 - la cos(01 5: ci 02) (61 ty 02), 
j2 —  —l1(sin 01) di — lo sin(01 7 02)(61 7 02). 


A sebesség abszolút értékének négyzetét véve a következőt kapjuk: 
T2(0,6) — ama (1202 -- IZ (1 -- 02)? -- 2112 (cos 02) 61 (Ő1 -- 02)) . 


A helyzeti energiát a tömegpontok magassága határozza meg. 


V1(9) — -migli cos91, 
V2(9) — —m2gli cosd1 — ma g12(cos 91 - 02). 
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Az összes előző formulát megkaphattuk volna a. Maple fölhasználásával. 


alias( thetal1]j-thetal[1](t), thetaf[2]-theta[2](t) ): 
macro( m1-m[11], m2-m[2], 11-1[11, 12-1[2], 

x1-x[1], x2-x[21, y1-y[i], y2 - y[2], 
t1-thetal[li1](t), t2-theta[21(t) ): 

xi lixsin(t1): yi :— 1likcos(ti): 

x2 lixrsin(t1) 4 12rsin(ti1tt2): 

y2 lixcos(ti) 4 I2rcos(t1tt2): 


HZDS SZÉNNÉ NÁN E 


Az mi tömeg mozgási energiáját így számíthatjuk ki: 
5 T[1] :— simplify( KNK a t)72 4 diff(yi,t)72) ); 


d 
Ti :: am 11? Cnnj 


Az m2 tömeg mozgási energiáját is hasonlóan kapjuk: 


5  T[2] :- expand( 1/2rm2r(diff(x2,t)72 4 diff(y2,t)"72), 
5 cos(t1tt2), sin(t1tt2) ): 
5  simplify("); 


ma li cos(91) (6 91)? la cos(91) 


km? li cos(41) (3 h 70) la cos(901) (ös 7 02) ső 22 Ús a 


öt Bug 


km? li sin(01) e 01)? lo sin(901) 


1 
km? li sin(0.) (27.01) be sin(901) (5; 7 02) tejes 9 ma is (601)? 
1 "ő 
-m2 15? (6 91) (5 02) 4 22 b (37 02)? 


991 -— 01 Tt 02 


További egyszerűsítésekre, így a véges Fourier sorok kiszámítására is szükség 
van. 


5, map( combine, collect(" diff(t1,t)), "trig? ): 
5 T[2] :-— collect( ", [11,12,m2,cos(t2)], factor ); 


2 


1.0 "ÉNEKET 
45 zer Flzz ény) m2 l2 


1 2 A ső Ö [0 [0 
15: ma ú" (37 01)" "e (3 01) (37 91) ze (37 02)) cos(02 ) m2 la [A 


Az Euler-Lagrange mozgásegyenletek a következők: 


ZEgte i-1,2 


dtXoó) 00." 
Ezek fölhasználásával a következő vektoregyenletet írhatjuk föl: 


M(G)ö 4 C(0,9) 4 G(0) — 0, 
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ahol 7 7 (ÖL, 82), 


mil? zt mol? ku mol 4 2moli1l2 cos 02 mol3 HF malil2 cos 02 
M(9) — 


mol3 -4 malila cos 02 moli 


a Coriolis- vagy centripetális erőnek megfelelő C(0, 0) tag 


— mali] sin(02)d2 (201 -k 02) 


malila sin(02)ő? 
végül a gravitációnak megfelelő G(0) tag definíciója 


ma g li sin 91 4 ma gli sin 91 4 m2 g 12 sin(d1 t- 92) 


m2g la sin(01 Es 02) 


Lássuk, hogyan számítható ki ez a Maple segítségével. Először az mi, illetve az 
ma? tömeg helyzeti energiáját határozzuk meg. 

5  VI1] :— - misgr1lircos(t1): 

5 V[2] :— - m2:gr1l1xrcos(t1) - m2igr12kcos(titt2): 

a E iEt 56. tT[2]-V[1]-VI2]: it Lagrangian 

ÖL 


A — Bó, és a úg deriváltak közvetlenül nehezen számolhatók ki. Ezt a problémát 


segédváltozók bevezetésével oldjuk meg. 


s L :— subs( í t1-t 1, t2-t 2, diff(ti1,t)-tip, 

pe ÖLT t éz, tjetőp a L 9 

5 aL dti1p :— diff(L, tip): 

5 AL dt2p :— diff(L,t2p): 

5 dAL dti :— diff(L yt 1): 

5 dr .dt2 :— diff(L,t.2): 

s aL dtip :— subs( í t.1-ti1, t 2-t2, ti1p-diff(ti1,t), 
s t2p-diff(t2,t) b, dL dtip ): 

5 db dt2p :— subs( ( t 1-ti, t 2-t2, tip-diff(ti,t), 
5 tzp-ditfiCt2 1) TT. at dtzp 93 

5 aL dti1 :— subs( ( t 1-ti, t.2-t2, tip-diff(ti1,t), 

öz tépd ér VEZE) F, de dtd 33 

s AL dt2 :— subs( ( t 1-ti1, t 2-t2, ti1p-diff(ti,t), 

pl t2p-diff(t2,t) hl, db dt2 Je 


Most már minden készen áll az Euler-Lagrange egyenleteken alapuló differenci- 
álegyenletek definiálásához. 
s  odel[li] :- collect( diff( dl. dtip, t ) - dL dt1— 0, 
5  [diff(ti,I[t$21) diff(t2,It$2]) diff(ti,t),dif f(t2,t)] ); 
2 


fő) 
ode1 :— (mu l1? -k ma l1? 4 ma l2? 4 2 cos(02) m2 12 11) (38 01) 
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-4 (ma l2? 1 cos(02) ma b Kezét 2) 


B [0 § 
— 2 te 01) sin(02) (5 02) m3 l; li ré (3 02)? sin(02) m2 la li 
-4H m2 g la sin(01 4 02) -- mi gli sin(01) t- m2 gli sin(91) — 0 
5  ode[2] :-— collect( diff( alL dt2p, t ) - dL dt2 —- 0, 
s  [diff(ti,[t$21)  diff(t2,[t$21]) ,diff(t1,t) diff(t2,t))] ); 


01) 798 zssatő alt ST 12? 


02 
06 őt 
01)? 4 m2 gl sin(91 02) — 0 


ode2 :— (m2 1? hű cos(02) m2 lb? la) (— 


§ 9) 
za sin(02) m2 la li (3 


Az egyszerűség kedvéért azt az esetet tekintjük, amikor a két tömeg és a két 
hossz megegyezik, tehát mi — m2 — m és ly — 12 — 1]. Ekkor a mozgásegyenletek 
a következő alakúak. 

5 mi :- m2: m2 :— m: 11 :— 12: 12 :— Ll: 

5 map( x -2 x/(mr172), SZT ág EN ) : 


5  ode[1] :- map( normal, " ) - 
nder eti te 58 ET EGE 7 02) 
— 2 (2 01) sin(02) (2 02) — (27 027 sin(0a) S TÉN 
a. fffelB 1] gsin(91) o 


l 
s map( x -2 x/(mr172), 1hs(ode[2]) 4363 
5  ode[2] :5- map( normal, " ) - 0; 


ode; :— 


02 gsin(01 - 02) — 
(1 7 cos(02)) (ze 38 ET 0 


Vegyük az! — 1 és a g — 9.8 értékeket. A kezdeti jus legyenek 


01) EIT es 702) wa sin(02) e 40 2-4 


91(0) — 0.04,  92(0) — 0.04,  61(0) — 0.04,  02(0) — 0.04. 


Most már minden együtt van a kezdetiérték probléma numerikus megoldásához. 
5 l1:-1: g :— 9.8: 
s alias( t1 0-theta[1](0), t2 0-theta[2] (0), 
5 tip. .0-D(thetal[1]) (0), t2p. 0-D(thetal2]) (0) ): 


Ismét nem maradt más tennivalónk, mint a type - numeric opcióval a dsolve 
eljárás meghívása. Ezúttal a dverk78 módszert választottuk. 
s F :5— dsolve( fodelil, ode[2], ti 0-0.04, t2 0-0.04, 
22 tip 0-0, t2p.0-O), ít1,t2j, type - numeric, 
p.d method-dverkf78 ); 
F :— proc(dverk78 t) ... end 
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5  F(0.5); t an example 


[7 — .5, 91 — .02561531652085891, 57 0 — —.09576338917809546, 


92 — —.01205989941048582, a 


31 92 — —.07345182765453390] 


A numerikus megoldó algoritmus olyan listát ad vissza, amely öt egyenlőséget 
tartalmaz: az első a t független változó értékét adja meg, a következő kettő a 
01 és a 02 függő változók értékét ezen a, helyen, a két utolsó pedig pedig a függő 
változók deriváltjait ugyanitt. 


5 Thetali] :5s t -- rhs( op(2,F(t)) ); 
04 :— t — rhs(op(2, F(t))) 


5  Thetal2] :—- t -2 rhs( op(4,F(t)) ); 
92 :— t — rhs(op(4, F(t))) 


Fölrajzoltatjuk a 01-re és a 02-re kapott közelítést, hogy legyen valami elképze- 
lésünk a kapott megoldásról (17.7. és 17.8. ábra). 


s  plot( Thetal1], 0..6, title - "shoulder angle" ); 


shoulder angle 


17.7. ábra: A kettős inga 91 vállszögének grafikonja 


5 plot( Theta[2], 0..6, title — "elbow angle" ); 
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elbow angle 


17.8. ábra: A kettős inga 92 könyökszögének grafikonja, 


A szögekre vonatkozóan ilyen eredményt várt az Olvasó? A plots csomag 

odeplot eljárásával a (01 , 02) szögeket ábrázoló háromdimenziós megoldásgörbe 

is készíthető. A nézőpont megfelelő változtatásával ebből megkaphatjuk a meg- 

oldásgörbének az előző két ábrán látható kétdimenziós projekcióit. Animáció 

segítségével még jobban megérthetjük a kettős inga mozgását. Az alábbiakban 

megadjuk az animációt generáló parancsokat. Ügyeljünk arra, hogy ezek az 

előző számítások folytatását képezik. 

finiáljuk. 
s x1 :— t -2 sin( Thetal1](t) ): 

5 t -5 cos( Thetal[1](t) ): 

s : t -5 sin( Thetal1](t) ) 4 

b-a sin( Theta[1](t) 4 Theta[(2](t) ): 

5 

s 


S 
m 
MAI 


y2 :— t -2 cos( Thetali](t) ) 1t 
cos( Thetali1](t) 41 Thetaf2]1(t) ): 


Ezután olyan ábrasorozatot generálunk, amely a (0, 6) intervallumból vett kü- 
lönböző időpontokban ábrázolja a robotkar pillanatnyi helyzetét. 


5 for i from 0 to 6 by 1/10 do 
PLil] :— plot( [L [0,0], [xi(i),yi(i)], [x2(i),y2Ci)] J], 
style-line, view-[-0.2..0.2,0..21] ) 

od: plotseguence :— [ seg( Pli/10], i-0..60 ) J]: 


VAN 


Végül a plots csomag display rutinjával folyamatos sorozatként jelenítjük meg 
az ábrákat, így kapjuk meg az animációt. 
5  plots[dispiay]( plotseguence, inseguence-true ); 


A KDE-ek numerikus megoldását végző két Runge-Kutta módszerrel már ta- 
lálkoztunk. De a Maple ennél sokkal több numerikus módszert tartalmaz. A 
17.4. táblázat összegzi a dsolve segítségével elérhető módszereket. Ehhez csak 
a type - numeric és a method — approach opciókat kell megadnunk. 
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Módszer 


classical 


classical[foreuler] 
classical[heunform] 
classical(impoly] 


classicalirk2] 
classicalírk3] 
classical[rk4] 
dverk78 

gear 

gear[bstoer] 
gear[polyextr] 
lsode 
lsodeladamsband] 


lsodeladamsdiag] 


lsodeladamsfuncI 
Isodefadamsfull] 


lsodelbackband] 
lIsodelbackdiag] 
Isodelbackfunc] 
lIsodefbackfull] 
mgear 
mgearladamspc] 
mgear[msteppart] 
mgearÍmstepnum] 


rkf45 
taylorseries 


classicalladambash] 
classical[abmoulton] 
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Jelentése 


az előretartó Euler módszer (default) 
Adams-Basbforth (, prediktor") módszer 
Adams-Bashforth-Moulton 

( ,prediktor-korrektor") módszer 

az előretartó Euler módszer 

Heun módszer 

a javított poligon, másnéven módosított Euler mód- 
szer 

másodrendű klasszikus Runge-Kutta módszer 
harmadrendű klasszikus Runge-Kutta módszer 
negyedrendű klasszikus Runge-Kutta módszer 

7.8 rendű folytonos Runge- Kutta módszer 

a Gear féle egylépéses extrapolációs módszer 

a Bulirsch-Stoer racionális extrapolációs módszer 
polinomiális extrapolációs módszer 

Livermore stiff KDE megoldó alg. 

chord iterációt végző implicit Adams módszer sávos 
Jacobi-mátrixra 

chord iterációt végző implicit Adams módszer diago- 
nális Jacobi-mátrixra 

implicit Adams módszer függvényiterációval (default) 
chord iterációt végző implicit Adams módszer teljesen 
kitöltött Jacobi-mátrixra 

a hátrafelé differenciáló formulák módszere sávos 
Jacobi-mátrixra 

a hátrafelé differenciáló formulák módszere diagonális 
Jacobi-mátrixra 

a hátrafelé differenciáló formulák módszere függvényi- 
terációval 

a, hátrafelé differenciáló formulák módszere teljesen ki- 
töltött Jacobi-mátrixra 

Gear többlépéses extrapolációs módszere 

Adams féle prediktor-korrektor módszer 

többlépéses módszer stiff rendszerekre a Jacobi- 
mátrix lépésenkénti kiértékelésével 

többlépéses módszer stiff rendszerekre a Jacobi- 
mátrix numerikus differenciálással számított közelítő 
értékeivel (default) 

Fehlberg 4,5 rendű Runge-Kutta módszere 

a numerikus Taylor-sor módszer 


17.4. táblázat: A dsolve-val elérhető numerikus módszerek 
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A klasszikus numerikus módszerek leírása megtalálható majdnem minden, a, 
KDE-k numerikus megoldásával foglalkozó könyvben. A Gear féle egy- és több- 
lépéses módszerekkel kapcsolatban [70]-re hivatkozunk. A GEAR kód további 
javítása az LSODE (Livermore Stif ODE Solver), amely az ODEPACK nevű 
nagyobb programcsomnag része (lásd [102]). Az elsőrendű differenciálegyenletek 
rendszereit Taylor sor módszerrel numerikusan megoldó eljárást a [11] irodalom 
ismerteti. 


A KDE-k numerikus megoldását, végző különféle eljárások hívásával kapcsola- 
tos különféle kérdéseinkre a, rendszer online help oldalai nyújtanak gyors segítsé- 
get. Most csak a Taylor sor módszer alkalmazását mutatjuk be az anharmonikus 
oszcillátort reprezentáló alábbi differenciálegyenletek rendszerére. 


5 ODEs :— diff(g(t),t) — p(t), 
5 diff(p(t) ,t) — -g(t) - 4rg(t)72 - 2rg(t)"73; 


ODEs — 57 a(t) — p(d), 2 P(D) — —a(t) — 4a(0? — 2a(ty: 


A kezdeti föltételek legyenek a következők: 
5 inítvals :— g(0)-0, p(0)-1: 


5 dsolve( ( ODESs, initvals 3, (a(t),p(t)b, 
5 type-numeric, method-taylorseries, 
5 output-listprocedure ) ; 


[t— (proc(t) ... end), SES z- (proc(t) . . . end), 
p(t) — (procCi) . d) ] 


A numerikus megoldó eljárásnak azért adtuk meg az output - listprocedure 
opciót, hogy eredményül olyan egyenlőségek listáját kapjuk, amelyek baloldalán 
a független és a függő változók nevei állnak, a jobb oldalon pedig az ezeket ki- 
számító eljárások. Így könnyen kaphatunk numerikus függvényeket a g pozícióra 
és ap momentumra: 


5 0 :— subs(",g(t)); t$t position 
2 — proc(t) . .. end 


5. .P 


11 


subs("" p(t)): t$ momentum 
A pozíció és a momentum időbeli változását láthatjuk a 17.9. ábrán. Ezt a 
következő parancsokkal számítottuk ki: 

5 Oplot :— plot( §, 0..10, linestyle-1 ): 

5 Pplot :- plot( P, 0..10, linestyle-2 ): 


5 plotsldisplay]( íNplot, Pplot) ); 
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4. éltes 


konja 


Könnyen kaphatunk numerikus közelítést az anharmonikus oszcillátor periódu- 
sára is. 
5 fsolve( G, 5..6 ); 
5.583431954 


Ellenőrzésül nézzük meg a pozíciót öt rezgés után. 
s A(5x9); 
.1207517867 1077 
Az oszcillátor fázistérbeli (momentum/pozíció) pályagörbéje a 17.10. ábrán lát- 
ható. 
s plot( [ d, P, 0..5.6 ] ); $ phase plot 


17.10. ábra: Az anharmonikus oszcillátor fázisterének ábrázolása 


A mozgási energiát a pozíció függvényében ábrázoltuk a 17.11. ábrán. 
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s plot([ 0, P72/2, 0..5.6 ] ); 


17.11. ábra: Az anharmonikus oszcillátor mozgási energiája a pozíció függvé- 
nyében 


A 17.12. ábra azt mutatja, hogy az oszcillátor 
md szdszes án da 
Magy tat tag tat 


Hamilton-függvénye konstans. 


s  plot( 1/2xrP72 4 1/2072 41 4/3073 4 1/2r074, 
5 0..5.6, 0.4..0.6, numpoints-25, adaptive-false ); 


.] t 3 § j . jleezágal 


17.12. ábra: A mozgás konstans Hamilton-függvénye 


17.6. A DEtools csomag 


A DEtools csomag a, differenciálegyenletek numerikus viselkedésének tanulmá- 
nyozását segítő grafikus eszközöket tartalmaz. A következő parancs például az 
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előző részben vizsgált anharmonikus oszcillátor fázisterét jeleníti meg két integ- 
rálgörbe berajzolásával (17.13. ábra). 

5 with( DEtools ): 

5 ODEs :-— diff(g(t),t) — p(t), 

pa diff(p(t) ,t) — -g(t) - 4rg(t)72 - 2rg(t)"73; 


ODESs :— 5; a(t) — p(t), 5 P() — —g(t) — 4a(2)? — 2 a(r)? 


s DEplot( (ODES), [g(t) p(t)], t-0..8, 
2 L (g(09-0,p(0)-11, [g(09-1,p(0)-01], 
5 method-dverk78, linecolor-blue ); 


17.13. ábra: Az anharmonikus oszcillátor fázistere 


Második példaként annak az elektromos erőtérnek az erővonalait számítjuk 
ki, amelyet két egységnyi távolságban lévő párhuzamos egyeneseken elhelyez- 
kedő ellentétes polaritású, hosszegységenként 1 töltésegység nagyságú töltések 
hoznak létre. Valójában a 15.5. alfejezetben tekintett példát vettük ismét elő. 
A töltéseloszlás által az ry-síkban létrehozott elektromos mezőt E — —V$ de- 
finiálja, ahol 


$-m( VETETT 9?) -m (Va -TETTT[) . 


A tér egy erővonalát úgy foghatjuk föl, mint valamely egységnyi töltésnek az 


elektromos mező hatására történő helyváltoztatásának pályáját. Kiszámítása a 


ke sz Egy az — E, differenciálegyenletek megoldásával történhet, melyekben t 


a pályagörbe menti elmozdulást jelenti. 
5 phi :-— 1In(sgrt((xt1)721y72)) - In(sgrt((x-1)"21y72)); 


$:h(/2-322114y?) -n(V/2-22169) 
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5 E :- map( normal, linalg[gradi( -phi, [x,y] ) ); 
37—1—y? 
(32 312211-4y2?)(r2—22-t14y) 


4 kúl 
(3242241-4y)(s2—273-414-y?) 


BH az [2 


s alias( x-x(t), yry(t) ): 
s ODEs :— diff(x,t)-E[1], diff(y,t)-E[2]; 
2 


fő) 3—1—y 
ODEs:— 522 
OL (2 r2zrilry)s?—2rr1ry2) 


fő) e yz 
097 (122241-4y?)(22—214 1-7 y3) 


initvals :— subs( t-0, [ seg( [x-140.O5rcos(Pi/20xs) , 
y-.O05$rsin(Pi/20rs)], s-5..19 b NM vs 

initvals :— evalf( initvals ): 

DEplot( (ODEs3, [x,y], t-0..20, initvals, 
x--1.5..1.5, y-0..2.5, stepsize—-0.001 ); 


VYVVYVV 


2? 


DE ATET TÉT I 
ég? 


e.g 
Ek 
d PEP ESTI 


1; 


Fú Far 
KT OT L ÉTV ÜS 1 
sát PET 


§ SSANNAN 44 Ng Sk XN h.§ S 
MAREK e 


Szt, 
ge 


VS ÁMT 


b. hő Set menssz meet 


ri 
w 


17.14. ábra: Eletromos mező képe 


Az ábrázolás tartományát és a lépésközt úgy választottuk, hogy a 17.14. áb- 
rán látható erővonalak elég közel kerüljenek az eletrosztatikus potenciál (—1, 0) 
szinguláris pontjához. Ennek az a hátránya, hogy egész sok időre és memóriára 
van szükség az erővonalak kiszámításához. 

A PDEplot eljárással 


0u 0u 
Oz hű A(z, t, u) — es R(z,t, u) 
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alakú elsőrendű kvázilineáris parciális differenciálegyenletek numerikus megol- 
dásait ábrázolhatjuk. Példaként tekintsük azokat a folyadékokban kialakuló 
lökéshullámokat, amelyek a 


PDE és a következő kezdeti értékek hatásának felelnek meg: 


s Üje 1—2?, halx]cI; 
VAS 10 egyébként. 


A lökéshullámok terjedése a 17.15. és a 17.16. ábrán látható. 

alias( u-u(x,t) ): 

PDE :— diff(u,t) 4 uxrdiff(u,x) — 0: 

initdata :— [s,0,1-s72]: 

PDEplot( PDE, u, initdata, s--1..1, x--1..3, t-0..2.5, 
orientation-[-110,601], axes-box, style-hidden, 
shading-none ) ; 


MAL MNK 


£) 
[OAK 
Zé AI 


7 


17.15. ábra: Lökéshullám terjedése 


s  plots[display]( ", orientation-[110,60] ); 


17.16. ábra: Lökéshullám terjedése 
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A DEtools csomag másik fontos alkalmazása a differenciálegyenletekben sze- 
replő változók helyettesítése. Mind a független, mind a függő változókat transz- 
formálhatjuk. A megfelelő eljárások neve Dchangevar és PDEchangecoords. 

A KDE-ben végrehajtott változótranszformáció példájaként tekintsük a négy- 
zetes potenciáltérben mozgó részecske Schrödinger-egyenletét. 


Mdw 1; 
am gaz tak — EV. 
5  ODE :-— -h7r2/(2rm) rdiff(psi(x) , [x$21) § 


s 1/25krx"2tpsi(x) — Expsi(x); 


ÖBÉ ass 1 12 (ász va) - 5 ea dí — Ey(z) 
2 m 2 


5 a :— sgrt(h/(mtomega) ) ; 


h 
a :— 4/ — 
mw 
5 E :- h/2romegatlambda; 
1 
E: —-hwaA 
2 
5 omega :- sgrt(k/m); $ oscillator freguency 
k 
w :— 4/ — 
m 


1. FEKSER ETET ő gl psi(x)-phi(xi) k, ODE, x, xi ); 
42 kh€? sze c. te 
m 


5  simplify( (rhs-1hs)("), assume-positive ); 
1 hvk(—A9(€) — (éz (0) 4 € 90) 
"8 vm 


5  select( has, ", phi ); 
2 
-A (8) — (sz 38 - 9(E)) 4 €2 9(E) 
s newÜDE :-— collect( ", phi ); 
02 
newODE :— (-A 4 €) (2) — e $(5)) 


5  Dchangevar( phi(xi) - exp(-1/2$rxi72)ty(xi), newODE, xi ); 
(ha éjet BEN grg) eeletRE) gre) — etel /289 ye) 
2 
To FA tao) § 
vga egy ÉT egyé 
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5 factor("); 3 
el-1/2€) (-ay(g) sg) s 2ECE (0) — (da (0) 
s select( has, ", y ); 
fo) 0? 
-ax(ó IE) T 26 (57 y(€)) — e y(6)) 


5  HermiteODE :-— collect( ", y ); 
2 
HermiteODB :— (-A41)y(€) 4 2€(2gy(é)) - (ga y(0)) 
A differenciálegyenlet hatványsorral fölírt mú kÉLe már a 17.4. alfejezetben 
kiszámítottuk. 

A PDEcbangecoords eljárással úgy változtathatjuk meg a PDE-ben szerep- 
lő koordinátákat, mint ahogy a plot rutinokban váltottunk koordinátarendszert. 
A kétdimenziós Laplace egyenletet például a következő módon írhatjuk át po- 
lárkoordinátás alakra: 

5  LaplacePDE :- diff(F(x,y), [x$2]) 

s 4 diff(F(x,y),[ly$2]) — 0; 

2 


F 
LaplacePDE :— LA F(x, y)) 4 (gz F(z, y)) —0 
5  PDEchangecoords( LaplacePDE, [x,y], polar, [r,phi)] ); 
2 
5 newLaplacePDE :-— numer(1hs(")) - 0; 


-0 


newLaplacePDE :— 
0) 0? 
(Front (PA 9091? a (ggg Pr 6) — 0 
Az addcoords eljárással mi is bevezethetünk , saját" koordináta-transzformá- 
ciókat. Ennek illusztrálására transzformáljuk át a 


öt Et öz" 
Fokker-Planck egyenletet a 
du 024 
ör  0£2 


diffúziós egyenletbe. 


5  FockerPlanckPDE :- diff(u(x,t),t) - 
5 diff(u(x,t) , [x$2]) 4 xrdiff(ulx,t),x) Ft u(x,t); 


FockerPlanckPDE :—- 
2 egz (E üle, 9) ett üle; 9) arut, 8) 
JE 7 CSO Jas ; 
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í eze tk 


Az első változóhelyettesítések: £ — re", v — ue 


5 readlib( addcoords ) : 
5 Dchangevar( (u(x,t)-v(xi,t)trexp(t)), 
5 KEAASES EKB si p.cs lb) 0 


sive Det — (áigvlé De) rege vit De) rvlé e 
5  simplify("; 


Öö t ez 
(37 vé t) et vlé, b) e — 
(sz v(é, b) e rECEVÜE beér vlé De 


5  addcoords( Ti, [x,t1], [Ixrexp(-t),t] ): 
5  PDEchangecoords( "" , [xi,t], Ti); 


(ect — fel-D (et?) (az ve, 9) e (ár vle, D) et — (et)? (áig vlé, 0) 0 


5  expand( "/exp(t)"3 ); 
sz V(é, 2) 
(et)? 
5  combine( ", exp ); 


fő) 
(—26) sz 
el-2D (vé, 9) — (ggg vlb 9) 0 
Tehát a következő PDE-t kaptuk: 


82 
ii erzi v(é, 1)) — 


2 
e-2t 01 E 0v 
Öt  0£ 

Vezessük be a Tr — £e? új változót. Az új koordinátákkal fölírt PDE az egysze- 
rűsítések elvégzése után a , diffúziós egyenlet" néven ismert formájú lesz. 

5  addcoords( T2, [x,t], [x,1/25r1n(25rt)] ): 

5  PDEchangecoords( "" , [xi ,t], T2, [xi taul ): 

s  diffusionPDE :- EMELES ő 


diffusionPDE - mm 12 Ge ga v(é, T)) — 


17.T.  Perturbációs módszerek 


Ha perturbációs módszerekkel szeretnénk közelítő megoldást találni a KDE-hez, 
a számítógépes algebrai rendszerek a leghasznosabb segédeszközök. Ebben a 
részben két klasszikus eljárást ismertetünk, a Poincaré-Lindstedt és a többszörös 
skálázásos módszert. Mindkettőt a van der Pol egyenletre fogjuk alkalmazni. Az 
érdeklődő Olvasónak ajánljuk a [158,159] irodalmakat is, melyek a MACSYMA 
számítógépes algebrai rendszernek a perturbáció és a bifurkáció elméletében 
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való fölhasználásával kapcsolatos számos példát tartalmaznak. A matematikai 
elmélet megtalálható [144]-ben. 


Poincaré-Lindstedt 
A van der Pol egyenlet a következő: 
y"—e(1—y9)y ty — 0. 


Az e — 0 értékre ez a matematikai inga differenciálegyenlete. A 17.5. alfejezet- 
ben már numerikusan. vizsgáltuk az e — 1 esetet. Az egyenletnek tetszőleges 
e mellett létezik egy határciklusnak nevezett aszimptotikusan stabil periodikus 
megoldása. 


A határciklusra szeretnénk jó numerikus közelítést kapni kis c érték esetén. 
Mivel a van der Pol egyenlet nem tartalmaz az időtől explicit módon függő 
tagokat, az általánosság megszorítása nélkül választhatjuk a t — 0-nak megfe- 
lelő pontot; a kezdeti érték legyen y(0) — 0. A Poincaré-Lindstedt módszer 
alkalmazásakor , megnyújtjuk" az időt a 


TE wt 
transzformációval, amelyben 
w-1-twedtwae th wze h... 
Ekkor az y(r)-ra fölírt van der Pol egyenlet 
wy" — we(1—y9)y ty- 0. 


Ellenőrizzük mindezt a Maple segítségével. 


5 diff( y(t),t$2 ) - epsilonr(1-y(t) 72) rdiff(y(t) ,t) 
5 t y(t) — 0; 


82 BY ző 
(ze y0)—e(1— yi) ) (gy) Hy() — 


s  ODE :- DEtoolsíÍDchangevar] ( 
5 ( t-tau/omega, y(t)-y(tau) ), ", t, tau ); 
14 


[0 [0 
kesz pej E S m ési 2 fedés Ez 
ODE — w (sz y(m)—e(1—y(r) )w(zzy()) 4y(r) —0 
Föltesszük, hogy az y(r) megoldást e szerint Taylor sorba fejthető, azaz 
y(r) — yo(r) 4 yi(r)e - y2(r)e? - ya(rje? c... 


Helyettesítsük y(r) és w(e) sorfejtését a van der Pol egyenletbe, gyűjtsük össze az 
€-os tagokat és tegyük nullával egyenlővé e minden hatványának együtthatóját. 
Kis c esetén a megfelelő egyenletek: 


vo ty — 0, 
yi ty — 4o(1— 346) — 2w1yg 
y9 ty — (1—yő)vi — 2yoyiy0" — 2wiyi 


—(2w2 4 w)yg Tk wi(1 — yo)2g. 
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Az y(0) — 0 kezdeti értékből adódnak a következő egyenletek. 
yo(0)— 0,  yi(09— 0 w2(09—0, y3(0)—0, ... 


Vizsgáljunk meg néhány differenciálegyenletetet a Maple-lel, egyszersmind rög- 
zítsük a szekció további részében alkalmazott jelöléseket is: 


5 e order :— 6: 
5  macro( ezsepsilon, t-tau ): 
5 alias( seg( y[il — etalil(tau), i-0..e order ) ): 
s e :5— () -2 e: H introduce e as a constant function 
5 for i Írom 0 to e order do 
s etalil :— t -2 etalil(t) 
5 od: 
s omega :— 1 4 sum( )wlilteri?, ?i?—1..e order ); 

w:-1-4 wie th wa e? h wz e hwa et wz €? Th wa et 
s y :— sum( ?etalilkreri?, ?i?—0..e order ); 

y:—ntmetme th nze ht met 1 n5 e 1 ns et 
5  degn :— simplify( collect(ODE,e), (e7(e ordert1)-0) ): 
5 for i from 0 to e order do 
§ odeLlil] :—coeff( 1hs(degn), e, i ) - 0 
5 od: 
5  ode[(0]; 

82 
JESELRN sz Ő 
(gyz 90) vo 
5  ode[i]l; 
0? 0? fo) fő) 
1(— y1) F2w(— — 2 (—4yo) —0 
ntlzz) 1 (zzz 90) t (37 90) vo" — (57 40) 

5  ode[2]; 


02 o 02 02 (5) 
y2 tk (az y2) — si 0) wi (zzz y0) wi? x 2(z 0) wa (37 y1) vo? 
02 fő) fő) fő) 
t12wi (az 1) ga (3791) TE (37 90) wi yo? PF 2(57 90) vo yi 50 


Az no(r)-ra vonatkozó kezdetiérték probléma egyszerűen megoldható. 


5  dsolve( ( ode[0], eta[0](0)-0, D(eta[l0]) (09-C[1] b, 
s etalo](t) ); 


yo — C1sin(r) 
Ezzel a kifejezéssel definiáljuk az Jo függvényt, majd az m71(r)-ra vonatkozó 
differenciálegyenlet vizsgálatára térünk át. 
5 etalol :— unapply( rhs("), t ); 
no :— T - C) sin(r) 
5 ode[1]; 


0? 
y1 (372 yi) — 2 wi C1 sin(r) -- C1? cos(r) sin(r)? — C1 cos(r) — 0 
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5 map( combine, ode[1], ?trig? ); 
ú 1 1 
yik (z y1) — 2 wi Ci sin(r) 4 fi C1? cos(r) — 7) C4? cos(3 T) — Ci cos(r) — 0 


5  ode[i] :-— map( collect, ", [sin(t) cos(t)] ); 
odei1 :— 
d ök letj e ÉN ÖR ast egport see eröt 0 
wi C1 sin(r 20 1) cos(r) 4 yi 379 10 cos(3T) — 


A sinr-t és a cosr-t tartalmazó tagokat rezonencia tagoknak vagy szekuláris 
tagoknak szokás nevezni. Amint az alábbi általános megoldásból is látható, 
ezek okozzák a közelítés nemperiódikus viselkedését. 


5  dsolve( ( odel1], eta[1](0)-0, D(etal1])(0)-C[2] ), 
s etalil(t), laplace ); 


hé -a3 C1? c0s(37) 4 sz AZA cos(r) 4 C2 sin(r) -- wi Ci sin(r) 


— : Tr C1? sin(r) -k 2 Lé T sin(r) — Ci T wi cos(r) 
5 map( collect, ", [sin(t) cos(t),t] ); 
1 1 
yi — 8 (ta kül 20UT - Wwi 01 -k úg sin(r) 


Fk 3 C1? — C1 T w1) cos(r) — — sz 00 .cos(3 7) 


32 
Válasszuk úgy C1-et és w1-et, hogy ezek a tagok ür köszt 


5  solve( ( coeff( 1lhs(ode[1]), citá a 3) - 0, 
$ coeff( 1hs(ode[1]), cos(t) ) -— 0) ); 


(wi — T TEA 0, 61 ES 2], (wi — Ez Ü; Gy 50 —-2h, (C1 et 0, W1i -— wi) 
Mivel a 17.5. alfejezetben tárgyalt numerikus mószerrel akarjuk összehasonlítani 
az eredményt, válasszunk negatív amplitudót. 
s w[lil :— 0: Cífil :— -2: 
5 ode[il; 
82 
yi Tt (ze y1) 42cos(37) —0 


Az m.(0) — 0, n(0) — C2 kezdeti értékekkel megoldjuk az 771(T)-ra vonatkozó 
differenciálegyenletet. 

5  dsolve( ( ode[1], eta[11(0)-0O, D(etaLl1])(0)-C[2] 3, 

5  etal[1](t), laplace ); 


a cos(T) 4 C2 sin(r) 


: etalil :— unapply( rhs("), tau ); 


yi — 2 c05(8 T) — 


z cos(3 T) — 8 cos(r) -- C2 sin(r) 


MT stg 1 
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Hasonlóan járunk el C2-vel és n2(r)-val kapcsolatban is. 


5 map( combine, ode[2], "trig? ): 


Ej 
a 


ode[2] :— map( collect, ", 
[I sin(t), sin(3rt), cos(t), cos(3rt) J] ); 


odez e (G 4 4w2) sin(r) 4124 (5 Tr esájő 202 cos(r) — 5 sin(8 7) 


VENNI 


7 si 5 úg T) — 3C2 cos(37T) — 0 


solve( ( coeff( 1hs(ode[2]), sin(t) ) - 
coeff( 1hs(ode[2]), cos(t) ) -— 0?) ); 


(0270, w- 


assign("): 

dsolve( ( ode[2], eta[2](0)-0, D(eta[21]) (0)-C[3] 3, 
etal21(t), laplace ): 

collect( ", [ sin(t), sin(3rt), sin(5rt), 
cos(t), cos(3kt), cos(5xt) ] ): 

etal2] :-— unapply( rhs("), t ); 


mr 7 (Cz-r 58) sin(T) -k § 96 in Tr) — — 7 sin8 T) 


Föltételezzük, hogy az Olvasó megérti a magasabb rendű tagok kiszámításában 
mutatkozó szabályosságot, és az ezt kihasználó alábbi ciklikus utasításokat. 


MA E ÖTENTEÉNTE ÖVE NEG NK NEPE 


for i from 3 to e order do 
map( combine, ode[il, "trig? ): 
odeli] :— map( collect, ", 
[( seg(sin((2xjt1)xt),j-0..i), 
seg(cos((2xrjt1)rt),j-0..i) ] ): 
solve( fcoeff( 1hs(odeli)]), sin(t) ) - 
coeff( 1hs(odeli)]), cos(t) ) — 05 ): 
assign(") : 
dsolve( ( odelil], etalil(0)-0o, D(etalil) (0)-C[lir1] ), 
etalil(t), laplace ): 
collect( ", [ seg(sin((2xjt1)rt),j-0..i), 
seg(cos((2xjt1)rt),j-0..i) ] 2): 
etali] :5- unapply( rhs("), t ) 
od: 


Vessünk egy pillantást a végeredményre. 


p.d 


omega ; 
1 17 e 35 § 


1—1§8 tag" t 384736 
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s (td 


—2sin(r) - JG cos(3T) — 1 c0s(r) E -k (gő g sin(5 T) — — 7 sin(8 T)) e? 


1. A 7556 a 005 (8 za k 576 0S(7T) 4 77 b 7 c08(5T) H 7zz 19 53 c05(r)) 6 ( 
os sin(T) 4 788 cin T) Tt 2565 sin(7 Tr) — 28 sin(9r) 
— 75818 sin(5 öjé tr (zzaggő cos(117) -- ö49TZ cos(3 7) 
Ezt cos(7 T) — TZzeelő cos(9 T) — ZÖRAZOS cos(5 Tr) 

Ni 723850 cos(T))e? 4 ((C7 — ES7SEZZEDOTI) sin(r) 

eb; STEG ZŰŰ sin(13 7) — OLE TZJÚ sin(7T) zarseoog sin(9 5 

sza samt sin(3 T) -k TTEágő sin(5 T) — 7654508005 sin(11 T) Je 


A C; konstanst a következő lépésben tudnánk meghatározni. Az 1(r) megoldást 
csak az ötödrendű tagokkal bezárólag írjuk föl; a [6] irodalomban egész 164 
rendig megtalálható a számítás eredménye. 


5 y :- unapply( simplify( y(t), fere order-0?; ), t ): 


Ábrázoljuk ezt a függvényt az e — 1 esetben. 


5 e :z 1: y(t); 


799991 5257957 g ŐL. 4 
—TI05920 cos(T) -k 3317760 cos(T)" — Ty; sin(r) cos(r) 
4; zúg sin(T) cos(r)? — EzőT sin(T) T2gő0G cos(r)" 
— agozuo cos(r)" — 5 sin(r) cos(r)? -- ag sin(r) cos(r)" 
sz ee (Tr)? 9900 c08(r)T 


5  plot( y(t), t-0..14 ); 
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17.17. ábra: A van der Pol egyenlet megoldása a Poincaré-Lindstedt módszerrel 


Hasonlítsuk össze mindezt a 17.5. alfejezet numerikus megoldásával. 
A többszörös skálázásos módszer 


A Poincaré-Lindstedt módszer jól alkalmazható KDE-k periodikus megoldása- 
inak meghatározására, de nem sokat segít a KDE határciklusának közelébe eső 
általános megoldások közelítésénél. A többszörös skálázásos módszer használa- 
takor a KDE-t nem egyetlen t változó függvényének tekintjük. Ehelyett kettő 
vagy több ti, ta, tz3, . . . független változót veszünk, amelyeket a 


t-t, t2—et, t3—ét, ... 


egyenlőségekkel definiálunk. Ekkor 


á 8.0 48. 
dt Öti Öt2 Ötz 

2 82 0? a 0 fő) 

az 7 ot onna tt (de tg) te 


Ezt a Maple segítségével is ellenőrizhetjük (a magasabb rendű tagokat az e. order 
változó értékének megnövelésével kaphatjuk meg). 


5 restart; 

5 alias( epsilonce, 

s seg( y[lil -— etali]l( seg(t[j],j-1..3) ), i-0..2 ) ): 
5  macro( t1-t[1], t2-t[21, t3-t[3] ): 

5: e order :—- 2: 

5 e :5— subs( variables — seg( u.j, j-0..e order), 

5 body-e, (variables -2 body) ): 

5 subs( D - sum( e7(i-1)$rD[(i], i-1..e ordert1 ), 

5 (DOde order) (y) ): 
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5  simplify( collect(",e), (e7(e ordert1)—-0) ); 
Di 1(y) 42€ Di 2(y) 4 (2 Di, 3(y) 4 D2,2(y)) 6 


A klasszikus jelölések szerint ez a következő formulát adja: 


s  convert( "(seg( t[j], j-1i..e ordert1 )), diff ); 


8? 


41) (2 1) k 
Ot Otz 9678 


2 2 
91) 2e( 2 — 41) 4 (20 § 
Öt 


(aa Öti Ota 
701 88 y(ti, ta, t3) 


A többszörös skálázásos módszernél a KDE y megoldását 
y — yo(ti, ta, ts, ...) 4 eyi(ti, ta, tz, . ..) F elyo(ti, ta, tgy...) Ft 


alakú e szerinti hatványsorként írjuk föl. Ebből differenciálegyenleteket ka- 
punk az yo, yi, y2, stb. függvényekre. A három változós esetet alkalmazzuk 
az y(0) — 0, y"(0) — —1/10 kezdeti értékekkel az 


y—e(1—y)y ty-0 
van der Pol egyenletre. Valójában Noble és Hussain [145]-ben leírt számításait 
ismételjük meg. 


Először az yo(ti,t2,t3), vi(ti, ta, ts), és y2(ti, t2,t3) függvényekre vonatkozó 
differenciálegyenleteket vezetjük le a Maple-lel. 


5  ODE :5— (DO02)(y) - ex(1-y72)sD(y) 4 y-0; 
ODE :— (DO )(y) —€(1—y?) D(y) 4y—0 


subs( D - sum(?e7(i-1)xD[(i]?,?i?—-1..e ordert1), ODE ): 


v 


y :5 sum( ?etalilreri?, ?i?—0..e order ); 


y:—n tmet ne 


s diffegn :— simplify( collect("",e), (e7(e ordert1)-0) ): 
5 for i from 0 to e order do 

5  odelil :— coeff( lhs(diffegn), e, i ) -— 0 

5 od; 


odeg : D1,1(mo) tn — 0 
odei :— D1,1(m) -— 2 D1,2(mo) 4 m — Di(no) 4 D1(no) no? — 0 
odez : —D1(m) — D2(no) 4 no? Di1(m) 4 10? D2(mo) 


1 270 m Di(no) 4 2 D1,2(m) 4 me 4 D2,2(mo) 4 Di, 1(m2) 
1 2.D1,3(10) —0 
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A keresett differenciálegyenletek tehát a következők: 


02yo 
a 
07yi 097yo 2, 090 
B 1 gfj 
og ti Terminál Öt? 
ya po a na2yo yo 90 
02 "2 Ötíta OR " Otitz 


Az első egyenlet általános megoldása, 
yo(ti , bo, t3) sz A(to, ta) sin(ti -k B(ta, t3))- 


Ezt a következő egyenletbe helyettesítve a rezonancia tagok elhagyása után 
A(to, ta)-ra és B(to, t3)-ra a következő differenciálegyenleteket kapjuk: 


öB(tsasta) 

Öt2 j 
OA(to,ta) 1 1 3 
zal 3A(ta, ts) — 3 Alta, ts)" . 


Ellenőrizzük a, levezetéseket a Maple segítségével. 
5 ode[li] :- convert( ode[1](t1,t2,t3), diff ); 
2 2 


s 10 fo) fo) fo) 2 
ode1 :— (ae 11) 42 (3 GY y0) 4 yi (za Vo) Fk (E Vo) vo" -0 
5 eta[l0] :5— (t1,t2,t3) -2 A(t2,t3) $§ sin(ti 4 B(t2,t3)); 
no :— (t1, 12, 19) - A(t2, 13) sin(t1 -- B(t2, t3)) 
5  combine( ode[1], ?trig? ): 


odelil :— collect( ", [ sin(t1tB(t2,t3)), 
s cos(t14B(t2,t3)) ] ); 


v 


j fo) 
ode1 ssel A(ta, t3) sin(ti g- B(t2, t3)) (35 B(t2, t3)) 
fő) 1 
-K 2 (at A(t2, t3)) — A(ta, t3) ca Hő Fi A(to, ta)?) cos(ti zi B(t2, t3)) 


02 1 
La (zez 7 V1) — 7 A(t2, tz)? cos(3ti 4 3 B(to, ts)) ty — 0 
1 


A rezonancia tagok 


sin(ti mai B(to,t3)), cos(ti - B(ta, t3)). 


Ha továbbra is megkívánjuk, hogy a rezonancia tagok együtthatója nulla legyen, 
a következő differenciálegyenleteket kapjuk. 
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5 restrictions :— ( 
5 coeff( 1lhs(ode[1]), cos(titB(t2,t3)) ) - 0, 
p- coeff( 1hs(ode[1]), sin(t14tB(t2,t3)) ) - 0 3; 


restrictions :— ( — 2 A(to, t3) Ge a Bltas t3)) — 0, 


2 (37 Alta, 19)) — A(ta, ts) E 129 —0) 


s 2xdiff(F(t),t) - 7 4 súkb s sági z 
2(57 7 F(0) - F(t) 4 — 1 p(gő 7-0 


5 simplify( [dsolve( ", F(t), drélsétző )], symbolic ); 


rez áj AVE e(l/2?) e(1/22) 
[ e) e Ver 4-CI" 8] e MS ZZT ei C1 ] 


5 simplify( subs( Ci — 1/4rexp(t):rC, " ), symbolic ): 
s  subs( C-Crexp(-t), " ); 


klkreszz 


Tehát A(t2, t3)-nak vehető az 


p 
ÜLT EGT E] ] 

-2 
JTECGJET 


függvény, továbbá. föltételezhető, hogy B(t2,t3) — B(ts3) alakú. Ekkor az yi 
által kielégített differenciálegyenlet így alakul: 


A(t2,t3) — 


5  simplify( ode[1], restrictions, convert( 
p- [IDC11(B) (t2,t3) D[1](A)(t2,t3), A(t2,t3)], diff ) ): 
s  combine( ", "trig? ); 

2 


fő) 1 
(aa y1) 4 yi — 7 A(ta, tz)? cos(3t1 3. B(to, ts)) — 0 


Most egy trükkös számítási lépés következik: a homogén egyenlet megoldásának 
meghatározása helyett veszünk egy egyszerű alakú yi partikuláris megoldást. 
s etali] :5— (t1,t2,t3) -2 1/32 r A(t2,t3)73 
5 xk sin(3rt1ít3rB(t2,t3)13/2kxPi) ; 


mi :— (t1, t2, t3) 53 A(t2, 9)? sin(3t1 3-3 B(t2, 19) 57) 


s ""; Ht verify the solution 


0-0 


Ezután yi-et behelyettesítjük a harmadik differenciálegyenletbe, figyelembe vé- 
ve, hogy B nem függ t2-től. 
eta[1] :- "etali1]?: eta[l0] :— ?etalo0]?: 
ode[2] :-— convert( ode[2](ti,t2,t3), diff ): 
etal1]:- (t1,t2,t3)-- 1/32 x A(t2,t3)73 
x sin(3rt1t3rB(t3)13/2xPi) ; 


1 
m :— (t1, t2, 13) - 32 A(Z, 19)" sin(3 t1 4 3B(t9) 4 57) 


VVVV 
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5 etal0] :5- (t1,t2,t3) -2 A(t2,t3) $ siníti t B(t3)); 
no :— (t1, t2, 19) - A(t2, t3) sin(t1 3- B(t3)) 


5  combine( ode[2], "trig? ): 

s  ode[2] :— collect( ", [ sin(t1tB(t3)), cos(t1itB(t3)) ] ): 
s conditions :— ( coeff( 1lhs(ode[2]), cos(t1trB(t3)) ) - 

5 coeff( 1hs(ode[21), sin(t1tB(t3)) ) - 0 b; 


(9) 3 [9 
conditions :— 2 (at A(t2, t3)) tni 0, 1 A(t2, tg)? (35 A(ta, t3)) 
fő) 9? 3 é 
— (3 A (ta, ta)) 4 (zjez A(ta, ta) — 79 Alta, ta) 
— 2 A(ta, ts) sz B(ts)) — 0) 


Az egyik föltétel azt jelenti, hogy A(t2, ts) nem függ t3-tól (vagyis C(t3) kons- 
2 A(ta,t 
tans). A korábbi kikötésekből levezethetünk kéz egy szükséges fölté- 
2 


telt. 


5 op( remove( has restrictions ,B) ); 


fo) d 
d Ta A(to, t3)) — A(to, tsz) 4 új A(t2, tsa)! —0 
2 


5 diff(",t[2]D; 


0? [0 3 2.0 
2(gi 7 A(t2, t3)) — (3 A(ta, t3)) 7 Alta, ts) (35 A(t2, t3)) —0 
Az utolsó előtti kikötést is fölhasználva átírhatjuk az előző föltételeket. 


5  simplify( conditions, ( §, "" 3, convert( 
b L D[1,1](A)(t2,t3), D[1](A)(t2,t3), 
s AC(t2,t3) 1, diff ) ); 


((-2(3E B(ta)) — 2) Ata, to) 7 Alta, ta)? — 9g Ata, t3)5 — 0, 


8 
2 (arr Alta, ta) — 0) 


5 op( select( has, ", B ) ); 
tat ae JA je EÁ 2 Áta, égő e 
(35 3)) 4 2, 43 4 2, 43 128 25.48] — 


5 "diff(B(t3),t3)? - E zKéS t3) ); 


Öö 1 RK ! 
öt; B(ts) — ——-k 7 A(to, ts)? — A(to, tsz)" 


8 fi 
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Mivel A(t2, ts) valójában nem függ t3-tól, 
B(t ) s öli - A(ta t3) - Esők ta)" ta - Bo 
AB Í 39 ; 


ahol Bo konstans. Szigorúan véve a B(t3)-ra kapott formula ellentmond annak 
a korábbi kikötésnek, hogy B nem függ t2-től, hiszen A függ t2-től. De A 
képletéből látható, hogy csak lassan változó függvénye t-nek, ezért nem túl nagy 
t értékekre föltételezhető, hogy A konstans. Az érdeklődő Olvasó a [145]-ben 
talál ezen ellentmondás föloldásával kapcsolatos részletesebb fejtegetéseket. 

Lássuk, milyen közelítést kapunk az y(0) — 0, y"(0) — —0.1 kezdeti értékekre, 
ha az c — 1 érték mellett csak y — yo 4 eyi alakú approximációt veszünk. 


5 restart: alias( e-epsilon ): 
s y :5— etal0] t ezretal[l1]; 


y— ntem 
5 eta[0] :— t -5 A(t)$ssin(tHB(t)); 
no : t - A(t) sin(t 4 B(t)) 
s eta[1] :— t -2 -1/32rA(t)"3rcos(3rtt3rB(t)); 
m:— to —zzA(t) cos(3t 4 3B(1)) 
s B :— t-2 -1/8r(1-A(t) 7247/323A(t) 74) ker2rtib; 


Pitt . ak ae 2 fe dx 8 
B:-t 2 —3(1— AG? Hg AGY] et 


s A :— t-2 -2/(itcrexp(-ett)); 

A::-t o "ráz 
s :- 1: y :5- unapply( y(t), t ): 
2 assüvet € sed, DOJÍME- S A ia ÜSzdk; 


s  (b--0.1..0.1b ); 
(b — .0004073638406, c — 16.51715658) 
5 assign("); 


Rajzoltassuk is föl ezt a függvényt (17.18. ábra). 
s  plot( y(t), t-0..20 ); 
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s 
dl 


ze NN 
e 
EESEE süss ő 
essösesés 
sé 
4 ásás 
Te T9sisssöysmee 
set 


hr 


kt 


17.18. ábra: A van der Pol egyenlet megoldása a többszörös skálázásos mód- 
szerrel 


17.8.  Parciális differenciálegyenletek 


Az z és t független változóktól függő u ismeretlen függvényre fölírt parciális 
differenciálegyenlet (PDE) legáltalánosabb alakja 


F(x,t, u, uz, Ut, Urz, Uzt, Utt, . ..) — 0, 


ahol az indexek a megfelelő változók szerinti parciális differenciálást jelentenek, 
tehát 

u 2 0?u .0?u 

FEL Uzt — FEGYÜ Utt — 982 48 

A PDE rendjét a KDE-hez hasonlóan a PDE-ben előforduló legmagasabb rendű 
deriválttal határozzuk meg. A legáltalánosabb elsőrendű PDE tehát az z, t, u, 
uz ÉS uz változókkal 


Un — 


F(x,t,u, uz, u) —0 
alakban írható föl. Ha F a benne előforduló legmagasabb rendű parciális derivált 
r-ed fokú polinomja, akkor azt mondjuk, hogy a PDE foka r. Ha speciálisan 
F lineáris, akkor a PDE-t is lineárisnak hívjuk. Kvázilineárisnak nevezzük az 
olyan egyenletet, amely a legmagasabb rendű parciális deriváltban lineáris, de 
tartalmaz egyéb nemlineáris tagokat. Néhány ismert példa: 
ut—uzrz — 0  hővezetési vagy diffúziós egyenlet: 
másodrendű lineáris PDE 
44t— Uri — 0  hullámegyenlet: 
másodrendű lineáris PDE 
U4t—üuuztuzszz — 0  Korteweg-de Vries egyenlet: 
harmadrendű elsőfokú kvázilineáris PDE 
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Korábban már láttuk, hogyan oldhatók meg numerikusan PDE-k a DEtools 
csomag PDEplot eljárásával. De a Maple analitikusan is meg tud oldani bizo- 
nyos PDE-ket. A pdesolve (partial differential eguation solver) eljárás végzi 
ezt a feladatot. Néhány példát ismertetünk: 


s  wavePDE :- diff(u(x,t),[t$2]) - 
s 1/v-2 x diff(u(x,t), KőlÉelző 


wavePDE :— ps u(z, t)) — ázuln 1) 


5  pdesolve( vwavePDE, u(x,t) ); 
u(z, t) -— F1(—-t—vI) 4 F2(t—vr) 
Itt F1és F2 tetszőleges függvényeket jelentenek. 
5  PDE :-— axrxrdiff(ul(x,t),x) t bitxdiff(u(l(x,t),t) — 
PDE : az (az u(z, t)) - bő úls, 2) 50 


5  pdesolve( ", u(x,t) ); 


ul, 9-Fi(dy € 5) 


5  PDE :- axrx-2rdiff(u(x,t),x) t birt-2xdiff(u(x,t),t) — 0; 


[0 fo) 
8 — 2 neték 2 —— — 
PDE :— ax (az üle t)) bt (3 ul, 1) —0 
5  pdesolve( PDE, u(x,t) ); 
de d HT sz) 


5 PDE :-— diff(u(x,t) ,x$2) - t-2rdiff(ulx,t) ,t$2) 
s - txidiff(u(x,t) ,t)—0; 


PDE :- ta u(z, t)) — v Ed u(z, t)) (ő u(z, t)) —0 


5  pdesolve( PDE, u(x,t) 2); 
t 
u(z, t) — Fl(te?) 4 .F 2(77) 


Ne adjuk föl túl korán, ha a Maple-től nem kapunk határozott választ. Nézzük 
például a hővezetés egyenletét: 


s  heatPDE :— diff(u(x,t),t) — diff(u(x,t),[x$2]) ; 
áz 


[0 (0) 
heatPDE :— 31 u(z, t) — 57 u(z, t) 


5  pdesolve( heatPDE, u(x,t) ); 


2 
pdesolve( 57 ulz, E jei u(x, t), ul, 1) ) 
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A rendszer nem talált megoldást. Alkalmazzunk Fourier-transzformációt a hely- 
koordinátára vonatkozóan: 

5 with(inttrans): it load library package 

s diffegn :5 fourier( heatPDE, x, w ); 

[0 ; B 
diffegn :— 3 ourier(ulz, t), z, w) — —w? fourier(u(g, t), z, w) 

Vegyünk föl u(r,0) — T5(r) alakú kezdeti föltételt (ennek ismerjük a Fourier- 
transzformáltját). Ekkor a következő közönséges differenciálegyenletet kell meg- 
oldanunk: 

s ODE :— subs( fourier(u(x, t), x, w) - U(t), diffegn ) ; 


gezz [/ MENNYÉ 
ODE :— 5 UC) — —w? U(t) 


A hozzá tartozó kezdeti föltétel pedig 
s initval :— U(0) - fourier( TrDirac(x), x, w ); 
initval — U(0 —-T 
Ezt a kezdetiérték problémát már gond nélkül megoldja a Maple. 
5  dsolve( ( ODE, initval ), U(t) ); 
U(1) — eb T 


Az eredményt visszatranszformáljuk, föltéve, hogy t 5 0. 


5  assume(t?0): 
s u(x,t) -— invfourier( rhs("), w, x ); 


T.J e-i15) 
1 Vr 


u(m, 1") — 7 6. 


5 simplify("); 
1 Ter 57) 
02 Té 
A Maple-nek nyújtott kis segítséggel tehát tudtunk találni egy megoldást a kez- 
detiérték problémára. A változók szétválasztásának módszere a, másik olyan 


példa, ahol kis tánogatással meg tudja határozni a számítógépes algebrai rend- 
szer a peremérték-problémák megoldásait. 


ul, t) 


17.9.  Parciális differenciálegyenletek Lie szimmetriái 


A Lie szimmetriák módszere a diflerenciálegyenletek tanulmányozásánál fölhasz- 
nálható egyik leghasznosabb technika. A Maple liesymm csomagjában találjuk 
a Lie szimmetria módszer Harrison és Estabrook által kidolgozott formalizmu- 
sának (lásd [35, 96]) alkalmazásához szükséges eszközöket. Ebben a, részben a 
csomag segítségével az 

ut tuuz t uzzz —0 


Korteweg-de Vries egyenlet Lie szimmetriáit határozzuk meg: 
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5 with(liesymm): it load library package 
5 KdV.egn :— Diff(u(l(t,x) ,t) t u(t,x)rDiff(ulrt,x),x) 
. 4 Diff(u(t,x), [x$31)-0; 


KÖV egi sz (éz ult, 2) 4 üt, 2) (Az a (t, Jr z ult, 3) 0 


A parciális differenciálegyenletekre vonatkozó Lie szimmetria módszerek alap- 
gondolata a következő (v. ö. [149, 166, 172]). Az 


w(t, T, u, Uz, Ut, Ugz, Urt, Utt; : . .) 5-0 
PDE Lie szimmetriája olyan 
to tt zu), za Z(t,z,u), u — (u)(t,z, u) 


leképezést jelent, amellyel bevezetett új változók szintén kielégítik az eredeti 
egyenletet. Általában csak Lie szimmetriák egyparaméteres csoportjait szokás 
tekinteni. Ebben az esetben az infinitézimális leképezések a következők: 


tot1 er, 33 nt cet, 439 UT en. 
A PDE változatlan marad, ha teljesül az 
Xw-0 
egyenlet, ahol az X operátor definíciója 
X-T044€02 4 NÖu ere. 


Ebből a tulajdonságból a r, € és 7) ismeretlenekre vonatkozó lineáris homogén 
parciális differenciálegyenletekből álló rendszert kapunk, amelyet determináló 
rendszernek (, determining system") fogunk nevezni. A Maple determine eljá- 
rásával íratható föl a rendszer: 
5  egns[1] :-— determine( KdV egn, V, u(t,x), w ); 
egns1 :— (2 vat, tü) s0 úg V2(t, z kt vat x, u)) 
981 Vr tg 798 LAST 7 RÉT AÚ 


3 fob 


— (zzz V2(t z, u)) 4 V3(t, z, 1) 43 (sőzz 77 V3(t, x, u)), 
ú fo) 

37 V8tt T, u) 5 -u(sz VB T, u)) ÉT? e. V3(t, T, ú)); 

02 [0 fo) 

3 V2t z, u) — 0, — 97 — VI(t, z, u) — 0, 37 VA x, u) — 0, 

3 82 92 

YEGWYi VI(t, z, u) — 0, 3z V3(t, z, u) — 3075. V2(t, z, u)), 
03 0? 

GYEN —— V2(t, T, u) — özön Öö 

93 

Fe az V3(t, z, 1) —-3(és f718t z V2(t, z, u)), 
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fo) [0 0? 
a HA u) —3(77 V2(, x, u)) — (az z VI(t, z, u)), 
93 0? 02 
Szög VI 20) —0, ag L(t, z, u) — 0, —z VI(t. 7, u) — 0, 
fo) 0? 03 
Ja V2(t z, u) — 0, öa a VI(t, z, u) — 0, ög az VI(t, z, u) — 0, 
92 


öz a V2(t, z, u) — Br Szög 3 x, uj) 


Itt néhány jelölésbek kére alkalmaztunk: 
Viloed V2szó. V3Gm 


A determináló rendszert a Maple autosimp eljárásával egyszerűbb alakra hoz- 
hatjuk, sőt, szerencsés esetben akár meg is oldhatjuk. Lássuk, mi történik a 
jelenlegi esetben: 

5  egns[2] :— autosimp( egns[1] ); 


egnsa : () gwherefV2.3(t) — t C5 4 C6, V2.2(t) —tC7- C8, 
VI(t, z, u) — C9 -k 58 07 13C8t, V1.2(t) — C9 -- b C713C8t, 


V3 2(t, 3) — z C7 1 C5, V3.4(t) — C7, V3.5(t) — C5, 
V3.3(t) — —t C7 4 Cy, V3(t, x, u) — u(-t C71 Cy) ts C7 1 CS, 
—tCY—2cC8— C4y — 0, V3 I(t, 2) ——tC7 14 C4, 
V2.I(t, 2) —zr(tC7-t C8)1-tC5 7 C6, 
V2(t,r,u)—zr(tC714C8)14tC5 106) 
A Maple megoldotta a determináló rendszert. A megoldás azonban tartalmazza 
atC7T—C4—2C8 — 0 egyenletet, amely minden t-re csak úgy teljesülhet, ha 
C7 - 0 és C4 — —2C8. Ha elvégezzük ezeket a helyettesítéseket, V1, V2 és 
V3-ra a következő kifejezéseket kapjuk: 
5 egns :— subs( C3-0,C6--2xC4, op(2,egns[21]) ): 


5  select( has, egns, (íVi,V2,V3? ); 
3 
(VI(t, z, u) — C9 4 ii C7-43C8t, 


V2(t, z, u) —z(t 7 08) 4tC5 —2 C4, 
V3(t, z, u) — u(—-tC74Cy)t2C714 CS) 


Olyan szerencsések voltunk, hogy megtaláltuk az általános megoldást: 


T - €9t3ecgt, 
§ — cs-kcst-csz, 
)] z €z— 2cgy. 


Itt cs, cs, cg és cg tetszőleges konstansok. A Korteweg-de Vries (Kdv) egyen- 
let négydimenziós szimmetria, algebráját tehát az alábbi táblázatban fölsorolt 
szimmetriák feszítik ki: 
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Szimmetria Jelentése 


Öt idő eltolás 


07 hely eltolás 
tő, 1 0, Galilei-gyorsítás 
70. 4 3t0; — 240, skálázás , 


17.5. táblázat: A KdV egyenlet Lie szimmetriái 


A fönti Lie szimmetriák előnye abban mutatkozik meg, hogy ha u — f(t,r) a 
Korteweg-de Vries egyenlet megoldása, akkor 


u — f(t—e,T), 
uz — f(t,z— e), 
uz — f(t,T—et)t e, és 
u4 — e ?"f(ett,er"r) 


is megoldás minden valós c-ra. 

Előző sikereink ellenére meg kell jegyeznünk, hogy a Lliesymm csomagnak a de- 
termináló rendszer automatikus megoldásával kapcsolatos képességei a jelenlegi 
implementációban még eléggé korlátozottak. Ezért néha sok manuális számo- 
lásra van szükség. A [101] irodalom érdekes összeállítást tartalmaz a parciális 
differenciálegyenletek szimmetriáinak meghatározására alkalmazható egyéb cso- 
magokról. 


17."0. Gyakorlatok 
1. Mutassuk meg, hogy 


Va? — y? — aln(at Va? —y?) talnyt:—-C 


az 
1 y 


y- /a2 — y2 
differenciálegyenlet olyan implicit megoldása, amely az r-tengely mentén jobbra 
mozgó személy által a hosszúságú kötélen vontatott objektum pályáját írja. le. 


1. Oldjuk meg a következő közönséges differenciálegyenleteket a Maple segítsé- 
gével. Próbáljunk ki különböző módszereket, igyekezzünk a megoldások legegy- 
szerűbb alakját megkeresni. Ellenőrizzük, hogy a Maple megtalálta-e az összes 
megoldást. 


(a) 3y-y" 4 1l6x — 129y?. 


(b) y — 22 — ET 


4 ij 
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(c) 1 —y—ztan (8) 4 


3. Néhány egynél magasabb fokú közönséges differenciálegyenlet is megoldható 
a Maple-lel. Tekintsük a következő két példát. Oldjuk meg az 


(a) y? —y? -0 és az 
(b) 2 4:y—y? 4 ry egyenletet. 


Meg tudjuk-e mondani ezek alapján, hogy a Maple hogyan próbál megbirkózni 
a magasabb fokú differenciálegyenletekkel? 


4. Oldjuk meg a Maple-lel a következő KDE-ket; ellenőrizük az eredményeket: 
(a) zíy" — (252? — Dry 4ty-0. 
(b) 22y" 4 3gy" - (32? — 35)y — 7. 
(c) vtry? —1. 
5. Tekintsük a következő kezdetiérték problémát: 
y —y7-0, y(0)—1, y(0)—0. 
(a) Keressük meg a megoldást Laplace transzformációval. 


(b) Végezzük el újra az (a)-beli számításokat a printlevel változó értékét 
3-ra változtatva. 


(c) Ismételjük meg (a)-t, de most a printlevel változót állítsuk 33-ra. 


6. Számítsuk ki a következő kezdetiérték probléma, Taylor-sorral fölírt megoldá- 
sának első 10 tagját: 
1 


y-yz, 27 -szty,  y(0dD—1, z2(0)9—0. 


7. Tekintsük az Airy-féle differenciálegyenletet: 
y 4gy 7-0. 


(a) Keressük meg az y(0) — 1 és y"(0) — 0 kezdeti értékeknek megfelelő meg- 
oldást a hatványsor módszer segítségével. Milyen 30-nál kisebb fokszámú 
tagok szerepelnek a megoldásban? 


(b) A feladat (a) részében talált hatványsor együtthatói között milyen rekur- 
rens reláció teljesül? 


(c) Határozzuk meg a megoldást az y(0) — 0 és y"(0) — 1 kezdeti értékekre 
hatványsor módszerrel. Milyen 30-nál alacsonyabb fokszámú tagok szere- 
pelnek a megoldásban? 
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8. Tekintsük a Duffing-féle differenciálegyenletet: 
3" 32 ex? — eF cos ut. 


Alkalmazzuk a Poincaré-Lindstedt módszert a KDE azon periodikus megoldá- 
sának közelítésére, amely kielégíti az 


z(0-—-A  :((0-70 


kezdeti értékeket. Milyen eredményt kapunk, ha a többszörös skálázás módsze- 
rét alkalmazzuk, és hogyan viszonyul ez a két módszer a numerikus közelítéshez? 


9. Határozzuk meg a Burgers-féle 
ut Tt uzz t2uuz-0 


egyenlet determináló rendszerét, és számítsuk ki a szimmetria algebráját. 


10. Számítsuk ki az 
te tuz tú-0 


Boltzann-egyenlet determináló rendszerét, és próbáljuk meg kiszámítani a szim- 
metria, algebráját. (Útmutatás: szükségünk lehet a. pdint eljárás betöltésére a 
liessymm/difftools , rejtett" csomagból. ) 


18. 


Lineáris algebra: a linalg csomag 


A fejezetben a Maple mátrixokkal kapcsolatos számításokban fölhasználható 
alapvető eszközeit vizsgáljuk. Az olyan elemi műveleteken túl, mint az összea- 
dás vagy a szorzás, szó lesz , magasabb szintű" számításokról, determinánsokról, 
invertálásról, sajátértékekről és sajátvektorokról is. Áttekintjük a Linalg lineá- 
ris algebra csomag szolgáltatásait. A vektorok és mátrixok speciális kiértékelési 
szabályaival kapcsolatban a 12.6. alfejezetre utalunk. 


18.1. A Llinalg csomag betöltése 


Mielőtt a vektorokkal és a mátrixokkal számolni kezdenénk, célszerű betölteni a 
linalg csomagot, amelyet kimondottan lineáris algebrai számításokhoz állítot- 
tak össze. 

5 with(linalg); 


Warning, new definition for norm 
Warning, new definition for trace 


[BlockDiagonal, GramSchmidt, JordanBlock, LUdecomp, 
ORdecomp, Wronskian, addcol, addrow, adj, adjoint, angle, 
augment, backsub, band, basis, bezout, blockmatriz, charmat, 
charpoly, cholesky, col, coldim, colspace, colspan, companion, 
concat, cond, copyinto, crossprod, curl, defimtte, delcols, delrows , 
det, diag, diverge, dotprod, eigenvals, eigenvalues, eigenvectors, 
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eigenvects, entermatriz, egual, exrponential, eztend, ffgausselim , 
fibonacci, forwardsub, frobenius, gausselim, gaussjord, genegns, 
genmatriz, grad, hadamard, hermite, hessian, hilbert, htranspose, 
ihermite, indezfunc, innerprod, intbasis, inverse, ismith, issimilar , 
iszero, jacobian, jordan, kernel, laplacian, leastsgrs, linsolve, 
matadd, matrix, minor, minpoly, mulcol, mulrow, multiply, norm, 
normalize, nullspace, orthog, permanent, pivot, potential, 
randmatriz, randvector, rank, ratform, row, rowdim, rowspace, 
rowspan, rref , scalarmul, singularvals, smith, stack, submatrir, 
subvector, sumbasis, swapcol, swaprow, sylvester, toeplitz, trace, 
transpose, vandermonde, vecpotent, vectdim, vector, wronskian] 


A csomag betöltése utáni figyelmeztetés arra emlékeztet bennünket, hogy a 
norrn és a trace függvények már korábban is léteztek a Maple-ben, de most a 
rendszer a linalg csomag azonos nevű függvényeivel helyettesítette őket. Va- 
lamely eljárás eredeti jelentéséhez úgy térhetünk vissza, ha explicit módon újra 
betöltjük. Például a norm függvény eredeti definícióját (ti. polinomok normá- 
ja) a következő parancs után érhetjük el: 
5 readlib( norm ); 
proc(p, n, v) ... end 


Töltsük be újra a linalg[norm] eljárást. 
5 with( linalg, norm ); 


Warning, new definition for norm 
[norm] 


A rendelkezésünkre álló függvények fönti listájából világos, hogy elérhető a, leg- 
több ismert mátrixművelet: mátrixok szorzása és összeadása, sor- és oszlop- 
műveletek, Gauss-elimináció és fölső trianguláris alak, mátrixok determinánsa, 
nyoma, inverze, karakterisztikus polinomja, karakterisztikus mátrixa, sajátér- 
tékei és sajátvektorai stb. A linalg egyes függvényeiről az online help nyújt 
részletes tájékoztatást. Ebben a fejezetben egy csomó olyan példát adunk meg, 
melyek a leggyakoribb mátrixokkal végzett számításokkal kapcsolatosak. Még 
több példát közöl [110]. A következő fejezetben a lineáris algebra bonyolultabb 
alkalmazásait tekintjük. A 1linalg számos lehetősége, ezek hasznossága azonban 
leginkább sok gyakorlással ismerhető meg. 


A fejezet során végig föltesszük, hogy az Olvasó betöltötte a Linalg 
csomagot. 


18.2. Új vektorok és mátrixok létrehozása 


A 12.4. alfejezetben leírtak szerint a Maple-ben a vektorokat és a mátrixokat 
tömbökként implementálták, ezért az array eljárás hívásával hozhatók létre. 
Eközben használhatunk olyan indexfüggvényeket is, mint a symmetric vagy a 
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sparse. Alternatív megoldásként használhatjuk a vector és a matrix rutinokat 
is. A vektorok és mátrixok ily módon történő létrehozása különösen akkor 
kényelmes, ha valamely indexfüggvény segítségével rögtön meg is tudjuk adni 
az összes elemet. Néhány példa következik. 


s A :5s array( 1..2, 1..3, [la b,c1,[dde,f1] ); 


ü b e 
A :— 
d e f 
5 B :-— array( sparse, antisymmetric, 1..2, 1..2 ): 
5  B[1,2] :— x: print(B); 
0 2 
-xY 0 
s v :5 vector( [1,2,3] ); 
v :s [1,2,3] 
s. G s natrixi d, 4. (aj) os d (Jad; 
de zek val 
12 4 8 
tv — 
1 3 9 27 
1 4 16 64 


A C mátrix a Vandermonde mátrixok speciális esete; erről a vandermonde 
beépített függvény használatával is meggyőződhetünk. 


5  vandermonde( [1,2,3,4] ); 


44: d 4 
12 4 8 
13 9 27 
1 4 16 64 


A Maple speciális mátrixokkal kapcsolatos további beépített rutinjait a 18.1. táb- 
lázatban soroltuk föl. Részletesebb információkat az online help-ből kaphatunk. 

Az entermatrix eljárás a promptjel ismételt, kiírásával egyenként kéri a mát- 
rixelemeket. 


s M :— array( antisymmetric, 1..3, 1..3 ): 
s  entermatrix( M ); 


enter element 1,2 ? alpha; 
enter element 1,3 ? beta; 
enter element 2,3 ? gamma; 
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va B 

—a 0 9 

sb "egy 0 
Eljárás Mátrix 
JordanBlock — Jordan normálforma 
bezout két polinom Bezout mátrixa 
companion polinom kísérő mátrixa 
fibonacci Fibonacci mátrix 
grad kifejezés gradiensvektora 
hessian kifejezés Hesse mátrixa 
hilbert általánosított Hilbert mátrix 
jacobian vektorfüggvény Jacobi mátrixa 
sylvester két polinom Sylvester mátrixa 
toeplitz listával megadott szimmetrikus Töplitz mátrix 


vandermonde listával megadott Vandermonde mátrix 
wronskian függvények listájának Wronski mátrixa 


18.1. táblázat: Speciális vektorokkal és mátrixokkal kapcsolatos eljárások 


hessianOhessianSzalag- és diagonális mátrixok a band, illetve a, diag eljá- 
rással hozhatók létre. 
5  band( [-1,2,1], 4 ); 


2 1 0 0 
—1 2 t£-0 
0 -I1 2 1 
0 0 -1 2 
5 diag( mu, nu ); 
0 
0 v 
5. diag( te"); 
2 1 000 0 
—1 2 100 ű 
0 -1 2 Tt "070 
0 0 -1I 20 0 
0 0 0040 
0 0 000 v 
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Az utolsó példából az is látható, hogyan hozhatunk létre korábban definiált 
mátrixokból álló blokkos mátrixot a diag segítségével. 


A genmatrix olyan rutinra példa, amely más adatstruktúrából készít mát- 
rixot: a megadott lineáris egyenletrendszerhez tartozó együtthatómátrixot ge- 
nerálja. 


s egns :— ( (c72-i)kx t (c-1i)ry — (1-c)72, 
S (c-1)xx t (c72-i)ky — c-1 b; 


egns  ((2—-1)rt(ec—1)y:(1—9?, (c—Drzt(2-—-1y-ce—1] 


-  genmatrix( egns, [x,y], "flag? ); 
2-1 c-1 (1—o) 


0-1" 6-1 eti 


Ezután mátrixalgebrai eszközökkel megoldhatjuk a rendszert. De miért nem a 
solve-val próbálkozunk? Lássuk, mi történik, ha egyenletrendszerre alkalmaz- 
zuk az eljárást. 


s solve( egns, (x,yb ); 
5 2 fú 0-2 
RÉTET . elet2 


Ez egy megoldás! De ha alaposabban megnézzük a rendszert, észrevehetjük, 
hogy c — 1-re bármely (z, y) megoldás, továbbá a c — 0 vagy a c — —2 esetben 
nincs megoldás. Ha kiszámítjuk a mátrix Hermite normálformáját (O(c) fö- 
lötti fölső trianguláris alakját), nyilvánvalóvá, válnak az előbb említett speciális 
esetek: 


5  genmatrix( egns, [x,y], "flag? ); 
c€-1 c-1 (1—9) 


ec—-i1 6-1 ezi 


5  hermite( ", c ); 
c—1 c€-1 c—1 


0 c€14-62-2c (c41)(c—-1)—1312c—é 


5 map( factor, " ); 
c—1 (ct1)(c—1) c-1 
0  c(ct2(c—1) 2c—2 
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Folytassuk a vektorok és mátrixok generálásáról szóló áttekintésünket. A 
randvector és a randmatrix eljárásokkal véletlen vektorokat, illetve mát- 
rixokat állíthatunk elő. Flexibilis opciók segítségével megadhatjuk a mátrixok 
formáját és az elemek alakját. A mátrix formája a következőkből választható: 
ritka, sűrű (ez az alapértelmezés), szimmetrikus, antiszimmetrikus vagy unimo- 
duláris (azaz 1 determinánsú). Ha entries - f alakú opcionális argumentum 
is szerepel, ahol f valamely Maple eljárás neve, akkor az elemek generálása f 
hívásával történik. Az alapértelmezés szerinti függvény a rand(-99..99), ekkor 
kétjegyű véletlen egészeket kapunk. Elég lesz egyetlen példa. 

5 poly :— proc() randpoly( x, terms-3, degree-3 ) end: 

5 randmatrix( 3, 3, entries-poly, unimodular ); 


1 —55—3729—352 5047972-4-562 
0 1 63--5723— 592 
0 0 1 
Végül, de nem utolsósorban fájlból beolvasott adatok fölhasználásával is lét- 


rehozhatunk mátrixokat. Tegyük föl, hogy az aktuális könyvtárban található 
háromsoros matdata nevű fájl a következő számokat tartalmazza: 


1 2 3 
4 5 6 
7 8 9 


A readdata paranccsal importálhatjuk és mátrix alakban tárolhatjuk ezeket az 
adatokat: 


5  readlib(íreaddata): 


s mat :— matrix( readdata( "matdata", 3, integer ) ); 
1 2835 
mat:-i4 56 
t § § 


Adatok exportálásáról/importálásáról és az alacsony szintű I/O-ról a 4.4. és a 
4.5. alfejezetekben volt szó részletesebben. 


18.3.  Vektor- és mátrixaritmetika, 


Demonstrációs célokra fogjuk fölhasználni a következő mátrixokat: 
s. A rs matrix( 2, 2, la, b, é, a] 2; 
a b 
e d 


A :— 
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5 B :— toeplitz( [ alpha, beta )] ); 
a 
Biz b 
B a 
5 C :5- matrix( 3, 2, (i,j) -2 itj-1 ); 
ú 2 
C5]23 
3 4 


Az utolsó névig történő kiértékelés miatt láthatóan nem lehet az 
5 A 4 B; 
4A4B 


formulával kiszámítani a mátrixok összegét. Ehelyett használhatjuk a matadd 
(matrix addition) függvényt: 
5 matadd( A, B ); 


ata b-tB8B 
ctB dta 


A mátrixokkal végzett számítások leghasznosabb segédeszköze a Maple evalm 
(evaluate using matrix arithmetic) eljárása: 


s evalm( A 4 B ); 


ata b-tB 
ctB dta 
5 evalm( 3xA - 2/75B ); 
2 2 
34—7a 30— 7 


2 2 
3c— 76 34—7a 


Skalárok hozzáadása is lehetséges, ezek a fődiagonális elemeihez adódnak hozzá: 
5 evalm( A - 1 ); 


a—1 b 

c d-—1 
5 evalm( C-t c); 

14c 2 

2 3te 
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Mátrixok szorzására nem használhatjuk a x operátort: ez a Maple-ben mindig 
a kommutatív szorzást jelenti. 


5 AxB t 26BxA; 
3AB 


s. AxA 4 BxCRB; 
A? 34B?C 


Amint látható, a Maple az automatikus egyszerűsítések során nem veszi fi- 
gyelembe az A, B és a C nevek típusát. Ha meg az evalm-mel próbáljuk a 
szorzatmátrixot kiszámoltatni, a Maple nem mindig az általunk helyesnek vélt 
eredményt hozza ki: 


5 evalm( B rk A); 


Error, (in evalm/evaluate) 
use the M£$kt operator for matrix/vector multiplication 


Mátrixok szorzatának jelölésére a £3 szorzásoperátort vagy a multiply eljárást 
kell alkalmazni: 


5 evalm( B fr A ); 
aatBe ab-tBd 
Batac Bbtad 


5 evalm( A fr B ); 
aatBb Batab 
actBd Betad 
A £x szorzásoperátor mátrixok vektorral való szorzásánál is alkalmazható. A 


Maple a vektorokat a szövegkörnyezetnek megfelelően hol sor-, hol oszlopvekto- 
roknak tekinti. 


5 v :— vector( [x,y] ); v :— vector([xi,etal); 
v :— [x,y] 
w :— [€, n] 


s evalm( A fx v ); t v used as column vector 
[az-tby,cr-tdy] 


s evalm( v £r A ); $ v used as row vector 
laz4yc, zb--dy] 


s evalm( v £x w ); ítt mixed situation as inner product 


r€tyn 
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Ha (például pedagógiai okokból) azt szeretnénk, hogy az oszlopvektorokat való- 
ban oszlopformátumban jelenítse meg a rendszer, a következő szokásos trükköt 
alkalmazhatjuk. Először is vessünk egy pillantást a vektorok kiírását végző 
print /array / vector rutinra: 


5  interface( verboseproc-—2 ): 
5  print( "print/array/vector" ); 


proc(A, aname) 
local i n,1]A,v; 
öptións Copyright 1992 by the University Waterloo"; 
i [ op(2,A) J]; 
n op(2,i[11) ; 
14 :s A; 
[ seg( eval(1A[il],1), i-1..n) 1]; 
szék "1A?"—aname, v ); 
end: 


Látható, hogy a Maple a megjelenítéshez egy VECTORK(. . . ) alakú függvény- 
hívást konstruál meg. Csak annyit kell tennünk, hogy ezt utánozva végered- 
ményként a column attributummal ellátott listát hozunk létre. Ettől kezdve a 
Maple a vektorokat oszlopvektorokként írja ki: 


s "print/array/vector" :5 proc(A, aname) 
5 local in, 1A,v, column; 

5 ii L op(2, A) 1; 

S ni op(2,i[1]); 

5 1 :s A; 
5 

5 

s 

s 

5 


f! 1 


[ seg( eval(1A[lil,1), i-i..n) 1]; 
szunt "1A"zaname, v ); 
setattribute( v, column ) 
end: 

print( v ); 


5 evalm( A £r v ); 


pasin 
crtdy 


Mátrixok hatványai a szokásos " operátorral számíthatók ki: 
5  evalm( B"3 ); 

(a 3 8)at2a8 (a 8)B42XB 

(a? 3 8)812a2B (a? B) a 2a pb 


574 18. Lineáris algebra: a linalg csomag 


A map eljárás lehetővé teszi, hogy egyidejűleg egyszerűsítsük az összes mátrix- 
elemet. 


5 map( factor, " ); 
a(a? 138?) B(3a? 1 8?) 
8B(346148?) a(a? 138?) 


A Maple nem csak természetes számokat fogad el kitevőként: ha a mátrix nem 
szinguláris, használhatunk negatív egész kitevőket is: 


5  evalm( B7(-3) ); 


2 Ala a B? 918 4. a? B 
—oa2 aj B? (—a? - 82)? —a2 3 B? (—a2 I B2)? 
918 48 a? B 2 Ala a B? 
—o21 B (aZ 1 B) MENJ (Car B) 
—2 IB" (21 B 
hő evalm( " ézok tart ) 8 


Ügyeljünk arra, hogy a £r operátor után egy szóközt ki kell hagyni, másként a, 
rendszer nem ismeri föl. A terjedelmes outputot nem írattuk ki, de megmutat- 
juk, hogy valóban egységmátrixot kaptunk. 


5 map( normal, " ); it the expected answer 
1 0 
0 1 


Az automatikus egyszerűsítés néha meglepő eredményekre vezet: 
5  evalm( A7O ); 


5  whattype("); 
integer 


Ügyelnünk kell továbbá az operátorok precedenciájára is, mivel a $k prioritá- 
sa megegyezik a x (szorzás) és a / (osztás) prioritásával. Néha szükség lehet 
zárójelek használatára: 


5 evalm( A £xr 1/A ); 


Error, (in evalm/amperstar) 
vtx is reserved for matrix multiplication 


5 evalm( A £xr (1/A) ); 
$zx() 
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A Maple az egységmátrixra a £r () jelölést használja. Az Iprint alkalmazásakor 
jobban látszik, hogy miről is van szó valójában: 


s 1print( A £r 1/A ); 
Nr" (A,1)/A 
s 1lprint( A £r (1/A) ); 


evek" (A,1/A) 


18.4. Alapvető mátrixfüggvények 


A trace és a det függvények a mátrix nyomát, illetve determinánsát számolják 
ki. Alkalmazzuk ezeket a következő Töplitz mátrixra: 


s toeplitz( [1i,2,3] ); 


il 253 
212 
3 2 1 
5 trace(!); 
3 
. det(""); 
8 


A mátrix sor- és oszloprangja, sor- és oszlopvektor-rendszerének, valamint mag- 
terének bázisa könnyen meghatározható: 


5 A :—- matrix( [( [1,0,0,1], [1,0,1,1], [0,0,1,0] J 2); 


100 1 
AzÍilíir 01 ili 
090010 
5  rank(A); 
2 


5  rowspace(A), colspace(A); 


(IL, 0, 0, 1], (0, 0, 1, 0]), ([1, 0, —1], (0, 1, 1] 


5  kernel(4); 
(10, 1, 0, 0], (—1, 0, 0, 1]) 
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Elvileg lehetőség van a karakterisztikus polinom, a sajátértékek és a saját- 
vektorok kiszámítására is, de az analitikus megoldás keresése nem megoldható 
karakterisztikus egyenlet esetében természetesen holtpontra juttathat bennün- 
ket. 


5 A :— matrix( [I [-2,2,31, [3,7,-8], [10,-4,-3] ] ); 


—2 2 3 
A :— 3 7 —8 
10 —-4 —3 


5 cp :5- charpoly( A, lambda ); 
cp :— XM — 24? — 974 7- 282 
A Cayley—-Hamilton tétel azt állítja, hogy az A mátrixot a karakterisztikus po- 
linomjába behelyettesítve zérusmátrixot kapunk. Ellenőrizzük ezt is. 


5  evalm( subs( lambda-A, cp ) ); 


00 0 
00 0 
00 0 


Az A sajátértékeinek meghatározásához meg kell oldani a karakterisztikus egyen- 
letet. 


5  solve( cp ); 


83-24. 5 VT, s ezVörT 


A sajátértékeket egyből megkaphattuk volna a eigenvalues (vagy eigerivals) 
eljárással. 


5  eigenvalues( A ); 


1 1 I 1 
Boz perhez vöri 


A sajátvektorok az eigenvectors (vagy eigenvects) rutinnal számíthatók ki. 


5 eigenvectors( A ); 
: NRNSE 15 1 15 
el, 1377 szt ÜK Í 7 
Hz ata hate hl LÉT Te 4 i H 
$.ű 
-2-2ver 1 ([-; 38 7 ag VT, T, 43 37 H. 


E. (521 
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Eredményül listákból álló sorozatot kaptunk. Minden lista egy sajátértéket, 
annak multiplicitását és sajátalterének egy bázisát tartalmazza. Alapértelmezés 
szerint a Maple gyökös kifejezésekkel írja föl a sajátértékeket. Ezt közvetlenül 
is kérhetjük a radical kulcsszó megadásával. Az implicit kulcsszó hatására 
implicit formában, a RootOf segítségével fölírt értékeket kapunk. Ezekből 
később az allvalues alkalmazásával kiszámíthatjuk az összes sajátértéket. A 
sajátvektorok is kérhetők ilyen RootOf-os alakban. 
5  eigenvalues( A, "implicit? ); 


3, RootOf(.2? 3 .Z — 94) 


5  eigenvectors( A, "implicit? ); 
— 1 
[RootOf(.2? -- .Z — 94), 1, ( e. RootOf( 2? 4 Z — 94) — 2, 11, 
14 31 
5.1. (ő ze 


5 map( allvalues, ["], "dependent? ),; 


I-545 VETT, 1, (z . ezése 
c1-1vam a (Í3t 2 5 EVETT AH B. 1. (lg 561 


Eddig többnyire racionális számokból álló mátrixokkal dolgoztunk. Valójában 
a linalg csomag eljárásai a racionális együtthatós polinomok gyűrűje fölötti 
mátrixokra is alkalmazhatók. De sok eljárásnál még ennél is bővebb osztályok- 
ból választhatjuk az együtthatókat: sokszor komplex vagy algebrai számok, sőt 
algebrai függvények is megengedettek. Az alábbiakban egy Töplitz mátrixos 
példát mutatunk: 


5 A :- toeplitz( [ sagrt(2), alpha, beta ] ); 


aa ég "B 
A :— a 42 a 
B a V2 


5 factor( det(A), sart(2) ); 
(2a? —8B4V2—2)(—V2-- 8) 
charpoly( A, lambda ); 
A — 32424 64-23) —2V2:2VZa ei Ba c Xb BV 
factor( ", sgrt(2) ); 
afö És DAV I 4 HAHA VDEVIEZŐ GÁ 


5 TEK E A ); 


vV2- 8, - Br 342 3 ve rőéB, 284V2-5VBETBa 


v 


v 
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5 eigenvectors( A ); 


1 1 
Farva sa (4-2, 
584591 


1 1 
58rv2- 591, 1 (1-2— 2, 1]. 
[2 — 8, 1, ([-1, 0, 114 
901 :— VB? 48 a2 
Némely függvények azonban nem engedik meg a lebegőpontos számok és a szim- 
bolikus kifejezések egyidejű használatát. 
s A :— map( evalf, A ); 


1.414213562 a B 
A :— a 1.414213562 az 
B a 1.414213562 


5: eigenvectors( A ); 


Error, (in linalg/evalf) 
matrix entries must all evaluate to float 


A hibajelzés azt sugallja, hogy a Maple valamilyen numerikus sajátértékszámító 
rutinra szeretett volna áttérni, de ez nem sikerült, mivel a mátrix szimbolikus ki- 
fejezéseket is tartalmaz. Ilyen esetekben a következő trükkhöz folyamodhatunk: 
a lebegőpontos számokat racionálisakká konvertáljuk, elvégezzük a számításo- 
kat, végül numerikusan kiértékeljük az eredményt. 


5 Digits :— 4: tf low precision for display reasons 
s A :- map( convert, A, rational ); 
5: ő 
A:—-][ a ks a 
41 
B a 29 


5 eigenvectors( A ); 


ÉS gal l, 1-1, 0, 1]j], 
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29 , 29 29 , 29 
4 1, 1 1 99—-78l  í78-z" 


91: VB? 1802 


5 map( evalf, ["] ); 


[[1.414 — 1. 8, 1., ([-1., 0, 1.]), [1.414 -- .5000 8 -k .5000 941, 1., 


14.50 8 esve alsz 1., 01724 14.508 Les jú HI, 


í [01724 


[1.414 -- .5000 8 — .5000 71, 1., 
( 01724 14.50 8 — 14.50901 
: a 


961 :— 4/B2 18. 02 


, 1., .01724 


s] 


14.50 8 — 14.50 ai 
az 


A 18.2. táblázatban a linalg csomag használatakor rendelkezésünkre álló alap- 
vető függvényeket tekintjük át. 


Eljárás A kiszámított objektum 


adj, adjoint a mátrix adjungáltja 
charmat a karakterisztikus mátrix 
charpoly a karakterisztikus polinom 

cond a mátrix kondíciószáma 

det a mátrix determinánsa 
eigenvalues, eigenvals a mátrix sajátértékei 
eigenvectors, eigenvects a mátrix sajátvektorai 
hadamard a Hadamard-féle korlát 
htranspose a mátrix Hermite-transzponáltja 
inverse a mátrix inverze 

kernel a mátrix magtere 

minor a mátrix minora 

minpoly a mátrix minimálpolinomja 
permanent a mátrix permanense 

rank a mátrix rangja 

singularvals a mátrix szinguláris értékei 
trace a mátrix nyoma 
transpose a mátrix transzponáltja 


18.2. táblázat: A linalg csomag alapfüggvényei 
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18.5. A mátrixok struktúrájával kapcsolatos műveletek 


A Maple sok olyan függvényt tartalmaz, amelyekkel a mátrixok struktúráján 
végezhetünk műveleteket. Ezeket soroljuk föl a 18.3. táblázatban. 


Eljárás 
addcol 
addrow 
augment, concat 
blockmatrix 
col 
coldim 
copyinto 
delcols 
delrows 
extend 
mulcol 
mulrow 

TOW 
rowdim 
scalarmul 
stack 
submatrix 
subvector 
swapcol 
SWADPTFOW 


Jelentése 


a mátrix két oszlopának lineáris kombinációja 
a mátrix két sorának lineáris kombinációja 
mátrixok vízszintes összekapcsolása, 

blokkos mátrix létrehozása 

oszlop(ok) kivonása vektor(ok)ként a mátrixból 
a mátrix oszloprangjának kiszámítása 

elemek átmásolása egyik mátrixból másikba 
mátrix oszlopainak törlése 

mátrix sorainak törlése 

a mátrix (méretének) megnövelése 

a mátrix oszlopának szorzása adott kifejezéssel 
a mátrix sorának szorzása adott kifejezéssel 
sor(ok) kivonása vektor(ok)ként a mátrixból 

a mátrix sorrangjának kiszámítása 

mátrix vagy vektor szorzása kifejezéssel 
mátrixok vagy vektorok függőleges összekapcsolása 
mátrixból részmátrix kiválasztása 

mátrixból részvektor kiválasztása 

a mátrix két oszlopának fölszerélése 

a mátrix két sorának fölszerélése 


18.3. táblázat: Strukturális műveletek 


A linalg csomagban vannak olyan függvények is, melyek azt ellenőrzik, hogy 
az adott mátrix benne van-e valamely speciális osztályban, vagy meghatározott 
kapcsolatban áll-e egy másik mátrixszal. 


Eljárás 


Mit tesztel 


definite 
egual 
issimilar 
iszero 
orthog 


pozitív (vagy negatív) definit mátrix 
mátrixok egyenlősége 

mátrixok hasonlósága 

zérusmátrix 
ortogonális mátrix 


18.4. táblázat: Mátrixok tesztfüggvényei 
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Elég lesz két példa. Kiindulásul vegyünk egy Jordan-féle blokkot és egy ugyan- 
olyan dimenziós egységmátrixot: 


s J :— JordanBlock(2,4); 


2 100 
Tsz 0210 
GÜ 41 
0 0 0 2 
5 Id :— band([1],49; 
1000 
I — 0 10 0 
0.-0y4,0 
0001 
Egyesítsük vízszintesen a két mátrixot. 
, augment( J, Id ); 
001000 
2 100100 
021000 
0020001 


A gaussjord eljárással fölső trianguláris alakra hozzuk a mátrixot: 


s  gaussjord("); 


1 —-i "1 -I 
10007 7 z 
1 -1 1 

0100 07 — 
1 —-I1 

1 sp eg 

0 0 00 0 3 7 
1 

000100 0 5 


A jobboldali 4 x 4-es részmátrix az eredeti Jordan-blokk inverze. 


s Jinv :— submatrix( ", 1..4, 5..8 ); 
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L. dd szi 
2 4 8 16 
1 —1 1 
: 7" § gő 
Jiny :— 
0 ú 2 d 
2 4 
1 
0 0 0 5 
5 egual( Jinv, inverse(J) ); 
true 


A második példa a tesztfüggvények használatát demonstrálja. Tekintsük a kö- 
vetkező két mátrixot: 


s A :5 matrix( [ 
[ (sgrt(5)tsgrt(2)tsgrt(5-sgrt(5)) 41) /4, 
-sgrt (2) tsagrt(5-sgrt (5) ) /2 ] , 

L sart(2)rsagrt(5-sgrt (5) ) /4, 
(sgrt(5)-sart (2) rsart(5-sgrt(5))r1)/4 1 1] ); 


MVT ZONA 


1 1 1 1 
jv643xit7 bi 

A sz í 
271 


704 s V24V5-—-v5 
B :-— matrix( [ 


C (sgrt(5)41)/4, -sgrt(2)tsgrt(5-sgrt (5) ) /4] , 
s CL sgrt(2) tsart(5-sagrt(5))/4, (sart(5)t1)/4 1 1] ); 
1 


2v5a2  -gv2v5szvő 


2 V2V5- 45 2543 


Belátjuk, hogy ezek a mátrixok hasonlóak, vagyis létezik olyan T nemszinguláris 
mátrix, amellyel B-T AT7!. 
5 issimilar( A, B, ?T? ); 


VvVV 


B: 


5 T :-— map( simplify, T ); 


1 0 
4 
5 egual( B, 


5 map( simplifíy, evalm( T £r A £r inverse(T) ) ) ); 
true 
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B valójában ortogonális mátrix. 
5 orthog( B ); 


true 


Ez a mátrix az óramutató járásával szembeni £ nagyságú szöggel való elforgatást 
reprezentál. 


18.6.  Vektorműveletek 


A következő vektorműveletek állnak rendelkezésünkre. A vektoranalízisből vett 


példákat a 19.4. alfejezetben találhatja meg az Olvasó. 


GramSchmidt 
angle 

basis 

colspace 
colspan 
crossprod 
curl 

diverge 
dotprod, innerprod 
intbasis 
laplacian 
norm 
normalize 
nullspace 
potential 
rowspace 
rowspan 
sumbasis 
vecpotent 
vectdim 


A kiszámított objektum 


vektorok Gram-Schmidt ortogonalizálása 


vektorok szöge 
vektortér bázisa 
mátrix oszlopterének bázisa 


mátrix oszlopterét kifeszítő vektorok 
vektorok külső (vektoriális) szorzata 


vektor rotációja 
vektorfüggvény divergenciája 
vektorok belső szorzata 
vektorterek metszetének bázisa 
kifejezés Laplace-operátora 
vektor vagy mátrix normája 
normalizált vektor 

a zéróaltér bázisa 

vektormező potenciálja 

mátrix sorterének bázisa 
mátrix sorterét kifeszítő vektorok 
vektorterek összegének bázisa 
vektor potenciálja 

vektor dimenziója 


18.5. táblázat: Vektorműveletek 


18.7. . Mátrixok normálformái 


A Maple-ben a mátrixok különböző normálformáival kapcsolatos lehetőségek is 
találhatók, melyeket a 18.6. táblázatban sorolunk föl. Néhány példa alapján 
jobban meg tudjuk ítélni ezek hasznosságát. 
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Eljárás Normálforma 
LUdecomp LU dekompozíció 
ORdecomp 02.R dekompozíció 
cholesky Cholesky dekompozíció 
exponential mátrix exponenciális 
ffgausselim törtmentes Gauss-elimináció 
frobenius, ratform — Frobenius (racionális kanonikus) normálforma 
gausselim Gauss-elimináció 
gaussjord, rref Gauss-Jordan forma 
hermite egyváltozós polinomok fölötti Hermite normálforma 
ihermite egészek fölötti Hermite normálforma 
ismith egészek fölötti Smith normálforma 
jordan Jordan normálforma. 
smith egyváltozós polinomok fölötti Smith normálforma, 


18.6. táblázat: Mátrixok normálformái 


A Frobenius, Gausselim, Gaussjord, Hermite és a Smith függvények a 
táblázatban fölsorolt kisbetűs függvények tétlen (inert) változatai. Ezeket véges 
testek vagy algebrai (függvény)testek fölötti számításoknál célszerű alkalmazni. 


:414 


Első példánk a következő mátrix LU dekompozíciójának meghatározása: 


Baker 
4A—Í4 5 1 
1 4, -I1 


Olyan L alsó trianguláris és U fölső trianguláris mátrixot keresünk, amelyekkel 
A - PLU valamely P permutációs mátrixra. 
5: A :- matrix( [[0,-1,-3], [4,5,1], f(1,4,-i] ] ); 


0 —-1 —3 
Asstaáa 5 "§ 
1 4 —1 


5  LUdecomp( A, L-?1?, U-?u?, P-?p? ): 
5 P - eval(p); 


0 
P-1100 
0 1 
5 L -— eval(1); 
1 0 0 
írat § : allátalli ! 
He 
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5 U- eval(u); 


4 5 1 
U-10 —-1 -3 
19 
séták ú 
5 egual( evalm( p gr 1 £r u ), A ); 
true 


Az A pozitív definit mátrix Cholesky-dekompozíciója olyan L alsó triangulá- 
ris mátrix, amelyre A — LL!. A Maple-lel kiszámítattjuk a következő mátrix 


dekompozícióját. 
5 A :— matrix( [ £5,-2,2], [-2,5,1], (2,1,2] ] 2); 
b ag 2 
4Az]-2 51 
2 12 
s L :-— cholesky( A ); 
v5 0 0 
2 1 
.— ] ——VvV5 -vIl 
se 5 5 05 0 
276 28 Zen 
5 35 7 
5 egual( L £xk transpose(L), A ); 
true 


Legyen A(x) testfölötti polinomokból állló mátrix. Ekkor léteznek ezen test 
fölött olyan P és 2 mátrixok, amelyekkel 


A — P diag(a1(7), a2(T), . . . , ax(m), 0,0,...,0) 0, 


ahol az a; polinom osztója a;41-nek. Az a;-ket invariáns tényezőknek nevezzük; 
ezek a test nemnulla elemeivel való szorzás erejéig egyértelműek, és a k számot 
is egyértelműen meghatározza az A(r) mátrix. A diagonális mátrixot az A(x) 
Smith normálformájának hívjuk. Tekintsük a Olr] fölötti következő mátrixot: 


s A :5 matrix( [ [1,0,-1,1], [-1,xt1,-x,-x-2], 
p-j [-1,xt1, 2rx7342rx72-3rx-2, 2rx734t2rx72-3rx-4] , 
bi [0,-x-1,2kx7342krx72-x-1,2rx"7312rx72-x-1]) ] ); 
d 0 —1 1 
-1 2-1 —g —g — 2 
A sz 
-1 zí61 2773272—31—2 27?13272—37—4 


0 —3-—-1 27?42277-s—-i  2794247-s-i1 
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A Smith normálformát a következő Maple paranccsal kapjuk: 
5 § :— smith( A, x, ?V?, ?V? ); 


1 0 0 0 
0 311 0 0 
hol 
0 0  323432329—-1-1 0 
0 0 0 0 
Ellenőrizzük az eredményt. 
s P :5 inverse( U ); 
—1 
1 —3-443g? 4 — 
t4áx 5 
1 
2 pe ügát ap 
P :— adi 
—1 0 0 0 
0 —-1 0 
5 0 :-— inverse( V ); 
1 —-:—1 —237—213243T1142 —27?—232 13714 
0 1 1—22? 1—22? 
íj 
0 —1 222 27? 
0 0 0 1 


5  egual( map( expand, evalm( P £r S £r 0 ) ), A ); 
true 


Most tekintsük A(x)-et F2 Ír] fölötti mátrixnak, vagyis számoljunk modulo 2. 
s A :- map( "mod", A, 2 ); 


1 0 1 1 

1 3711 ű x 
A :— 

1 3-1 xv x 

0 2141 zti1 2rx711 


5 Smith( A, x ) mod 2; 


:t1 


mm 6 G Hi 
oO 

a EZ AR 

ta B mm 
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Figyeljük meg, hogy ez nem ugyanaz, mintha először kiszámolnánk a Olrz] fölötti 
normálformát, és erre alkalmaznánk moduláris aritmetikát. 


5 map( "mod", smith( A, x ), 2 ); 


10 0 0 
01 0 0 
0 0 3410 
00 0 0 


Ugyanez a jelenség előfordul a többi normálformával kapcsolatban is. Határoz- 
zuk meg ezeket az utóbbi A mátrixra. 


5 A -— eval(A); 


1 0 1 1 
1 zx711 

d x x 
1 3711 x x 
0 zt1 rxi11 :x711 


5 F :-— frobenius( A, ?P? ); tt over 0(x) 


00 0 0 

1 0 0 27127 
FE 

0 1 0 —-—423—2 

0 0 1 327713 


5  egual( map( normal, evalm( P £r F £xr P7(-1) ) ), A ); 


true 


5 F :— Frobenius( A, ?P? ) mod 2; t over F 2[x] 


0 0 0 0 

1 0 0 0 
EF iz 

0 1 741 0 

0 0 0 0 


Ellenőrizzük az eredményt: 


5  map( Normal, evalm( P £x F £xr (Inverse(P) mod 2) ) ): 
5  egual( map( mod" ,",2), A ); 


true 
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H :-— map( expand, hermite( A, x, ?T? ) ); tt over O[x] 


1 0 0 0 

0 zt41 00 
HE 

0 0 1 1 

0 0 0 0 


egual( map( expand, evalm( T £r A ) ), H); 
true 
H :- Hermite( A, x, ?"T? ) mod 2; t over F 2[x] 
ú 0 1 1 
0 Sti ü41 411 
0 0 0 0 
0 0 0 0 


H :z 


egual( map( "mod", evalm( T gr A ), 2 ), H); 
true 


gausselim(A); $ Gaussian elimination over Z(x) 


1 0 1 1 
Ű z41l 2-1 x-i1 
0 0 2 2 
0 0 0 0 


ffgausselim(A); ítt fraction-free Gaussian elimination 
1 0 1 1 
0 ti mi vw-l 
0 0 2427 2422 
0 0 0 0 


Gausselim(A) mod 2; $ Gaussian elimination over F 2Íx] 
1 0 1 1 
0 41 z-il rtl 
0 0 0 0 
0 0 0 0 
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s gaussjord(A); tt Gauss-Jordan form over 0(x) 


00 


0 
1 
0 
0 


EPO OO e 


0 0 
1 1 
0 0 


5 Gaussjord(A) mod 2; tt Gauss-Jordan form over F 2(x) 


10 11 
0 1" 4-1 
0 0 0 0 
000 0 
18.8. Gyakorlatok 
1. Tekintsük a következő mátrixokat 
1 0 2 —3 2 
A-—Í 2 -1 3 ], B — 0 1 
4 1 8 tt 4 


és számítsuk ki az alábbi kifejezéseket 
(a) AT! , 
(b) AAt, 
(c) BtAB, 
(d) (244 BB?) At. 


2. Számítsuk ki a [cos z, sin z, ez] függvényekből álló lista Wronski mátrixát és 
a mátrix determinánsát. A [cosh z, sinh z, e?) listával is végezzük el ugyanezeket 
a számításokat. 


3. Hozzunk létre véletlenszerűen választott egész együtthatós polinomokból ál- 
ló 5 x 5-ös mátrixot. A polinomok legföljebb negyedfokúak legyenek, és három 
(nemnulla) tagot tartalmazzanak. Számítsuk ki a karakterisztikus polinomot, 
és ellenőrizzük a Cayley—-Hamilton tétel érvényességét a fő változója szerint 
gyűjtött alakra hozott karakterisztikus polinomba behelyettesítve a mátrixot. 
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Számoljuk ki a karakterisztikus polinom Horner-elrendezéses alakját is, és ellen- 
őrizzük a Cayley-Hamilton tétel érvényességét a polinom Horner-elrendezéses 
alakjába behelyettesítve a mátrixot. Hasonlítsuk össze a műveleti időket. 


4. Tekintsük az 
—4 —7 0 —2 -1 —2 
A — 0 4 2 és a B — 2 2 —-—2 
—5 —7 1 0 0 1 


mátrixokat. Mutassuk meg, hogy A és B hasonlóak, és számítsuk ki a megfelelő 
transzformációs mátrixot. 


5. Legyena,bE R, 0 £ a c I, b? — 2a(1 — a) és 
a a—1 b 
4A-— I a-1 a b § 
-b -b 2a-1 
(a) Ellenőrizzük a Maple-lel, hogy A 1 determinánsú ortogonális mátrix. 


(b) (a)-ból következik, hogy A az R? standard bázisával leírható elforgatásnak 
felel meg. Határozzuk meg az elforgatás szögét. 


6. Legyena be R és 


0.4 10 8 
100 Db0 
A—-I0O1bo0l1 
b 0010 
0b10Db 


(a) Az a és b mely értékeire szinguláris az A mátrix? 


(b) Határozzuk meg A inverzét (azokra az a és b értékekre, amelyekre A in- 
vertálható). 


7. Számítsuk ki a következő determinánsokat: 


3341 x 0 0 
z x241 x 0 
(a) det 0 x 3731 z ; 
0 0 Tx r31 
3731 x 0 0 0 
x 3231 x 0 0 
(b) det 0 mm o a2A4l 0 
0 0 z 3241 x 
0 0 0 z 3241 
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(c) Az (a) és (b) feladatok eredményét látva van-e valami ötletünk arra, hogy 
az ilyen alakú általános mátrixnak mi a determinánsa? Ha igen, akkor 
ellenőrizzük sejtésünket a 8 x 8-as esetre. Ha nem, akkor számítsuk ki a 
6 x 6-os és a 7 x 7-es determinánsokat is, hátha ezek alapján észreveszünk 
valami törvényszerűséget. 


8. Minden n természetes számra, definiáljuk a következő Án n x n-es mátrixot: 


: sss ze 105 Hát, 
Aatisj)  ( 1 haiz j. 


Hajtsuk végre a következő számításokat az n — 3, 4 és 5 értékekre. 
(a) Számítsuk ki An determinánsát. 
(b) Számítsuk ki An karakterisztikus polinomját. 


(c) Határozzuk meg An összes sajátértékét és az egyes sajátértékekhez tartozó 
sajátalterek egy-egy bázisát. 


9. Minden n természetes számra definiáljuk a következő Án n x n-es mátrixot: 
An(i, j) — ged(i, j). 
(a) Számítsuk ki az An mátrix determinánsát n — I, 2, . . . , 15-re. 


(b) Próbáljunk zárt formulát találni az általános esetre (inkább matematiku- 
sok számára ajánlott). 


10. Határozzuk meg az [50]-ből vett következő mátrix LU dekompozícióját: 


6 2 1 -I 
241 0 
AS9 § $ d. at 
-1 0 —-1 3 


11. Legyen A a kételemű test fölötti következő mátrix: 


00010 
00101 
4—-100001 
10010 
01000 


Határozzunk meg olyan F? fölötti 7 transzformációs mátrixot, amellyel T7!AT 


(a c) 


alakú, ahol B az IF. fölötti 2 x 2-es, C pedig az F2 fölötti 3 x 3-as mátrix. 


SA sag UTÁ fedezet ionok 0. a 61 71 
19 get íz 294 ari e Űj 41 
4 lo Avant Az5 cat me JAN a GNP ne 
reg d A teas Ta 7 kesnz ÁvA 
vorvedtegy aetsára E hizütíés a 
ú E MVe ATA e a B Ő Ap ÜT ével gay 0 ly erdgáí 
hát Ji l 144 A 
ce 1 
A . 
at We 4.6 han "ny tája Tea 1. erett éig 
z A 9 4 $z 
48 eg 07.14 ea e ú) 4 7 szgfed 
vel 
464 (see 2 tr 4 ma Jrts [ 9 ANE 46 Zs! 
Me NT ES, rea th Ve VE 
geg akazár zati aa NNsbáetak a ALT S he keze eaz le egesze E 
te. ülta 5strAjetb 
TE e ad Na yea talent a JA db e E én 
í Ell) ag py ú s 


NESZE T YT TE TLTYY FS HL ÉR TTV ELV ENSEL TS IT T1 tet LL tg EN DÓ 
satalitákű wininr ve ve 


199 ún szzátowabr EN da ee Aocsüka gőz Osz gattÉ 4144 öagragt dot va ÉL. 0 


(4, 99; 


! ! 1 5 a 
A [) vy b űj 
í n hn e ; 
, í . 


- í f 4 EZORTS SY ad ad 
fa a ú 4 
fer úg 51 
4 4-tj 9 Ld 
(Za ! 
Nt dl 42 1.9 AN en dér 
f 4 kat 
? 3) ] 
he JA NN KG É- és § ( Reál 0! 


he. 


A lineáris algebra alkalmazásai 


A fejezet a mátrixokkal kapcsolatos számításokat a következő öt gyakorlati pél- 
dával illusztrálja: 


e a Stanford manipulator kinematikája, 

e az emberi test kadmium-fölvételének háromszakaszos modellje, 
e a molekula-pályák Hückel-féle elmélete, 

e vektoranalízis és 


e a Moore-Penrose általánosított inverz. 


Minden szekcióban föltesszük, hogy a Llinalg csomagot előzetesen betöltöttük. 


19.1. A Stanford manipulátor kinematikája 


Az alábbi mátrixok az úgynevezett Denavit-Hartenberg mátrixok, melyeket a 
robotmanipulátorok kinematikájának vizsgálatánál alkalmaznak. Tulajdonkép- 
pen a Stanford manipulátort definiáló Ai1, Aa, . . . , As mátrixokat fogjuk hasz- 
nálni (lásd [98]). A további Maple szekciókban a cl — cos91,c2 — cos07,. . . 
továbbá az s1 — sin 81, 52 — sin 02, . . . rövidítésekkel dolgozunk. 

5 alias( seg( c[il - cos(thetalil]), i-1..6 ), 

s seg( slil - sin(theta[i]), i-1..6 ) ): 

5 M :- (a,alpha,d,theta) -- matrix( 4, 4, [cos(theta), 

s -sin(theta) kcos (alpha) , sin(theta) tsin(alpha) , 
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akxcos(theta), sin(theta), cos(theta) tcos (alpha) , 
-cos(theta) tsin(alpha) , atsin(theta), 0, sin(alpha) , 
cos (alpha), d, 0, 0, 0, 1] ): 

M(a,alpha,d,theta) ; 


cos(9)  —sin(0) cos(a)  sin(9)sin(a)  acos(0) 
sin(9) — cos(9) cos(a)  —cos(9)sin(a) asin(0) 
0 sin(a) cos(a) d 
0 0 0 1 


í link length 

a :- vector([0$6]): 

tt link twist 

alpha :-— vector([-Pi/2,Pi/2,0,-Pi/2,Pi/2,0]) : 
tt offset distance 

d :— vector([0$6]) : 

af2] :- evaln(d[2]): a[3] :— evaln(a[3]) : 

$t joint angle 

theta :— vector(6): theta[3] :— 0: 

for i to 6 do 

Ali] :-— M( ali], alphalil, dlil, thetalil] ) 
od; 


Gi 0 seggi a d 


0 
51 0 a 0 
0 
1 


Az - 
0 -1 0 
0 0 0 
C2 0 52 0 
S2 0 -c2 0 
Az Es 2 2 
1 0 da 
0 0 1 
1 0 0 
0 10 0 
Az tesen 
0 0 1 dz 
000 1 
C4 0 —S$S4 0 
0 c 0 
Ax sát §4 4 
0 -1 0 0 
0 0 0 1 
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cs 0 sz 0 
sz; 0 -cs 0 
dl s 5 5 
1 0 0 
090 0 1 
C6 — 86 
As :— 


0 § 

6 § 
2 ti GZ 
B BO OO oO 


[o 
o 


A manipulátor csúcsának helyzetét és irányát a Denavit—Hartenberg paraméte- 
rek határozzák meg: az A1, A2, . . . , As mátrixot szorzatát kell vennünk. 


s Tip :— evalm( "gx"( seg( Ali], i-i..6 ) ) ): 


Nézzük meg a bal fölső sarokban álló elemet: 
5 collect( Tipl1,11, [cli],c[21,s[1]1] ); 


((c4 €5 €6 — S4 86) C2 — S2 55 €6) Ci t (—S4 Cs €6 — €4 56) S1 


Ez megegyezik a [155]-ben található 2.55. képlettel. Ilyen mátrixoknál a kézi 
számoláshoz jóval több idő kellene, és a hibákat is nehezebb lenne elkerülni. A 
számítógépes algebrai rendszer gond nélkül ledarálta! a szimbolikus számításo- 
kat. 


A [81] irodalomban arra találhatunk példát, hogyan segíthet a számítógépes 
algebra, az inverz kinematikai feladat megoldásában. (Itt a link paraméterek 
olyan értékeinek meghatározása a feladat, amelyekkel a robotkar adott pozícióba 
és irányításba vihető át.) 

Ebben a részben az eredeti kinematikai problémát, még pontosabban a Stan- 
ford manipulátor csúcsának sebességét vizsgáljuk. Ha a robotkar fizikai para- 
métereit (a da és a dz értékeket) rögzítettük, a robotkar csúcsa a 91 , 02, 04, 05 és 
a 04 függvényeként adható meg. A csúcs v transzlációs és w forgássebességét a 
92,02.04,05 és a 0 függvényében írjuk föl. Először szétválasztjuk a csúcs po- 
zícióját és irányítását megadó mátrix T transzlációs és R rotációs részét. Ezt 
könnyen megtehetjük a subvector és a subrnatrix eljárások segítségével. 

s T :- subvector( Tip, 1..3, 4 ); 


T :— [ci 52 da — s1 da, s1 52 d3 - ci do, ca d3] 


lAngolul a ,number cruncher", ,symbolic cruncher? kifejezéseket szokták ilyen esetekben 
használni. (A Fordító megjegyzése.) 
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5 R :-— submatrix( Tip, 1..3, 1..3 ): 


A transzlációs- és a forgássebességre vonatkozó információkat a 


saf a ása 
JP? JY ... JY 


Jacobi mátrix tartalmazza, ahol J — ( J? J9 ... J§ ) annak a vektorfüggvénynek 


a Jacobi mátrixa, amely a 91, 92, 94,05 és a 06 kinematikai paramétereket képezi 
le a T transzlációs részmátrixba. A J7-k 


alakú 3 x 1-es vektorok, amelyek komponenseit a, 


0 —Wz Way: 

OR 8 yi 
09; ü RT S 92; 0 Sz teg 

" —Wy Wa; 0 


összefüggésekből kapjuk. Először tekintsük a transzlációs részt. A linalg cso- 
mag tartalmazza a vektorértékű függvények Jacobi mátrixát kiszámoló jacobian 
eljárást. 


5 Jv :5- jacobian(T, 
ös [theta[1] , tneta[2] , tneta[4] , theta[5] , theta[6]] ); 


—§1 §2 d3 sagák d2 Ci C2 d3 00 0 
Jár ci 52 d3 — s1 d2 s1c2dz 0 0 0 
0 —s2dz3 0 0 0 
Ezután a csúcs forgássebességét tekintjük. A — deriváltak meghatározását a 


JU; 
diff eljárásnak az összes mátrixelemre való leképezésével végezhetjük. 


5 Ri :- map( diff, R, theta[1] ): 
5  R2 :- map( diff, R, theta[2] ): 
5  R3 :- map( diff, R, theta[4] ): 
5  R4 :- map( diff, R, theta[5] ): 
5 R5 :- map( diff, R, theta[6] ): 


Mátrix transzponáltját (egyáltalán nem meglepő módon) a transpose eljárással 
képezhetjük. 

5  Rtranspose :— transpose( R ): 
Most már minden rendelkezésünkre áll a JV, J9, ..., J9 mátrixok kiszámítá- 
sához. Példaként a Jf-ra kapott eredményt mutatjuk meg: 


5  evalm( R1 £r Rtranspose ): omega :— map( simpliíy, " ); 
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0 -1 0 
w:: 11 0 0 
0 00 


5  Jomega[1] :— vector(Lomega[3,2] , -omega[3,1] , omega[(2,1]1]) ; 
Jomega, :— [0, 0, 1] 
Az összes többi vektort megkaphatjuk egyetlen ciklusutasítással. Befejezésül a, 
concat vagy az augment eljárással rakhatjuk össze a kívánt J részmátrixot: 


5 for i from 2 to 5 do 


s evalm( R.i £r Rtranspose ): 
5 omega :- map( simplify, " ): 
5 Jomegalil :— vector( [ omega[3,2], -omega[3, 1] , 
s omega[2,1] ] ): 
5 print( Jomegalil-eval(Jomegal[i]) ) 
5 od: 
Jomega; — [-s1, c, 0] 
Jomegasz — [ci 52, 51 52, ca) 
Jomega4, — [/ci c2 54 — S1 €4, —S1 €2 54 C1 Ca, S4 52] 
Jomegaz — [- S1 5554 t C1 52 C5 t C1 C4 C2 55, 
$S1C4C2S5 Tt C1 5554 Tt 51 582 Cs, —S2C455 t C2 cs] 

s Jomega :— concat( seg( eval(Jomega[i]), i-1..5 ) ): 


A linalg csomag stack eljárásával helyezhetjük el egyetlen mátrixba egymás 
alá a J transzlációs és rotációs részét: 
5 J :-— stack( Jv, Jomega ); 
—s$1 52 d3 s Ég d2 C1 C2 d3 0 0 0 
Ca 52 d3 — s1 d2 S1 C2 d3 00 0 
0 — §3 d3 0 0 0 


J iz 
0 —-si c1iSs2 —cIC2Ss4—S1C4 — 518384 -bC1S52Cs-C1C4C2S5 
0 ci 5152 —S51C254-tCi1C4 §51C4C255-tC1S$554-b 5152 Cs 
1 0 cs s$s482 —S52C€455-tkC2Cs5 


Tekintsük a Jacobi mátrix transzlációs részét: 
5 print( Jv -— eval(Jv) ); 


—§$1 52 d3 0 d2 Ci C2 d3 00 0 
Jüz Ci 52 d3 kaznd d2 $1 C2 d3 00 0 
0 —82 d3 00 0 
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A. mátrix maximális rangja kettő. Ha valamely kinematikai paraméter-értékekre 
a rang ennél kisebb, azt mondjuk, hogy a manipulátor szinguláris állapotban 
van. A szinguláris állapotok a robotkar tiltott konfigurációi. Próbáljunk ilyen 
paraméter-értékeket keresni. Mi történik, ha s2 — 0 (vagyis 02 ec (0,7b)? 
5  subs( s[(2]-0O, eval(Jv) ); 
—ci d2 C1 c2 dz 00 0 
—s1 d? si1cadsg 0 0 0 


0 0 00 0 


5  submatrix( ", 1..2, 1..2 ); 
—cid2 C1c2dz 


51 d2 §1C2 d3 


Ennek a részmátrixnak a determinánsát a det-tel számíthatjuk ki: 


5 det(9; 
0 


A rang tehát kisebb kettőnél, és a manipulátor szinguláris állapotban van. Ha 
52 7 0, elemi sorműveletekkel vizsgálhatjuk a soralteret. Például az addrow 
eljárással a harmadik sor c2c152-szeresét hozzá tudjuk adni az első sorhoz: 


5  addrow( Jv, 3, 1, c[2]rc[11/s[2] ); 


—§$1 s2 d3 ei d2 0 00 0 
C1 52 d3 7 81 d2 §1 €C2 d3 0 0 0 
0 —82 d3 00 0 


5 addrow( ", 3, 2, s[ilxrc[21/s[2] ); 
—s$1 52 dz3 — ci d2 0 090 0 
ci 52 dz — s1 d2 0 00 0 
0 —s2d3s 0 0 0 


A rang akkor és csak akkor kisebb kettőnél, ha az első oszlop zérus: 


s. í "[I1i,1]-0, "[2,1]1-0 3 
(—s1 52 ds — cs da — 0, ci s2 da — s1d2 — 0) 


s solve( ", (s[i11],c[i]b 2); 
(s1— 0, Ci —0) 


Ez csak akkor lehetne igaz, ha mind 01 , mind 02 nulla, de ez lehetetlen a, definíci- 
ók miatt. Tehát a manipulátornak nem találtunk további szinguláris állapotait. 


19.2. A kadmium-fölvétel háromszakaszos modellje 599 


19.2. A kadmium-fölvétel háromszakaszos modellje 


A következő példa a lineáris rendszerek elméletéből származó esettanulmány. A 
[25] és a [99] irodalmakban olyan idő-invariáns folytonos idejű szakaszos mo- 
dellek strukturális azonosíthatóságát vizsgálták, amelyek a kadmium áramlását 
írják le az emberi testben. Mi csak a 19.1. ábrának megfelelő háromszakaszos 
modellt tekintjük. 


19.1. ábra: A kadmium fölhalmozódása az emberi szervezetben 


A megfelelő matematikai modell a, következő differenciálegyenlet-rendszer: 


dx(t 
zh — Az(t) B ult) 
y(t) — Cz(t), 
ahol 
—d21 a12 0 
A a21 — —(ao2 ht a12 ht a32) a23 
0 a32 —(ao3 - a23) 
és 
0 
700 lé Ő da[g a szk e 
0 0 ao2 003 


Föltesszük, hogy minden paraméter nemnegatív. A kadmium koncentrációját 
két helyen mérjük. A vesében elvégzett mérést az 


yi(t) — csz3(t), 
a vizeletben mért értékeket az 


y2(t) — ao272(t) 4 agzzz(t) 
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összefüggéssel írjuk le. Föltesszük, hogy cs ismert pozitív értékű paraméter. 
A 0 paramétertől függő M (0) idő-invariáns folytonos idejű n-szakaszos lineáris 
modell általános alakja 


2(t 
M(0) : ( ko 


. ahol A(8) n x n-es, B(0) n x m-es, C(9) k x n-es, D(0) k x m-es mátrix, z — 
(71, 72,...,Zn)T € R7 az állapotvektor, u — (ui, u2,..., um)T E R? az input 
vektor, y — (yi, y2,...,yk)T € RE az output vektor és végül 9 — (01, 82, . . . , 0.) 
a paraméter-vektor. (R, a nemnegatív valós számok halmazát jelöli.) Az A(0) 
rendszermátrix együtthatóira teljesülnek az 


AD elö BÜL: uld, , kije, 
C(9) : z(t) r D(8) : ult), 


Aj2Ohaizj, ÁuS0 és DVAxS0 


összefüggések. A B(9), C(0) és D(0) mátrixok összes együtthatója nemnegatív 
valós szám. Az input és az output kapcsolatát a rendszer úgynevezett külső 
viselkedése írja le, melyet az 


t 
y(t) — C(gjetztá dr 4! Wo(t — T)u(r) dr 
to 
függvény határoz meg. Az itt szereplő 
Wa(t) — C(D)erA9) B(g) 4 D(0)ö(t) 
függvényt a rendszer impulzus válaszfüggvényének hívják. Ezt a függvényt 


egyértelműen meghatározzák az alábbi, úgynevezett Markov-féle paramétermát- 
rixok: 


dk-1 
M;(9) — ga (2) hő 


— C(0)A(9)""!B(0), aholk— 1,2,... 


A továbbiakban föltesszük, hogy D(9) — 0. 

Az elméleti (a priori) azonosíthatóság tanulmányozásához három rendszerel- 
méleti fogalom kacsolódik: a vezérelhetőség, a megfigyelhetőség és a strukturá- 
lis azonosíthatóság. Rövid bevezetést és a számítógépes algebra alkalmazására 
vonatkozó megjegyzéseket a (126, 157] irodalmakban találhat az Olvasó. A kö- 
vetkező kritériumok érvényesek: 

A Kálmán-féle vezérelhetőségi kritérium. A lineáris rendszer akkor és 
csak akkor vezérelhető, ha az 


Mc — (B]ABJA?BI-- Ja" B) 


vezérelhetőségi mátrix maximális rangja n (Itt rb — rang(B).) 
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A Kálmán-féle megfigyelhetőségi kritérium. A lineáris rendszer akkor 
és csak akkor megfigyelhető, ha az 


CAP TE 


megfigyelhetőségi mátrix maximális rangja n (Itt rec — rang(C).) 
Megjegyzés: a fönti kritériumokban vehetjük mindig az rb — re — 1 értékeket 
is, például ha nem ismerjük vagy nem akarjuk kiszámítani C rangját. 


Ezek után a paraméterek azonosításának alapfeladata röviden így fogalmaz- 
ható meg: 


, Elvileg lehetséges-e a rendszer inputjának és outputjának isme- 
retében egyértelműen meghatározni a paramétereket?" 


Emlékeztetünk arra, hogy algebrai halmazon polinomok halmazának közös 
zérushelyeiként megadható halmazt értünk. A strukturális azonosíthatósággal 
kapcsolatban a, következő definíciókat fogjuk fölhasználni: 


Az M(0) modell a 9 helyen strukturálisan lokálisan azonosítható, ha megadha- 
tó 0-nak olyan 2 nyitott környezete, amely nem tartalmaz olyan 9-tól különböző 
0"-t, amely minden (to, zo, u) azonosítási kísérletre a 9-val megegyező külső vi- 
selkedést eredményezne. 


Az M(0) modell strukturálisan lokálisan azonosítható, ha legföljebb egy al- 
gebrai halmaz elemeit kivéve minden más 0 helyen strukturálisan lokálisan azo- 
nosítható. 


Az M(0) modell a 9 helyen strukturálisan globálisan azonosítható, ha nincs 
olyan 9-tól különböző 9", amely minden (to, zo, u) azonosítási kísérletre a 9-val 
megegyező külső viselkedést eredményezne. 


Az M(9) modell strukturálisan globálisan azonosítható, ha legföljebb egy al- 
gebrai halmaz elemeit kivéve minden más 0 helyen strukturálisan globálisan azo- 
nosítható. 


A kadmium áramlását az emberi testben leíró modellünkkel kapcsolatban föl- 
tettük, hogy a rendszer stabil, és az időhorizont a rendszer dinamikájához képest 
viszonylag tágas. Ezért a kezdeti föltétel lényegében elhagyható. Ekkor az u(t) 
input és az y(t) output kapcsolatát az y — Wa ru konvolúció határozza meg. Az 
alábbiakban a strukturális azonosíthatóság meghatározásának három módszerét 
említjük. 

A Markov-féle paramétermátrixos módszer. Konstruáljuk meg a kö- 
vetkező mátrixot az M1(0), M2(0), . . . , Moan(0) paramétermátrixok segítségével: 
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C(9)B(B) 
C(0) A(0)B(0) 
M.-]  C(0)A(82)B(9) 


C(GYA(62r-1) B) 


A lineáris rendszer akkor és csak akkor strukturálisan globálisan azonosítható, 

ha legföljebb egy algebrai halmaz elemeit kivéve minden más 0-ra Ma — M5- 
ből 9 — 0" következik. A lineáris rendszer akkor és csak akkor strukturálisan 
lokálisan azonosítható, ha a 


0Mi OMi 
091 "00. 

OMon ÖMon 
091 7 00. 


2nkm x r-es Jacobi mátrix legföljebb egy algebrai halmaz elemeit kivéve minden 
más 0-ra maximális rangú. 

Az átvitel-függvényes módszer. Definiáljuk a Ho(s) átvitelfüggvényt a 
következő módon: 


Ho(5) — C(B)(sI — A(9) 17" B(0). 


A lineáris rendszer akkor és csak akkor strukturálisan globálisan azonosítható, 
ha legföljebb egy algebrai halmaz elemeit kivéve minden más 0-ra Ha:(s) — 
Ho(s)-ből 9" — 0 következik. A lineáris rendszer akkor és csak akkor struktu- 
rálisan lokálisan azonosítható, ha a 0-t a Ho(s) együtthatóinak számlálójába 
és nevezőjébe leképező függvény (2n — 1)km x r -es Jacobi mátrixának rangja 
legföljebb egy algebrai halmaz elemeit kivéve minden más 0-ra a maximális r 
érték. 

FIGYELMEZTETÉS: A rendkívül népszerű hasonlósági transzformációs 
módszer csak olyan általános idő-invariáns folytonos idejű véges dimenziós line- 
áris rendszerek esetében érvényes, ahol az állapot, az input és az output valós 
vektorokkal adható meg, és az A, B, C és D is valós együtthatós mátrixok. Ez a 
módszer kevéssé hasznos az olyan rendszereknél, amelyek állapot, input és out- 
put vektora pozitív. A segítségével levezethető legjobb kritérium a következő: 


Hasonlósági transzformációs módszer. A rendszer álljon legföljebb há- 
rom szakaszból, és legyen legföljebb egy algebrai halmaz elemeinek kivételével 
minden paraméter-értékre strukturálisan vezérelhető és strukturálisan megfi- 
gyelhető. Ezen föltételek mellett a 0 helyen akkor és csak akkor lesz a rendszer 
globálisan strukturálisan azonosítható, ha tetszőleges nemszinguláris T mátrixra a 


T A(0") A(9)T 
T B(0") B(9) 
C(9) - CT 
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egyenletrendszernek létezik egyértelmű (I,0) megoldása. Ha az egyenletrend- 
szernek véges sok megoldása van, akkor a rendszer strukturálisan lokálisan azo- 
nosítható a 0 helyen. 

Négynél több szakaszú rendszerekre az előző kritérium elegendő, de nem szük- 
séges. Ez a körülmény rendkívül behatárolja alkalmazhatóságát. 

Az előző kritériumok esetében a számítógépes algebra nyújtja a legmegfe- 
lelőbb számítási eszközöket. A kadmium vándorlására vonatkozó példánkon 
fogjuk bemutatni ezeket a, kritériumokat. 

Először a macro lehetőségeit kihasználva az a;j, b;:j és ti; indexelt nevek 
helyett rövidítéseket vezetünk be. A macro argumentumainak kiértékelési sza- 
bályai miatt néhány trükköt is be kell vetnünk. 

pl seguence .— 


5 seg(seg( a.i.j — 
seg(seg( b.i.j — BET a i-0 


CEGE Él 
11 MBAS: AR 
900 
149 (40 U0 
XI 


A seg(seg( t.i.j — tli,j], i- -0. ő ) c3 — c[3] 
5 — (evalOsubs)( S-seguence, ?"macro(S)? ): 
Ezután a rendszert definiáló mátrixokat vezetjük be: 
5 A :-— matrix( 3, 3, [ -a21, a12, 0, a2i, 
5 -(a02ta12ta32), a23, 0, a32, -(a03ta23) ] ); 
—d2,1 d1,2 0 
A :— a21  —do27 d1,2 — d3,2 d2,3 
0 a3, 2 tégy — d2 3 
5 B :— matrix( 3, 1, [0,1,0] ); 
0 
BSsSÍ 1 
0 
5 C :- matrix( 2, 3, [0,0,c3,0,a02,a03] ); 
he 0 0 C3 
79 do,2  00,3 
5 AB :— evalm( A £r B ): AZB :— evalm( A $£r AB ): 
5 MC :- augment( B, AB, AZB ); 
0 a1i,2 —d2,1a1,2 t a1,2 901 
MC:- 11 91 a2,11,2 491? - a2, 3 a3,2 


0 az2 a32971-(—ao, 3 — a2,3) az, 2 


91 7 —do,2 — 81 2-7 d3 2 
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Előttünk a csábító lehetőség: határozzuk meg az Mc vezérelhetőségi mátrix 
rangját a rank Maple eljárással. 
s rank( MC); 
3 


Ez azonban csak a mátrix általános rangját adta meg arra az esetre, ha a mátrix 
együtthatóit a OK a12 , a21, . - . , az2) hányadostest elemeinek tekintjük. Nekünk 
nem ez kell! A rang meghatározásának másik módja az ffgausselim eljárással 
végrehajtott törtmentes Gauss-elimináció. 


5 ffgausselim( MC ); 


2 
[1 —do,2 — d1,2 — a3,2,a2,1d1,2 t a0,2" 1 2ad1,2 do,2 t 2do,2 az, 2 


2 2 
tHda1,2" 12ad1,2a3 2 ta3 2 -- a2, 3 08, 2] 


2 
[0, a1,2 , —a2,1 a1,2 — a1,2 d0,2 — a1, 2? — a1,2 az, 2 ] 


[0, 0 , —d1,2 d3,2 d0,3 — d1,2 42,343,2 Tt da3,2a2,1d1,2 ] 


5 map( factor, " ); 


2 
[1 —do,2 — d1,2 — a3,2 , 42,1d1,2 t do,2" 1 2d1,2do,2 HF 2ao, 2 az, 2 


2 2 
t a1,2" 12d1,2a3,2 t a3,2 - a2,s 032 ] 


[0, a1,2 , —a1,2 (a1,2 t a2,1 b a0,2 az, 2) ] 
[0, 0, a1,2 a3,2 (—ao,3 — a2,3 t a2,1) ] 


Innen rögtön adódik a, vezérelhetőség szükséges és elegendő föltétele: a12 £ 0, 
az2 A 0 és az21 A a03 t a23z. Ne feledjük, hogy a Maple a mátrix együtthatóit a 
Aa a12 ; 121, . . . , a32) hányadostest elemeinek tekinti, s ezért a törtmentes Gauss- 
elimináció bármely lépésénél előfordulhatna, hogy minden sort leoszt az előző 
főelemmel, vagy a sorban lévő polinomok legnagyobb közös osztójával. Az utób- 
bi műveletet nem implementálták a gausselim eljárásban, az előbbi meg nem 
okozhat problémát, mivel ezek a főelemek eleve nullától különbözőek. Ha nem 
kívánunk ezekre az implementáció-függő részletekre támaszkodni, használhatjuk 
a következő ekvivalens vezérelhetőségi kritériumot is. 

A vezérelhetőség kritériuma. Á lineáris rendszer akkor és csak akkor 
vezérelhető, ha az Mc vezérelhetőségi mátrixra teljesül a det(McMZ) £ 0 
(vagy négyzetes Mc esetén a det(Mc) / 0) föltétel. 

5 factor( det( MC ) ); 


—a1,2 a3,2 (—ao, 3 — a2,3 rk a2,1) 


Ebből a kritériumból azonban legtöbbször bonyolultabb föltételeket kapunk. 
A megfigyelhetőség ugyanígy ellenőrizhető. Föltesszük, hogy ao2 / 0, hogy a 
C mátrix rangja 2 legyen. 


s CA :— evalm( C gr A ): 
5 MO :-— stack( C, CA ); 
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MO :— 
[0,0, cs] 
[0, ao,2 , a0,3 ] 
[0 , cz az, 2 , cs (—ao, 3 — a2,3) ] 


[ ao, 2 a2,1 , a0,2 (—da0,2 — a1,2 — az, 2) t a0,3 a3,2 
ao, 2 a2,3 t ao, 3 (—ao, 3 — a2,3) ] 


5 ffgausselim( MO ); 


2 
[ a0,202,15; —d0,2" — da1,2 d0,2 — a0,2d3,2 t ao, 3 a3,2 , 


2 
dao,2d2,3 — d0,3 — do,302,3 ] 


[ 0, ao,27 a2, 1 , a0,3 a0,2 a2, 1 ] 
[0, 0, Cs a0,2" 021 ] 
[0, 0, 0] 


Tehát a rendszer megfigyelhető, ha ao2 / 0 és az21 A 0. 


Példánknál a megfigyelhetőség következő kritériuma bonyolultabb, de ekviva- 
lens föltételeket eredményez. 


A megfigyelhetőség kritériuma. A lineáris rendszer akkor és csak akkor 
megfigyelhető, ha az Mo megfigyelhetőségi mátrixra teljesül a det(MoM3) 7 0 
(vagy négyzetes Mo esetén a det(Mo) / 0) föltétel. 


5  factor( det( transpose(M0) £x MO ) ); 


2 2 2 2 2 2 p) 2 
C3" a2,1" ao,2 (2a0,2 a3,2 a0,3 a2,3 Tt cz" az,2" Tt ao, 3" az, 2" rt a0,2 


úa ao, 2" a0,37 új ao, 2? a2, 37 Si 2 ao, 2? ao, 3 42,3 t 2d0,2 a3,2 ao, 37) 
Úgy tűnik, mintha a negyedik tényezőből még egy extra föltétel következne. De 
ha ezt az az2 másodfokú polinomjának tekintjük, és kiszámítjuk a diszkriminán- 
sát, kiderül, hogy mindig negatív értékeket vesz föl: 
5  collect( op(4,"), a32 ); 


(cs? -- ao, 32) az, 2? 4 (2 ao, 2 ao, 3 a2,3 2 a0,2 ao, 37) az, 2 
-- a0,2" ao,37 90, 27 d2.37 42 ag, 27 a0,3a2,3 t ao, 2? 
5  discrim(",a32); 
—4 (cs? -k cs? ao, 37 - cs? 0237 2 cz? ao, 3 42,3 t a0, 37) ao, e 
A továbbiakban a strukturális lokális azonosíthatóságot a Markov-féle paraméter- 


mátrix segítségével vizsgáljuk. Először a mátrixot és ennek Jacobi mátrixát kell 
megadnunk a Maple-nek. 


s n :5- rowdim( A ); 
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CAOB :- evalm( CgxB ): 
for i from 1 to 5 do CA.i.B :— evalm( C $x ATi $gxr B ) od: 
J :- stack( seg(CA.i.B, i-0..2rn-1) ): 


J12 :- map( diff, J, a12): J21 :— map( diff, J, a21): 
J23 :— map( diff, J, a23): J32 :— map( diff, J, a32): 
JO02 :- map( diff, J, a02): JO3 :— map( diff, J, a03): 


JM :- augment( J21, J12, J0O2, J23, J32, J03 ): 
ffgausselim( JM ): 
map( factor, " ); 


VAY YY 


— a 


91, do,212,1 2 a0,2? 129171293— 92 , az, 1 a1,2 3 ao, 2? 


1491-4493-t a1,2? HF 2a1,2 a3,2 Tt az, 2? -t a2, 3 az, 2 — 92, 
az, 2 (ao, 2 — ag, 3) , 2a0,2? 129112973-t ao,2 a2 3 — ao, 3 d0,2 


— ao, 3 da1,2 — 292 — ao, 3? — ao, 3 12, 3, 

—as, 2 (as,2 4 a0,2  a1,2 4 2a0,s - 02, 5) 

0, —ao, 2? a1,2 , —(2a0,2 1 a1,2 az, 2) a0, 2 a1,2 , 0, 

—(a0, 2 iz a0,3) do, 2 d1,2 , d0,2 d1,2 a3, 2] 

[0,0, —a0,27a1,2, 0,0,0] 

[ 0,0, 0, cs a0,2? a1,2 a3,2 , 

cz ao, 2 a1,2 (a0,22 4 91 4 ag, 2 a2,3 4 993 4 ao, 3 a0,2 4 92) , 
Cs ao, 2 a1,2 a3,2 (az,2 t a0,2) ] 

[0, 0 , 0 , 0 , Cs" ag,2a1,2d0,27, 0] 

[D.050, 0.0, 

cz? ag, 2" a1,2 (—a0,3 Tk a2, 1 — a2, 3) az, 2? (a2, 1 — a0,3 - a1,2 — a2, 3) ] 


[0,0,0,0,0,0] 


[0,0,0,0,0,0] 
[0,0,0,0,0,0] 
[0,0,0,0,0,0] 
[0,0,0,0,0,0] 
[050505.05 00 ] 


91  ao,21d1,2 
992 Iz ao,33,2 
93 Iz dao,2 a3,2 
A rendszer akkor és csak akkor strukturálisan lokálisan azonosítható, ha a12, 


a02 és az2 nemnulla, a21 Z ao3 § a23 végül a12 t- a21 Á a03 t a23. A strukturális 
globális azonosíthatóságot is megvizsgáljuk az átvitel-függvényes módszerrel. 


s H :5— evalm( C £r (s-A)7(-1) £xr B ): 
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s  evalm( denom(H[1,1]) x H ) / collect(denom(HL[1,1]) , 5) ; 


Es (a2,1 4 5) az, 2] 
944 (222 (02,1 - 5) (a0,3ta2,3 45) , a0,3(a2,1-t 5) 1.2) / 


74 T 74 


3 2 
(s TF (a2,1 Tt ao ,2 -t a1,2 t do, 3 Tt a2,3 -Ha3,2) s - (a2,1d2,3 - do, 3 d1,2 
Tt a1,2a2,3 t ao, 3 a2,1 rt do, 3 a3,2 Tt ao,2 a2,1 rt a3,2a2,1 Tt ao, 3 a0,2 
- ao, 2 a2,3)s 1 931902 - 71) 
961 :— a2, 1 do, 3 40,2 
992 :— a2, 1 a0,2 12, 3 
993 :— ao, 3 43,2 42,1 
904 :— 903 - s ao,3 a0,2 Tt 5 a0,3 3, 2 tda21sa2 3 t 5 ao,3a1,2 
2 2 2 2 
t1sda1,2ad2,3 ta2,15sda0,3 tad2 15 tdo25 tai 25  taz32s 


2 5? ao, 3 2 52 a23 2 58 192191 a21d0,25-Fd2,1d3,2 s 
Tt S do0,2 423 


s  collect( numer(HL[1,11), s ); 


Cz3d3,25-t Cs a2,13,2 
s  collect( numer(H[2,1]), s ); 


2 
ao0,2 5" t (do,2 a2,1 Tt ao, 3 a0,2 -t ao, 2 a2,3 rt a0, 3 a3,2) s 
- a2, 1 (ao, 3 a0,2 t da0,2 a2,3 tt a0,3 a3,2) 


Az átvitel-függvényes kritériumnak megfelelően a strukturális globális azonosít- 
hatóság ekvivalens a következő utasításokkal generált egyenletrendszer egyértel- 
mű megoldhatóságával: 


s cfsli :— (1 coeffs( expand(numer(H[1,1])), s ) ); 
cfs1 :— (cs az,2, c3 a2,1 a3,2) 
s  efs2 :— ( coeffs( expand(numer(H[2,11])), s ) b; 


cfs2 : (ao,2 a2,1 tk ao,3 a0,2 t ao,2 a2,3 t ao, 3 a3, 2, 


a0,3a3,242,1 Tt d2,1 d0,2 02, 3 -t a2,1 do, 3 40,2; a0,2) 


s cfs3 :- ( coefís( expand(denom(HL[1,1])), s ) 3 


5 minus (ill; 


cfs3 :— (a2,1 tt a0,2 Tt a1,2 Tt ao,3 Tt a2,3 ht az, 2, a2,1 a2,3 -t ao, 3 11, 2 
-F a1,2 d2,3 t a0,3 42,1 t do,3a3,2 tt do,2a2,1 t a3,2d2,1 Tt ao, 3 ao, 2 


Tt ao,2 a2,3, a0,3 a3,2 a2,1 t a2,1 do,2 a2,3 Tt d2,1 a0,3 00,2) 
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5  cÍís :— "union"( cfs.(1..3) ): 
5  egns :— map( x -2 x - subs( a12-b12, a21-b21, a23-b23, 


s a32-b32, a23-b23, a03-b03, a02-b02, x ), cfs ); 


egns :— (cs a2, 1 az,2 — cs b2, 1 b3,2, 
a0,3 a3,2 42,1 t d2,1 do,2 42,3 - d2,1 da0,3 a0,2 — 
bo, 3 b3,2 ba, 1 -- ba, 1 bo, 2 ba, 3 1 b2, 1 bo, 3 bo, 2, a2,1 a2,3 -- a0, 3 a1,2 
t d1,2d2,3 t a0,3 d2,1 t ao, 3 a3,2 t a0,2 a2,1 rt a3,2 a2,1 Tt ao, 3 a0,2 
- ag, 2 a2,3 — b2,1 b2,3 1 bo, 3 bi, 2 1 bi, 2 b2, 3 4 bo, 3 b2, 1 1 bo, 3 b3, 2 
- bo, 2 b2,1 - b3,2 b2, 1 t bo, 3 bo, 2 - bo, 2 b2, 3, 
do,2 a42,1 Tt d0,3 a0,2 Tt ao0,2 a2,3 t a0,3 a3,2 — 
bo, 2 b2, 1 1 bo, 3 bo, 2 4 bo, 2 b2, 3 4 bo, 3 b3,2, ao,2 — bo, 2, 
a2,1 t ao0,2 tai1,2 t ao,3 t a2,3 t az 2 — 
b2, 1 Tt bo,2 1 bi, 2 1 bo, 3 1 b2, 3 t b3,2, cs az,2 — cs bz,2) 


5 vars :— í1bií2,b21,b23,b32,b02,b033: 
5  solve(edgns, vars); 


(b2,1 — a2,1, bi,2 — a1,2, b2,3 — a2,3, bo,3 — a0,3, bo,2 — a0,2, 


bz3.2 — a32), [os 7 a2, 1, b2,3 — (—do, 3 a0,2 — a0,3 a3,2 tk a0,2 a2, 1 


— a0,2d2,3 t a0,2d1,2 t a3,2 21 4 a1,2 03, 2) / 132, 


b1,2 — a0,3 t a2,3 — 021, 
—do, 3 40,2 — 40,3 43,2 Tt da0,2 d2,1 — do,2 42,3 Tt a0,2 d1,2 


a3,2 


, 


bo, 3 — — 
bo, 2 — do,2; b3, 2 Az aa) 


Két megoldás van. A rendszer tehát nem strukturálisan globálisan azonosítható, 
csupán strukturálisan lokálisan azonosítható. 

Az utolsó eredményt a hasonlósági transzformációs módszerrel vezetjük le. 
Először az ugyanezen M modellnek megfelelő AA, BB és CC mátrixokat ve- 
zetjük be, csak most a12, a21, . . . helyett a bi12, b21, . . . paraméterértékekkel szá- 
molunk. 

5 AA :— subs( a12-bi2, a21-b21, a23-b23, a32-b32, 


5  a23-b23, a03-b03, a02-b02, eval(A) ); 
—b2, 1 bi, 2 0 
AA:  b21  —bo,2— bi,2 —bz,2 b2, 3 
0 b3 2 —bo, 3 — b2,3 
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5 BB :— copy(B): 
5 CC :5 subs( a02-b02, a03-b03, eval(C) ); 
0 0 C3 
CC iz 
0 bo2 bo3 


s T :— matrix( 3, 3, (i,j)ctli,j) ); 
tri ti2 tis 
T:—I tai t22 tesz 
tsa 132 133 
Az alábbi kifejezés kiértékelésével 
5  evalm( TgxBB - B ): 
t1,2 
t22—1 
t3,2 
azt kapjuk, hogy t12 — tsa2 — 0 és t22 — 1. EkkoraCC—CT — 0 mátrixegyenlet 


a következő alakra hozható: 
50. ÜZ SEOs. E32-— 0£ "E22 ső 1: 
s evalm( CC - CgxT ); 


[cz ts, 1, 0, cz — csts 3] 
[ —ao,2 t2,1 — ao, 3 t3,1 ,; bo,2 — ao0,2 , bo, 3 — ao,2 t2,3 — a0,3 ts, 3] 


5 map( factor, " ); 


[—cst3,1, 0, —cs(—1-t ts, 3) ] 
[ —a0,2 t2,1 — a0,3t3,1 , bo,2 — ao0,2 , bo,3 — ao,2 t2,3 — ao,3 ts, 3] 


Mivel cs 5 0, rögtön következik, hogy t31 — 0, tsz — 1 és bo2 — ao2. 
5 t31 :— 0: t33 :— 1: b02 :— a02: 
5  evalm( CC - C$xT ): map( factor, " ); 
0 0 0 


—ao,2t2 1 bo,2—do.2 bo,3— ao,2t2,3 — ao,3 


Ha aoz 7 0 (ez teljesül, ha a rendszer megfigyelhető), akkor t21 — 0 és csak egy 
egyenletünk marad. 
5 t21 :— 0- 
5 egni :— evalm(CC - CgxT) [2,3]; 
egn1 :— bo, 3 — ao,2 t2,3 — do, 3 
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Most levezetjük az A mátrix hasonlósági transzformációjából nyert nemtriviális 
egyenleteket: 
5  evalm( TErAA - AZRT ); 


[- ta,1b2,1 Fa2ati,1; ti,1bi,2 tti,3b3,2 — d1,2 , 
t1,3 (—bo, 3 — b2,3) H a2,1t1,3 — a1,2 ta,s] 
[21 — a2, 1 ti, 1; —bi,2 — b3,2 tt2,3b3,2 HF a1,2 4 az, 2 , bi, 3 


4 t2, 3 (—bo, 3 — b2, 3) — a2,1t1,3 — (—do,2 — a1,2 — az, 2) t2,3 — 02.s] 
D , bz,2 — az, 2 , —bo, 3 — b2,3 — a3,2t2,3 tt a0o,3 Tt a2, 3] 
5: egn2 :- map( op, convert(", "listlist?) ): 
5  egns :-— ( egni, op(egn2) ) minus (0); 
egns :— (—ti1,1b2,1 tk a2,1 ti,1; —bo,3 — b2,3 — a3,2t2,3 t ao,3 tt a2, 3, 
—bi,2 — b3,2 4 t2,3b3,2 t a1,2 t az, 2, b2,3 t t2, 3 (—bo, 3 — b2,3) 
— a2,1t1,3 — (—do,2 — a1,2 — az, 2) t2, 3 — a2,3, bo, 3 — a0,2 t2,3 — d0,3, 
ti, 1bi,2 tk ti,3b3,2 — a1,2, ta, 3 (—bo,3 — b2,3) Ft a2,1t1,3 — a1,2 t2, 3, 
b2,1 — a2,1t1,1, b3,2 — a3,2) 
5 sölve( egns, (b12,b32,b23,b03,b21 t11,t13,t23b ): 


(b2,1 — a2,1, bi1,2 — a1,2, b2,3 — a2,3, bo, 3 — a0,3, b3,2 — a3,2, ta 1—], 


t1.3—0,t23—0) [dos — a2,1, b2,3 — (—ao, 3 a0,2 — a0,3 a3,2 


-H a0,2 42,1 — 40,2 42,3 t a0,2 a1,2 t a3,2 a2,1 Tt a1,2 a3,2) /a82 


b1,2 — do,3 t a2,3 — d2, 1, 
ZENE —do,3 a0,2 — a0,3 a3,2 Tt da0,2 d42,1 — d0,242,3 TF do,2 d1,2 
0,3 — — 
" a3,2 ; 
—dao 3 — a2,3 t d2,1 t d1,2 
bz 2 — a3,2, ta,1 — L, ti, 3 — 5 at 
a3,2 


— — —do 3 — d2,3 td2,1 td1,2 
123 — — 
a3,2 


Két különböző megoldást találtunk, ami ismét azt bizonyítja, hogy a rendszer 
nem strukturálisan globálisan azonosítható, csak strukturálisan lokálisan azo- 
nosítható. 

Bonyolultabb rendszerek esetében a vezérelhetőség, a megfigyelhetőség és a, 
strukturális azonosíthatóság az itt vázolt eszközökkel már nem ilyen könnyedén 
tanulmányozható. Megfelelő algebrai egyenletmegoldó módszereket (a karakte- 
risztikus halmazok vagy a Gröbner bázisok módszerét) kell bevetnünk a vála- 
szok megkereséséhez. De legalább a számolási munkákat a számítógépes algebrai 
rendszer végzi a lineáris algebrai, az egyenletmegoldó stb. . csomagjaival. 
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19.3. A molekulapályák Hückel-elmélete 


A következő példa, a 7r-elekton energiáknak és a molekulák elektromos töltésel- 
oszlásának kiszámítására alkalmazható Hückel-elmélet a kvantumkémiából szár- 
mazik. Mivel a módszer megtalálható bármely kvantumkémiai szakkönyvben, 
például a [24]-ben is, ezért csak röviden vázoljuk. 


Konkrétan a Cio.Hio képletű azulénmolekulát fogjuk vizsgálni, amelynek tíz 
szénatomból álló vázát a 19.2. ábrának megfelelő úgynevezettt o-kötések kap- 
csolják össze. 


A 


19.2. ábra: Az azulén váza 


Minden c-kötés két elektront tartalmaz, ezért még 10 darab 7r-elektronnak ne- 
vezett elektronunk marad. Ezek a 7r-elektronok 1r-kötéseket alkotnak, amelyek 
a szénatomok 2p, elektronpályáiból jönnek létre. A molekula-pályákat ezekkel 
az atompályákkal 4 — cidi - c2$2 1 ::: FF ciodbio alakú lineáris kombinációk- 
ként írjuk föl. A ci, c2, ..., cso együtthatókat variáció-számítással abból a 
föltételből határozzuk meg, hogy az energia a lehető legkisebb legyen. Ez a 
következő általánosított sajátérték-problémához vezet: (H — ES)C — 0, ahol 
H a Hamilton-mátrix a c $-]IHlé; 5 elemekkel, az § átfedési mátrix elemeit 
c biló; 2 adja, C pedig általánosított sajátvektor az E általánosított sajátér- 
tékkel. A Hückel-elméletben a következő föltételezésekkel szokás élni: 


e Minden H;; mátrixelem azonos, a-val jelölt érték. 


e Ha az 7-dik és a j-dik atomok szomszédosak, az összes megfelelő Hi; meg- 
egyezik, ezt a közös értéket jelölje 8. Ha az t-dik és a j-dik atom nem 
kapcsolódik közvetlenül egymáshoz, akkor Hi; — 0. 


e Az átfedés elhanyagolható, vagyis 5 a zérusmátrix. 


Ezen föltételek mellett közönséges sajátérték-problémát kapunk. Az azulénhez 
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tartozó szimmetrikus H mátrix (a molekula Hückel mátrixa) a következő: 


op GGGÖGÜR 
GOES EDBDOÖOTVMN tt 
t-OG DOS GEGOR TÓ 
9000o05£OOO 
SOEODGORR BO OG 
oo5o5L£DBOOCOO 
GEN CG OO 
ORR GO SGOEOEOO 
Tt MMEOGOGOOGGOT 
$ GE GO TTGO GO 


A Hückel mátrix sajátérték-problémája helyett a megfelelő topologikus mátrix, 


vagyis 


01000000 10 
1010000000 
0100000001 
0000100001 
0001010040 090 
0000101000 
0000010100 
a TO. GT: 4 -k 0 
1 00 0 0 0-0 1. 0. 1 
00119040009010 


sajátérték-problémáját oldjuk meg. A topologikus mátrix valamely z sajátérté- 
ke és az E sajátérték között egyszerű kapcsolat van: E — a - 8Bzxz, a megfelelő 
sajátvektorok pedig megegyeznek. 


Kez 


djük el a számolást. Először fölsoroljuk a közvetlen kapcsolatban lévő 


szénatom-párokat: 


- 


"number of C-atoms" :— 10: 

Azulene skeleton :— 
[I [1,21, [1,91, [2,3]1, [3,10], [4,51, [4,10], 
[4,10], [(5,6], [6,71, [7,81, [8,91,(9,10] 1]: 


Ezután ritka szimmetrikus mátrixként definiáljuk a Hückel mátrixot: 


A top 


Hueckel matrix :- array( sparse, 

1. . "number of C-atoms", 1. . "number of C-atoms" ): 
for i from 1 to nops( Azulene skeleton ) do 

Hueckel matrix[ op( Azulene skeletonlil] ) ] :-— beta 
od: 
Hueckel matrix :- evalm( alpha t Hueckel matrix 

t transpose( Hueckel matrix ) ): 
topological matrix :— subs( alpha-0, beta-1, 

eval( Hueckel matrix ) ): 


ologikus mátrix karakterisztikus polinomja a linalg csomag charpoly 


eljárásával, a karakterisztikus mátrix pedig a charmat rutinnal határozható 


meg. 
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5  factor( charpoly( topological matrix, x ) ); 
(zt rar —332—r41) (2 —2"—72t 45791 131?—6z— 4) 


5  charmat( topological matrix, Xx Dj 


s 4 d 06 0 Ű ú 0 —-1 0 
1 £ LL 0 0 0 0 -0-0- 0 
Ül. a De DB 0 De TT 
0. 20- D-i Ek 5080 ze 0-7, Gz —1 
0.0 0 -1i g -1i"09- a 0 0 
0 0 0 0 zl g il 0 -0 0 
ü- B B Book ár SZ B 
0.0. 0. 9 Ú. 0. szt. -i 0 
sz 0. €- AM ÜDV d gl 
0. 4 cí cd. 0 0 0.0 - Ai eg 


s factor( det(") ); 
(zt ra —3227—2 31) (s"— 27 —72tt 529 4135? —6r— 4) 
A sajátértékek és a sajátvektorok az eigenvalues-zal, illetve az elgenvectors- 
zal számíthatók ki. 


5,  eigenvalues( topological matrix ); 


RootOf(-Zt 3.27 —3.27— 7141), 
RootO£( 2" — 75—-7.2345.29313.27—6.7—4) 


5  eigenvectors( topological matrix ); 


[72, 1, ([7r13l, [/1, 1, ([/- 14, 
991 :— RootOf(.2t 3 .29—3.72— 7711) 
952 :— RootOr(.2" — 75—-7.2t4 5.2? 413.27 —6.27 —4) 
A sajátvektorokat mutató eredmény egy részét elhagytuk. Tekintsük az előző 
sorozat utolsó elemét: 
2 ""I2T; 


(91, 1, ([-1, 0, 1, 91? 391 — 1, 917391? — 291, 0, 


—Yy1? — 917 4291, —91? — 91-41, —91, 91] 
951 :— RootOf(.2t 3 .29—3 22—- 711) 
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Az első komponens a sajátvektorhoz tartozó sajátértéket, a második a sajátérték 
multiplicitását, a harmadik pedig magát a sajátvektort adja meg. Ha a sajátal- 
tér többdimenziós, a harmadik komponens ennek egy bázisát tartalmazza. Az 
előző objektumot tulajdonképpen négy sajátvektor leírásának kell tekintenünk, 
mivel texttt 71 négy értéket vehet föl; egy vektoron belül persze mindig ugyan- 
azt az értékét kell tekinteni. Az alábbiakban a -2 -k :v5 -k 1 11 — V/5V/2 
sajátértéknek megfelelő esetet láthatjuk. 

5  allvalues(", "dependent? )[1]; 


j 1 
1, 1,([-10.192-5a7vőeg 22—245, 
LA ad TERET [ts 22— 2.45, 0, 
3 2 2 
ös 3 E 
-4?- ús az vőrő 22—245, 


-4? 5-2 v5-5V22-2v5, 2-12v5-2V22— 245, vaj yi 


Tv d 1 
ssp 21/2902 
9 ee 457 ú 5 
Az M mátrix szinguláris értékei, vagyis az M MT sajátértékeinek négyzetgyökei 


a singularvals eljárással számíthatók ki. Numerikus sajátértékeket és saját- 
vektorokat az Eigenvals-sal határozhatunk meg. 

5 eigenvalues :— evalf( 

pl Eigenvals( topological matrix, ?"eigenvectors? ) ); 


eigenvalues :— [—2.095293985, —1.869213984, —1.579218099, 
—.7376403029, —.4003923188, .4772599976, .8869752420, 
1.355674293, 1.651572314, 2.310276842] 


Ellenőrizzük az első sajátvektort: 
5  subvector( eigenvectors, 1.. "number of C-atoms", 1 ); 


(—.2590786300, .1881 107", .2590786280, .3354972117, 
—.1601193962, —.2190 107", .1601194004, —.3354972138, 
.5428458950, —.5428458923] 


5  evalm( ( topological matrix 
5 - eigenvalues[1] ) £r " ); 


(181078, .191078, .5 1079, .121078, .1810 1078, —.41079, .5 1079, 
AZ10-", 291075 210" 


5  map( fnormal, " ); it floating-point normalization 


[ 0, 0, 0, 0, 0, 0, 0, 0,0, 0] 
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Példánkat a 1r-elektron energiájának és sűrűségfüggvényének numerikus leírá- 
sával zárjuk. Ha az ortonormált $; molekula-pályákon egyenként n; darab T- 
elektron van, akkor a j-dik szénatom ag; r-elektron-sűrűsége: 


10 
ss b ; 2 
dj . NiCji: 


í—0 


A továbbiakban a legkisebb 7-elektron energiának megfelelő állapotra koncent- 
rálunk. 

5 occupation numbers :— [0,0,0,0,0,2,2,2,2,2,2]: 

s pi electron energy :— sum( "occupation numbers[il 

5 x ( alpha t eigenvalues[i] tbeta )? , 

S )j?"5-1.. "number of C-atoms" ); 


pi-electron energy :— 10 a -- 13.36351737 8 


Nincsenek többszörös sajátértékek. (Egyébként még Gram-Schmidt ortogo- 
nalizációt kellett volna végeztetnünk a linalg csomag GramSchmidt eljárá- 
sával.) Már csak normalizálnunk kell a sajátvektorokat. A normalize éppen 
megfelel erre a célra. 


5  eigenvectors :— map( normalize, [ seg( 
5 subvector( eigenvectors, 1.. "number of C-atoms", i ), 
s i-1.. "number of C-atoms" ) ] ): 


Minden készen áll a, 1-elektronok sűrűségének kiszámításához. 


s  electron density :— seg( sum( ?occupation numbers[i] § 
5 (eigenvectors[il[j])72?, ?"i?"-1.. "number of C-atoms" ), 
s j-1.. "number of C-atoms" ); 


electron density :— 1.172879340, 1.046599708, 1.172879339, 
.8549456656, .9864468455, .8700013802, .9864468483, 
.8549456632, 1.027427606, 1.027427605 


A vegyészeknek ez az egyszerű modell is megmagyarázza a helyettesítések hely- 
függőségét. Az elektrofil helyettesítések (például egy klóratomé) legnagyobb va- 
lószínűséggel a legmagasabb elektronsűrűségeknek megfelelő pozíciókon mennek 
végbe. Az azulén esetében ez a 2. pozíció. A nukleofil helyettesítések (például 
egy metilgyök) legvalószínűbb helyét a, legalacsonyabb elektronsűrűségek adják, 
ez most a 4. és a 8. pozíciót jelenti. 


19.4.  Vektoranalízis 


A linalg csomagban megtalálhatók az olyan vektoranalízishez kapcsolódó el- 
járások, mint a grad (a gradiensre), a diverge (a divergenciára), a laplacian, 
a hessian és a cur!l (a rotációra). Mindezek jól alkalmazhatók különböző orto- 
gonális görbevonalú koordinátarendszerek esetén is. 


s alias( f-f(x,y,z), g-g(x,y,2), h-h(x,y,z), cslx,y,z] ): 
5 grad(f, c); 
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5  diverge( [fg ,h], c ); 


sz) els (s 


s laplacian(f, c); 


0? 0? 02 
kezi elsz fitt 


- jacobian( Lf,g,h], c Jé; 


[04 [04 (0) 

Bed au Bai 

ö ö (2) 

öz9 o9y9 96879 

a [94 (o) 

sz h ah szh 

5  hessian( f, c ); 

92 92 82 
022 öyöz J össz 
82 82 02 
ögés öy2 özöy 


92 82 82 
Özöz J Oz Öy J 022 


s curl( [f,g,h], c ); 


fő) fő) fő) o) fo) fő) 
gy (37 9 (sz) (37 h), (3797 (gy 


5 diverge( ", c); 


5 curl( grad( f, c ), c ); 
[000] 


A két utolsó parancs eredménye jól ismert tulajdonságokat fejez ki. A 19.1. és a 
19.2. táblázatban soroltuk föl azokat a legfontosabb ortogonális görbevonalú ko- 
ordinátarendszereket, amelyek használatakor a Maple beépített lehetőségeinek 
segítségével ki tudja fejezni a gradienst, a divergenciát, a Laplace-operátort és 
a rotációt. A beépített koordinátarendszerekről teljes listát és részletesebb ma- 
gyarázatot a ?changecoords paranccsal kérhetünk. A koordinátarendszerek 
definíciója megtalálható a (142, 171] irodalmakban. 
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Koordináták Definíció Maple elnevezés 
derékszögű (u,v) cartesian 
polár (u cosv, usinv) polar 
sinhv sinu a 

bipolár Se SSE —— — — — —— bipolar 

coshv — cosu" coshv — cos u 
elliptikus (cosh u cos v, sinh u sin v) elliptic 

gő 
parabolikus ( 5? w) parabolic 
hiperbolikus ; utFvVu trv, V-—-utvu iv? ) hyperbolic 


19.1. táblázat: Előre definiált 2D koordinátarendszerek 


Koordináták Definíció Maple elnevezés 
derékszögű (u, v,w) cartesian 
kör-henger (u cos v, u sin v, w) cilindrical 
elliptikus-henger (a cosh u cos v, ellcilindrical 
acoshusinv, w) 
parabolikus-henger (uw cos w, uv sin w, vád ss ) paraboloidal 
hiperbolikus-henger (Vu Vu? 3 v2, hypercilindrical 
Vv-r Vu? Av, 
w) 
szférikus (u cosv sin w, spherical 
usinvsin w, 
ucosv) 
nyújtott szferodikus (asinh u sin v cos w, prolatespheroidal 
asinhusinvsin w, 
acoshucosv) 
összenyomott szferodikus — (acoshusinvcosw, oblatespheroidal 
acoshusinv sin w, 
asinhucosv) 
ellipszodikus (ES; ellipsoidal 


1 / (u2—b2)(v2—b2)(b2—w2) 
b a2—b2 ), 


1 Tee 
a a2—b2 ) 


19.2. táblázat: Előre definiált 3D koordinátarendszerek 
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Példaként vegyük a Maple-ben a következő formulákkal definiált nyújtott szfe- 
rodikus koordinátákat: 


x — asinhusinucosw 
— asinhusinvsinw 
z - acoshucosv 


Az ezeknek megfelelő koordináta-transzformációt a plots[coordplot3d] függ- 
vénnyel tudjuk megjeleníteni. 


5  plots[coordplot34]( prolatespheroidal ); 
A grafikon a 19.3. ábrán látható. 


19.3. ábra: A nyújtott szferodikus koordinátákra való transzformálás grafikonja 


A gradiens, a rotáció, a, divergencia és a Laplace-operátor könnyen kiszámol- 
ható, ha a megfelelő Maple parancsokat a coords — coordinate system opcióval 
egészítjük ki. 

5 alias( f-f(u,v,w), g-g(u,v,w), h-h(u.v.w), csIu,v,w] ): 

s grad( f, c, coords - prolatespheroidal(a) ); 

s o 8. f 
du Ow 


VERÉSSEL ÉT 5 111 EG LSB Ov 
a /sinh(u)2 -- sin(v)2" a vsinh(u)2 -k sin(v)2" asinh(u) sin(v) 


19.4. 


Vektoranalízis 619 


Ha a számolás elkezdése előtt szeretnénk beállítani a koordinátarendszert, hogy 
az egyes parancsokban nem kelljen mindig megismételni a koordinátarendszer 


nevét, 


érdemes egy pillantást vetni a plotslchangecoordsj] rutin forráskódjára. 


Ezt utánozva megírhatjuk az alábbihoz hasonló setcoords eljárást: 


2 
e 
Pa 


interface( verboseproc — 2 ): tH make Maple communicative 
readlib( "plots/changecoords" ): it load library function 
print( "plots/changecoords" ); 


proc(p, coord) 
local c name, a, b, c; 
option 


"Copyright (c) 1994 by the University of Waterloo 
s 1 


end 


c 


a : 38 
b :-— 1/2; 
1/35 
if type(coord, function) then 


c. name :— op(0, coord); 


if nops(coord) — 1 then a :— op(1, coord) 
elif nops(coord) — 2 then a:-— op(1,coord) ; b:-— op(2,coord) 
elif nops(coord) -— 3 then 
a :— op(1, coord); b :— op(2, coord); c :— op(3, coord) 

else ERROR("Inappropriate number of parameters.") 

1 éa B 

else c name :— coord 

fi 

if member(c name, readlib( "plot3d/coordset2") ()) then 
"plots/changecoords/twotrans"(p, c name, a) 

elif member(c name, readlib( "plot3d/coordset") ()) then 
"plots/changecoords/threetrans"(p, c name, a, b, c) 

else ERROR("Cannot convert to coordinate system", coord) 

fi 


Ez a Maple kód könnyen adaptálható: 


BELO VEGYEN SET TÉN NÉ ÖTEN ÉN E 


setcoords :-— proc( coord ) 
local c name; 
giobal curl, diverge, grad, laplacian, 
scalefactors, "setcoords/cname" ; 
if type(coord, function) then 
c name :— op(0,coord); 
if nops(coord) ? 3 then 
ERROR( "Inappropriate number of parameters.") 
£i 
else c name :— coord 
fi ea Ve 
if member(c name , readlib( "plot3d/coordset2") ()) or 
member (c name , readlib( "plot3d/coordset" ) ()) 
then 
"setcoords/cname" :- coord, 
unprotect( curl, diverge, grad, laplacian, 
scalefactors ): 
curl :- procO linalgl[curi1] ( args, 
coords - "setcoords/cname" ) end; 
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s diverge :-— proc() linalgl[divergel ( args, 

5 coords — "setcoords/cname" ) end; 

5 grad :5- proc() linalg[gradi]( args, 

s coords -— "setcoords/cname" ) end; 

5 laplacian :— proc() linalg[laplacian] ( args, 

5 coords — "setcoords/cname" ) end; 

5 scalefactors :-— proc() readlib("linalg/scalefcts")( 
5 args, "setcoords/cname") end; 

pe protect( curl, diverge, grad, laplacian, 

pid scalefactors ) 

bg else 

pe ERROR( "Cannot convert to coordinate system" , coord) 
5 fi 

5, end: 


Minden használatra készen áll. Még egy olyan rutint is fölvettünk, amely a 
skálafaktorokat állítja be. (Ez eléggé furcsa módon el van rejtve a linalg cso- 
magban.) A skálafaktorok fölhasználhatók például az új koordinátarendszernek 
megfelelő térfogatelem meghatározására. 


5  setcoords( prolatespheroidal(a) ): 
5 laplacian(f, c ); 


G cosh(u) sin(v) (ő. f) A asinh(u) sin(v) te 51) 


-H a sinh(u) cos(v) éa f) 4 asinh(u) sin(v) ja f) 
a (sinh(u)? -k sin(v)2) (S 7) / 


sinh(u) sin(v) 
i (sinh(u)2 -- sin(v)2?) sinh(usin(v) ) 
5  scalefactors( c ); 
la Vsinh(u)2 -- sin(v)2, a Vsinh(u)2 -- sin(v)2, a sinh(u) sin(v)] 
5 dv :5— convert( ", "x" ); it the volume element 
dv :— a? (sinh(u)? -- sin(v)?) sinh(u) sin(v) 
Nyújtott szferodikus koordinátákat használnak a Slater-Zener típusú atompá- 
lyák átfedési integráljainak kiszámításakor. (V. ö. [24].) Ennél az alkalmazásnál 
a koordináták szokásos jelölése £, n és $, definíciójuk: 
av (£ —1(1— 71?) cos d, 
(2 —-1(1— 7?) sind, 
al, 


XT 


ahol 
za ITÉEdos -ISgzl ÜZ 0€ 2m. 


Ezt az új definíciót az addcoords eljárással tudjuk földolgoztatni. 
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readlib( addcoords ): it load the library function 
addcoords( 
myprolatespheroidal, í name of coordinate system 
[xi eta,phil], ítt list of variables 
[axrsgrt((xi72-1)k(1-eta72) ) kcos(phi) , 
atsgrt((xi7r2-1)k(1-eta72)) tsin(phi) , 
axrxikteta ], t the cartesian coordinates x,y,z 
ít in terms of the new coordinates 
[al, $ list of names of constants 
[L1.1] , Isgrt (2) /21] , (Pi/3], $ default values for 
[d .1.25-1. 1, 0.e29Pil; § cográplat or 
[-1.2..1.2,-1.2..1.2,-1.7..1.7]] $ coordplot3d 


OT TÁN TAT TSNÉ NENI 


): 


Az eredmények kicsit bonyolultak, mivel a Maple signum és abs rutinjai nem 
mindig képesek a helyes előjelek fölismerésére. De könnyen kisegíthetjük a rend- 
szert. 


5  assume( a20, xi2)-i, -1icseta, etacsc1, 0c€-phi, phics2xPi ); 


5 alias( f — f(xi,eta,phi), c — [xi eta,phi) ): 
5  setcoords( myprolatespheroidal(a) ): 
4 áradt E, ed 
[4 -2 
d61/0 
zta alak d ták b ük da Adel 2a ka 
cí 2- Ti 5 172 E. éj 
V-D) 1?) V71)) af [7 
VE egg e-t a Gab 7) VAL 
/W4-€-D err) 7), 
1 vVa(ssf) 
afat TÖTT EGT 
s 69-ig 
5  map( simplifyOcombineGfactor, " ); 


l (E -ÜESÜT ET 
a 1-7 3€)T FE) EDE 
f mene rni 
a 4-7 ETET Dír 2 
eszak edge tgár 1) 
a (6 —1(§410(1 —1)(n 3-1) 
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5  scalefactors( c ): 


5 map( simplify(combinegfactor, " ); 


Em tér tő) E g6l szi Msazí ÁAK 8 
(€-D(E3D " V CTrDírrD " 
a VETT VT 


s dvV :5— simplify( convert( ", "x" ) ); 
dV :——a9(y-€)lr 6) 
Természetesen az eredmények jobban kézben tarthatók, ha kisebb lépésekben, a 
részeredmények egyszerűsítésével végezzük a számításokat. Kezdhetjük példá- 


ul a továbbiakban T-vel jelölt koordináta-transzformáció J Jacobi mátrixának 
kiszámításával is. 


5 restart; with(linalg): 


Warning, new definition for norm 


Warning, new definition for trace 


assume( a20, xi2-1, -1c-eta, etac-1, 0£-phi, phic-2xPi ); 
alias( f - f(xi,eta,phi), c -— [xi,eta,phi) ): 

T :- [arsgrt((xi72-1)r(1-eta"2) ) tcos(phi) , 
atsgrt((xi72-1)$r(1-eta72))ssin(phi), axrxiteta 1; 


T e[ő /€7-DAa- Tr cosy), 
a V-D TT) sin(47), ér] 


MINO 


5 J :- jacobian(T, [xi,eta,phi)]); 


Jaz 
É cos(b") 6 (1—n?) — a cos(g) (87 Dr 
(€2—-1(1—g?) (EST — a ?) 


S /EGHU- FŐ sin(g7) 

É day ene áró dal yét -Őt 
V(€2-1)1—-y2) (€2—1)(1-— 

EV TKESHT a cos(g7)] 


fa za; 0] 
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A g metrikus tenzor JT J-vel egyenlő. 
s g :s evalm( transpose(J) £xr J ): g :— map(simplify,g) ; 
Bin a dee. ke 
6? psz 1 ) ) 
adf 6-2 4 n2 
ú sz 0, a (—€ En ) 
—-1-tm 2 


ae? -g?p2e2-g? rag? 


) 


Ezután kiszámolhatjuk a skálafaktorokat, és hozzáadhatjuk őket a rendszer azon 
belső táblázatához, amely a, különböző koordinátarendszerekhez tartozó skála- 
faktorokat tárolja. 


s hi :5— sgrt( gl1,í] ); 


58 ES 
h1 :— a 7-1 
s h2 :-— sart( g[2,2] ) 
ő zllllessst 
h2 :— a T- 


vV 
eg 
[9 
11 


sgrt( factor(g(3,3]) ); 
h3:— a vV(6€—-1(€31(1—ny)(m 41) 
sftable :— readlib( "1linalg/scaletable" ): 


sítablelmyprolatespheroidal] :-— subs( 
( az a, xiz x, etaz y, phi- z ), [h1,h2,h3] ); 


3? am? ejő 
sftable myprolatespheroidal :— — [-a He Es 1 1—y2 i 


-a V(-z—1)(.241(1—.y)(.y 420] 


v 


A Maple ezeket a skálafaktorokat használja a gradiens, a Laplace-operátor stb. 
kiszámításánál. 

5  laplacian( f, c, coordszmyprolatespheroidal(a) ): 

s map( combine, " ): 

b. ellett ", [ dirr(i zi$2). dirrtít etakz) , dítrté ar) , 

s diff(f,eta), f ], distributed, simplify ); 


(€7-nuán , ermtáen , EG 
ESA b eg ja (Eg 
7 (5 f) ja! 


MÉSZETÜ SSEL EST 
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19.5. A Moore-Penrose inverz 


A könyvben eddig általában nem úgy tekintettük a Maple-t, mint olyan progra- 
mozási nyelvet, amellyel kiterjeszthetjük a rendszer beépített lehetőségeit. Néha 
azonban nagy segítség a programozhatóság. Az A mátrix At Moore-Penrose 
inverze például [5] szerint a következő határértékből számítható ki: 


See T 2r)—-14T 
A — lim (((A A 291)" 4"), 


amennyiben ez a limesz létezik. A Linalg csomag eszközeinek és a Maple-ről 
szerzett ismereteinknek a fölhasználásával képesek vagyunk rá, hogy kiterjesszük 
a rendszert. 

s  MPinv :— A -5 map( limit, evalm( 

5  evalm( (1linalgl[transposel] (A)gxAtx72)7(-1) ) 

5 §xr linalgítransposel (A) ), x-0 ); 


MPiny :— A — map(limit, 
1 


Kkt ETET ETTE "8z x " tinalg sranspose(4)) 
, 270) 
5 M :- randmatrix(3,2); 
—85 —55 
M:—[ —37 —35 
97 50 


5  MPinv(M); 
427 2579 2275 


88957 88957 88957 
—14093 —45953  —14939 
889570 — 889570 444785 


5 poly :— proc() Randpoly(2,y) mod 2 end: 
s M :— randmatrix(3,2,entries-poly) ; 


yiry yiyiril 
M-] vagy y? 
váiyt1l 4 Il 
5  MPinv(M); 


2y544yt43y343y24yil y(ytt3y7t15y"r3y 12 
ző 71 KISZA , 
y 33y!33y944y?42y-1 
901 
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2y" 36yt47y?35y2r2yál  y(yt33y714y242yi1) 
91 2) 91 : 
. y(yt43y"42y2tyrl 
901 
91:—2y-410y?47y?412yt 419 2yf agyő 


19.6. Gyakorlatok 


1. A PUMA robotkar [152] szerinti Denavit-Hartenberg paraméterei: 


ű 
1 0 0 
0 a2 
d3 a3 
d4 0 
0 0 
0 0 


Számítsuk ki a robotkar csúcsának pozícióját és orientációját a kinematikai para- 
méterek függvényében, továbbá határozzuk meg a csúcs transzlációs és rotációs 
sebességét. 


2. Az IRb-6 robotmanipulátor [180]-ban közölt paraméterei: 


Csukló 


méterek függvényében, továbbá határozzuk meg a csúcs transzlációs és rotációs 
sebességét. 


3. Tekintsük az emberi test kadmium-fölvételének a 19.4. ábrán látható négy 
szakaszos modelljét, melyet a következő egyenletek definiálnak: 


2(t) A x(t) — B u(t), x(0) — To 
yt) — Cz(), 


ahol 
da11 12 13 d14 
a, a, 0 0 
Ja 21 22 BE 
ag 0 az 0 
d41 0 0 044 


a EE B 
POOR 
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Ci1 €CiI2 0 0 


e 0 C22 0 0 , 
0 0 0 C44 
továbbá a11 — —(aoi1 - a21 -k az1 b a41), a22 — —(a02 ht a12), az3 — —a1ig3, 
a44 — —(a04 rt a14), ci1 — ao1 és cs12 — ao2. Föltételezzük, hogy a Dp, g, c22 és a 


Csa paramétereket ismerjük. 


kai 


uj táplálkozással bevitt 


a u2 légzéssel bevitt 
3 


egyéb 


szövetek 


z3 


vizelet agi  — vizelet 


19.4. ábra: A kadmium fölhalmozódása az emberi szervezetben 


Használjuk fel a Maple-t annak bizonyítására, hogy ez a model! strukturálisan 
globálisan azonosítható. 


4. Az In-tan-henger koordinátákat a következő képletek definiálják: 


4. Pe: to FBI) 
ses ANT szeken 248 
T sinh" 7) -- cos? 1) 
20 reta E tj 
—- — n 
3 TT sin 24b /" 
úszás 


ahol0O ca, 1XCnycxlés0£ ye 2r. Határozzuk meg a koordinátarendszer 
skálafaktorait és fejezzük ki a Laplace-operátort ebben a koordinátarendszerben. 


5. A molekula-pályák Hückel-elméletének fölhasználásával számítsuk ki a ben- 


töltéseloszlását is. 
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", dupla faktoriális, 34 
!, faktoriális, 34 
" 47, 81, 204 
"u 47,81 
wan agy 81 
ak 
mezőszélesség, 113 
szorzásjel, 34 
típus, 82 
xx, hatványozás, 34 
d 
összeadásjel, 34 
típus, 82 
-5 (nyíl operátor), 186—187 
. (konkatenáció), 82 
. , range, 82 
.m, belső formátumú fájlok névki- 
terjesztése, 104 
.mapleinit, 34 
.mws, munkalap fájlok névkiterjesz- 
tése, 102 
/ 
fájlnevekben, 79 
osztásjel, 34 
: : (asszociációs operátor), 84, 197 


:— (értékadás operátor), 66, 71, 84 
; , lásd pontosvessző 


c, 82 
cz, 82 
2, 82 


-, eguation, 82 
- (egyenlőség), 84 
0 (függvénykompozíció) , 204 
00, 204 
[/ 
üres lista, 291 
szelekciós operátor, 287, 289, 295, 
302, 308 
(1 


üres halmaz, 288 
halmazok jelölése, 288 
h 35 
tt (megjegyzés), 95 
$ (sorozat operátor), 208, 287 
/n, közös részkifejezések jelölése, 474 
tx (mátrixszorzás), 572, 574 
00, végtelen, 49 
2D koordinátarendszerek, 617 
3D koordinátarendszerek, 617 
" vagy tr, 82 
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. EnvAllSolutions, 479 
. EnvTry, 321 
-Envadditionally, 320 
.-Envsignumo, 79 
.-MaxSols, 479 
.SolutionsMayBeLost, 476 
? (help), 37 

7? (usage), 40 

??? (examples), 40 
?debugger, 96 
fenvironment, 78 
?help, 42 

Tfindex, 42 

?index expression, 42 
?index function, 42 
?index misc, 42 
?index packages, 42, 101 
?index procedure, 42 
?inifcns, 50, 183 
?interface, 130 
?kernelopts, 127 
?linalg, 42 
?plot,coords, 464 
?plot device, 378 
?plot options, 394 
?plot structure, 401 
?plot3d,coords, 464 
?plot3d,option, 426 
?reserved, 78 

?share address, 101 
?share,contrib, 101 
fsurface, 83 
?type,sstructured, 42 
?type,surface, 42 
?fupdate, 42 


about, 61, 319 

abs, 51 

adaptív ábrázolás, 384, 422 

adaptív mintavétel, 397 

adaptív Newton-Cotes kvadratúra, 
234 

adaptive, 397 

adatmegjelenítés, 451 

adatok kiírása, 109-120 

addcol, 580 
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additionally, 87, 319 

addproperty, 319 

addressof, 167 

addrow, 580 

adj, adjoint, 579 

algebrai függvények, 171, 172, 227, 

494 
algebrai számok, 54-57, 477, 577 
algsubs, algebrai helyettesítés, 160— 
162 

alias, 61, 89, 100 

allvalues, 486 

alulvonás, 76-79 

and, 82 

angle, 583 

animáció, 461—463 
animate, 462 
animate3d, 462 
opciói, 462 

Apollonius tétel, 419 

APPEND, 110 

appendto, 103 

arc, 403 

arccos, 51 

arccosbh, 51 

arccot, 51 

arccoth, 51 

arccsh, 51 

arcsec, 51 

arcsech, 51 

arcsin, 51 

arcsinh, 51 

arctan, 51 

arctanh, 51 

aritmetikai műveletek 
összeadás, §, 34 
faktoriális, !, 34 
hatványozás, " vagy xx, 34 
osztás, /, 34 
precedenciája, 34, 574 
szorzás, k, 34 

arrow, 403 

assign, 66, 71 

assigned, 70 

assume, 61, 87, 192, 319, 321 
about, 319 
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additionally, 319 
addproperty, 319 
coulditbe, 319 
is, 319 
attributes, 86 
attributumok, 86 
augment, concat, 580 
automatikus differenciálás, 214—217 


band, 568 

basis, 583 

Berlekamp algoritmus, 172 
Bernoulli-féle lemniszkáta, 470 
Bessell, 51 

BesselJ, 51 

Besselk, 51 

Bessely, 51 

bezout, 568 

BINARY, 110 

binomial, 51 
blockmatrix, 580 


C, Catalan szám, 49 

C, 122-124 

charmat, 579 

charpoly, 579 

cholesky, 584 

Clenshaw-Curtis kvadratúra, 234 

close, 110 

coeftayl, 264 

col, 580 

coldim, 580 

collect, 205—206 

color, 388—390 

colspace, 583 

colspan, 583 

companion, 568 

compoly, polinomok kompozíciója, 
361 

cond, 579 

continuous, 229 

Control-c, interrupt karakter, 35 

convert, 309-312 

convert/cartesian, 310 

convert/type, 310 

copyinto, 580 
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cos, 51 
cosh, 51 
cot, 51 
coth, 51 
coulditbe, 319 
crossprod, 583 
cseh, 51 
Csebisev közelítés, 272 
csh, 51 
csomagok 
ábrázolási segédeszközök, 
plottools, 401, 403, 405 
összegzés, 
sumtools, 249 
differenciálegyenletek numerikus 
viselkedése, 
DEtools, 539 
elemi analízis, 
student, 245, 246 
függvények közelítése, 
numapprox, 142, 261, 272 
függvények közelítése, 
numapprox , 8—10 
generátorfüggvények, 
genfunc, 507 
Gröbner bázisok, 
grobner, 359 
hatványsorok, 
powerseries, 277-280 
integráltranszformációk, 
inttrans, 234 
lineáris algebra, 
linalg, 565 
ortogonális polinomok, 
orthopoly, 99 
p-adikus számok, 
padic, 85 
síkgeometria, 
geometry, 419 
speciális ábrázolások, 
plots, 374, 383, 397 
statisztika, 
stats, 101, 240, 451 
statisztikai ábrák, 
statsplots, 101 
számelmélet, 
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numtheory, 85 
Unix processzek, 
process, 112 
curl, 583 
curve, 403 


D, mint differenciáloperátor, 210- 
214, 513 
DAG, irányított aciklikus gráf, 148 
DEFAULT, 463 
default, 463 
definite, 580 
delcols, 580 
delrows, 580 
Descartes-féle jelszabály, 501 
DESol, 308 
det, 579 
DEtools, 539 
diag, 568 
Diff, 207 
diff, 207, 522 
differenciálegyenletek 
analitikus megoldása, 512-523, 
557-—559 
fölírása a D operátorral, 513 
megoldásának ábrázolása, 528, 
534 
megoldásának ellenőrzése, 513 


megoldásának perturbációja, 545— 


596 
megoldása sorfejtéssel, 528—525 
numerikus megoldása, 527—539 
parciális differenciálegyenletek, 
597—599 
Digits, 48, 79 
dilog, 51 
Dirac, 234 
disk, 403 
dismantle, 153 
display, 383 
ditto operátor, 47 
diverge, 583 
Divide, 138 
done, 35 
dotprod, innerprod, 583 


Tárgymutató 


dsolve, KDE numerikus megoldá- 
sa, 512, 537 


egész számok, 43—46 
egyenlőtlenségek, 498 
egyenletek 
algebrai egyenletek, 492—498 
egyenletrendszerek, 482—-498 
egyismeretlenes, 473-474 
ismeretlenek kiküszöbölése, el- 
iminate, resultant, 491 
megoldása, solve, 473 
egységmátrix, £xr(), 575 
egyszerűsítés 
automatikus, 334, 335 
helyessége, 334 
irányítása, 362 
korlátozása, 345 
mellékföltételekkel, 359-362 
összefoglaló táblázata, 372 
symbolic, 363 
egyváltozós polinomok, 133—-138 
eigenvalues, eigenvals, 579 
eigenvectors, eigenvects, 579 
elemi függvények, 223 
ellipse, 403 
elliptikus függvények, 232—233 
elliptikus integrálok, 232—233 
emacs (szövegszerkesztő), 35 
emlékezőtábla, 187, 201, 202, 338 
Encapsulated PostScript (EPS), 378 
Enneper-féle minimálfelület, 472 
Enter billentyű, 34 
egual, 580 
erf, 51 
ERROR, 199 
Error, object too large, 44, 179 
errorbreak, 130 
értéktelenítés, 70—72 
Euler tétel, 472 
evala, 171 
evalf, 48 
evalf/func, 52 
evalf/int, 234 
evalhíf, 52 
evaln, 69 
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exp, 51 Framemaker, 378 
exp(1), a természetes alapú logarit- freeze, 165 
mus alapszáma, 77 fremove, 117 
Expand, 171 Frobenius, 584 
ExpandExpand, 138 frobenius, ratform, 584 
exponential, 584 frontend, 155 
exprseg, 82 fscanf, 113 
extend, 580 fsolve, 500, 501 
function, 82 
Factor, 137, 172 függvényhívások, 308-310 
factor, 172 függvénykapcsolat 
factor, polinomok faktorizációja, 137 mint eljárás, 186 
FAIL, logikai konstans, 49, 321 mint függvény, 186 
false, logikai konstans, 49, 321 mint formula, 185 
fclose, 110 függvényműveletek, 204 
feof, 117 
Feuerbach tétel, 472 GAMMA,, 51 
ffgausselim, 584, 604 "y, Euler-Mascheroni konstans, 49 
fflush, 117 garbage collection, lásd gc 
FFT, gyors Fourier transzformáció, Gausselim, 584 
239 gausselim, 584 

fibonacci, 568 Gaussjord, 584 
filepos, 117 gaussjord, rref, 584 
fnormal (0-ra normalizálás) , 240 gbasis, 359 
folyam (stream), 110 gc (szemétgyűjtés), 127 
fontcsalád Gcd, 138 

COURIER, 464 ged, 136 

HELVETICA, 464 generátorfüggvények, 503 

SYMBOL, 464 geometry (csomag), 419 

TIMES, 464 gif, 378 
fontok (grafikonokban), 384 globális és lokális változók, 196-198 
fontstílus Gosper algoritmus, 248 

BOLD, 464 Gröbner bázis, 359, 497 

BOLDITALIC, 464 grad, 568 

BOLDOBLIGUE, 464 grafika, 375—379 

ITALIC, 464 ábrák összekapcsolása, 406 

OBLIGUE, 464 2D, 375—379 

ROMAN, 464 3D, 425—426 
fopen, 110 adaptív ábrázolás, 422 
forget, 203, 338 paraméteres ábrázolás, 378 
forráskód kiíratása, 130, 201 plot3d, 425 
fortran, 121—124 síkgörbék ábrázolása, 408 
fourier, 234 színkezelés, 388, 464, 467 
fouriercos, 234 GramSchmidt, 583, 615 
fouriersin, 234 grobner (csomag), 359 


fprintf, 113 gsolve, 494 
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hadamard, 579 
halmazok, 288—290 
hankel, 234 
hastype, 83 
határértékek, 280-282 
hatványsorok, lásd powerseries (cso- 
mag) 
Heaviside-féle lépcsősfüggvény, 
Heaviside, 194, 234, 400, 
470 
help, online help rendszer, 36-42 
helyettesítés, 149, 156—167 
algebrai helyettesítés, algsubs, 
160-162 
operandusoké, subsop, 162 
szekvenciális, 157 
szimultán, 158 
szintaktikus helyettesítés, subs, 
160 
többszörös, 157 
helykitöltő függvények 
DESol, 522 
Factor, 137 
RootO0f, 55 
Hermite, 584 
hermite, 584 
hessian, 568 
hilbert, 234, 568 
home könyvtár (7), 104 
Horowitz-redukció, 222 
hpgl, 378 
htranspose, 579 
hullámegyenlet, 557 
hypergeom, 51 


I, képzetes egység (vV—1), 57, 77 

I/O, 102 
alacsony szintű, 110-120 
fölhasználói szintű, 102—110 
folyam (stream), 110 
formázott, 113—120 

ihermite, 584 

implicitplot, 408 

indets (kifejezésben szereplő isme- 

retlenek), 475 
indexed, 82 
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indexelt függvényhívás, 198 
Int, 234 
int, 219 
intbasis, 583 
integer, 82 
integrálás, 8 
határozatlan integrálok kiszámí- 
tása, 219—228 
határozott integrálok kiszámí- 
tása, 228—233 
heurisztikus módszerekkel, 219 
Int, 228 
int, 219 
int, ill. integrate, 228 
integrálási algoritmusok, 222- 
228 
Risch algoritmus, 8, 219 
interface, 98, 103, 127-131 
echo, 103, 130 
errorbreak, 130 
labeling, 127 
postplot, 375 
preplot, 375 
prompt, 127 
guiet, 127 
guit, 127 
screenwidth, 125 
showassumed, 89 
verboseproc, 130, 201 
intersect, 289 
inverse, 579 
inverz kinematikai feladat, 595 
invlaplace, 234 
invztrans, 506 
iguo, 45 
irem, 45 
is, 192, 319, 322 
ismith, 584 
issimilar, 580 
iszero, 580 


J, az I helyett, 61 
jacobian, 568, 596 
jordan, 584 
JordanBlock, 568, 581 
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környezeti változók, 60, 78-79, 204, 
282 
" 47,81 
wet 47, 81 
ÚLA 47, 81 
. EnvAllSolutions, 479 
. EnvExplicit, 79 
.-EnvTry, 321 
. Envadditionally, 320 
. Envsignumo, 60, 79 
.MaxSols, 479 
.SolutionsMayBeLost, 476 
Digits, 48, 79 
Normalizer, 282 
printlevel, 52, 79, 90-97, 105 
Testzero, 282 
kanadai zászló, 449 
kanonikus alak 
általános, 174 
racionális számoké, 46 
kanonikus alak (polinomoké), 133 
kanonikus egyszerűsítő, 175 
karakteres fölhasználói felület, 35 
KDE 
analitikus megoldása, dsolve, 
512—523 
definíciója, 511—512 
foka, 512 
lineáris, 512 
megoldásának ábrázolása, odep- 
lot, 529, 535 
numerikus megoldása, 527—539 
rendje, 512 
rendszerek megoldása, 519 
kernel, 579 
kernelopts, 126—-130 
bytes used, 126 
gcfreg, 127 
kerneloptsíwordsize), 127 
kiértékelés, 34, 66 
indexelt neveké, 68 
komplex értékre, evalc, 59 
lebegőpontos értékre, evalf, 47— 
48, 52—53 
névre, evaln, 69 
teljes kiértékelés, 67 
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utolsó névig, 305—308 
végrehajtási ideje, time, 45 
kifejezések, 43 
általánosított racionális kifeje- 
zés, 155 
attributumai, 86 
befagyasztása, freeze, 155, 165 
belső ábrázolása, 148—153 
gyűjtése, collect, 178-180 
kiértékeléséhez szükséges idő, ti- 
rne, 45 
kiolvasztása, thaw, 165 
normalizálása, normal, 176—-177 
rendezése, sort, 180 
részkifejezéseinek kiválasztása, 
select, 69, 205, 206, 289 
tárolása, 46 
tulajdonságainak tesztelése, lásd 
is 
kinematikai feladatok, 595 
kis- és nagybetűk használata, 77 
Klein-féle palack, 471 
komplex függvények, 58 
komplex számok, 57-62 
konverziós rutinok írása, 310 
közönséges differenciálegyenletek, lásd 
KDE 
Kronecker-Irager algoritmus, 172 


Lambert W (Lambert-féle W függ- 
vény), 
183-185, 479 
laplace, 234 
laplacian, 583 
Lenstra algoritmus, 172 
Limit, 280 
limit, határérték kiszámítása, 280, 
317 
linalg csomag, 565—589 
line, 403 
lineáris egyenletrendszerek, 482 
lineáris rendszerek, 600-610 
megfigyelhetősége, 600 
strukturális azonosíthatósága, 600 
vezérelhetősége, 600 
list, 82 
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listák, 290-295 minor, 579 
listaműveletek, 291 minpoly, 579 
In, 51 permanent, 579 
log, 51 rank, 579 
log10, 51 singularvals, 579 
logikai konstansok trace, 579 
FAIL, 49, 321 transpose, 579 
false, 49, 321 mátrixműveletek 
true, 49, 321 addcol, 580 
Iprint, 97 addrow, 580 
LSODE, 537 augment, concat, 580 
Lucas számok, 199—203 blockmatrix, 580 
LUdecomp, 584 col, 580 
coldim, 580 
macro, 49, 100, 157, 205, 308, 603 copyinto, 580 
mantissza, 48 delcols, 580 
map, 164, 205—206, 306, 574 delrows, 580 
Maple extend, 580 
újraindítása, 36 mulcol, 580 
beépített eljárásai, 42 mulrow, 580 
beépített függvényei, 42 row, 580 
csomagjai, 42 rowdim, 580 
elindítása, 34 scalarmul, 580 
help rendszere, 36—43 stack, 580 
inicializáló fájljai, 34, 105 submatrix, 580 
Iris, 29 subvector, 580 
könyvtár, 29, 99-102 swapcol, 580 
kernel, 29 swaprow, 580 
leállítása, 35 mátrixok normálformái 
osztott könyvtár, 29, 99—102 cholesky, 584 
prompt, ,5", 34 exponential, 584 
tervezése, 28—32 ffgausselim, 584 
Maple munkalapok, 102 Frobenius, 584 
mátrixaritmetika, 570-575 Írobenius, ratform, 584 
mátrixfüggvények Gausselim, 584 
adj, adjoint, 579 gausselim, 584 
charmat, 579 Gaussjord, 584 
charpoly, 579 gaussjord, rref, 584 
cond, 579 Hermite, 584 
det, 579 hermite, 584 
eigenvalues, eigenvals, 579 ihermite, 584 
eigenvectors, eigenvects, 579 ismith, 584 
hadamard, 579 jordan, 584 
htranspose, 579 LUdecomp, 584 
inverse, 579 ORdecomp, 584 


kernel, 579 Smith, 584 
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smith, 584 
mátrixok tesztfüggvényei 
definite, 580 
egual, 580 
issirnilar, 580 
iszero, 580 
orthog, 580 
matrix, 297, 566 
mellin, 234 
minirmnax, 274 
minor, 579 
minpoly, 579 
minus, 289 
mod, moduláris aritmetika, 45 
Möbius-szalag, 471 
mtaylor, többváltozós Taylor sor- 
fejtés, 264 
mulcol, 580 
mulrow, 580 
munkalapos fölhasználói felület, 28— 
32, 94 


nemlineáris egyenletrendszerek, 485 
névtelen függvények, 205 
nézőpont megadása, 427-—-431, 468 
Newton-módszer, 501 
norm, 566, 583 
normalize, 583 
Normalizer, 282 
not, 82 
NULL, 98 
nullspace, 583 
numapprox (csomag), 8-10, 142, 261, 
269—276 
chebdeg, 272 
chebmult, 272 
chebpade, 272 
chebsort, 272 
chebyshev, 272 
laurent, 261 
numerikus gyökközelítés, 500 
numerikus integrálás, 233 


ODEPACK, 537 
op, 159, 289 
open, 110 
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or, 82 

Order, 261, 263, 281 

order, 261 

orientation, 468 

orthog, 580 

orthopoly (csomag), 99 

osztás (egészeké), 45 
hányadosa, iguo, 45 
maradéka, irem, 45 

osztás (polinomoké), 74, 136 
hányadosa, OAuo, 138 
hányadosa, guo, 74, 136 
maradéka, rem, 74, 136 


összegzés 
divergens sorokra, 252 
numerikus összegzés (sum), 251 
szimbolikus összegzés (sum), 248 
véges összegzés (add), 248 
összegzési módszerek, 248—252 


Padé közelítés, 271 
parciális differenciálegyenletek, lásd 
PDE 
Pascal tétel, 472 
peclose, 110 
PDE 
analitikus megoldása, 557-559 
definíciója, 557 
foka, 557 
kvázilineáris, 557 
Lie szimmetriái, 559 
numerikus megoldása, PDEp- 
lot, 541, 558 
pdesolve, 558 
rendje, 557 
PDEplot, 541, 558 
pdesolve, PDE analitikus megol- 
dása, 558 
permanent, 579 
Pi (7), 49, 77 
PIECEWISE, 308 
piecewise, szakaszonként definiált 
függvény, 190 
pipe, 110 
plot, 374—-376, 396 
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PLOT objektumok, 394—400 
plot opciók 
általában, 463—-466 
animációval kapcsolatban, 469 
speciális esetei, 466 
plot tömb definiálása, 406 
plot3d, 374, 425 
plot3d-specifikus opciók, 426—435, 
467—468 
plotdevice, 378 
plots (csomag), 374, 383, 405, 441 
plotsetup, 375 
plottools (csomag), 401—405, 441, 
447 
arc, 403 
arrow, 403 
curve, 403 
disk, 403 
ellipse, 403 
line, 403 
rectangle, 403 
rotate, 403 
scale, 403 
stellate, 403 
transform, 403 
translate, 403 
polarplot, 408 
polinomok 
Bernoulli, 248—249 
Csebisev, 99, 272 
együtthatói, 133 
egyváltozós, 133—138 
fokszáma, 133 
főegyütthatója, 133 
Hermite, 99, 174 
kanonikus alakja, 133 
kompozíciója, compoly, 361 
ortogonális, 272 
többváltozós, 138—140 
tagjainak rendezése, sort, 138 
Taylor, 269 
pontosvessző, 6, 8, 34, 35 
popen, 110 
PostScript, 378 
potential, 583 
powerseries (csomag), 277-280, 525 
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compose, 278 
inverse, 278 
powadd, 278 
powcreate, 278 
powdiff, 278 
powexp, 278 
powint, 278 
powlog, 278 
powsolve, 525 
reversion, 278 
tpsform, 280, 525 
print, 97 
printf, 113 
printlevel, 52, 79, 90-97 
procedure, 82 
process (csomag), 112 
protect, 49, 78 
Psi, 51 


ORdecomp, 584 
guit, 35 


racionális függvények, 140 
racionális számok, 43-46 
rank, 579 
READ, 110 
read, 103 
realroot, 501 
rectangle, 403 
rekurrens egyenletek megoldása, 503 
rekurzív eljárások, 199 
relációs operátorok (c , 5 stb. ), 82 
rem, 74 
remember opció, 261 
Remez algoritmus, 274 
remove, 205—206, 289 
rendezés 
teljes fokszám szerinti, tdeg, 139 
valódi lexikografikus, plex, 139 
reprezentációs fa, 153 
restart, 36 
részkifejezések, 153, 156, 159 
RETURN, 197 
Return billentyű, 34 
Riemann hipotézis, 58 
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Risch-féle algoritmus, 219, 222-224, 
248, 254 

RootOf, 55, 308 

rotate, 403 

row, 580 

rowdim, 580 

rowspace, 583 

rowspan, 583 

rsolve, rekurrens egyenletek megol- 
dása, 503 

Runge-Kutta módszerek, 537 


save, 103 

scalarmul, 580 

scale, 403 

scanf, 113 

sec, 51 

sech, 51 

select, 205—206 

seg, 287 

series, 82 

set, 82 

setattribute, 86 

síkgörbék ábrázolása, 408 

simplify, 32, 47, 162, 347 

Simpson tétel, 420, 421 

sin, 51 

singularvals, 579 

sinh, 51 

Smith, 584 

smith, 584 

solve, 473, 476 

sort, 138, 180 

speciális mátrixok 
diagonális, 568 
diagonal, 298 
egységmátrix, kr(), 575 
identity, 298 
ritka szimmetrikus, 612 
szalag, 568 
zérusmátrix, 298 

split (fölbontási test), 173 

sprintf, 113 

Sgríree, 174 

saríree, 174 

sart, 51 
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sscanf, 113 
stack, 580 
statisztikai függvények, lásd stats 
stats (csomag), 101, 240, 451, 458 
random, 240 
anova, 101 
describe, 101 
fit, 101 
random, 101 
statevals, 101 
statplots, 101 
transform, 101 
statsplot (részcsomag), 458 
boxplot, 458 
histogram, 458 
notchedbox, 458 
guantile2, 458 
guantile, 458 
scatterld, 458 
symmetry, 458 
stellate, 403 
stop, 35 
student (csomag), 245 
changevar, 245 
intparts, 246 
sturm, 501 
Sturm tétel, 501 
submatrix, 580 
subsop, 162 
subvector, 580 
Sum, 248 
sum, 249 
sumbasis, 583 
sumtools (csomag), 249 
swapcol, 580 
swaprow, 580 
sylvester, 568 
színmodellek, 388—390 
ASV, 388 
HUE, 389 
RGB, 388 
szabad változók, 66 
szelekciós operátor, 287, 289, 295, 
302, 308 
szingularitás, 229, 234 
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table, 298 
table, 82 
tábla, 301—305 
tábla belső reprezentációja, 305 
tan, 51 
tanh, 51 
taylor, Taylor sorfejtés, 259 
Taylor polinom, 269-271 
Taylor sorfejtés, 259 
Taylor-sor módszer, 523, 537 
térfogatelem, 620 
testeg, 486, 489 
Testzero, 282 
TEXT, 110, 401, 440 
thaw, 165 
thickness, 386, 465 
tickmarks, 465 
time, 45 
típusok, 81—83 
x, 82 
t, 82 
. (konkatenáció), 82 
., range, 82 
c, 82 
cz, 82 
c, 82 
-, eguation, 82 
" vagy tr, 82 
and, 82 
array, 295 
exprseg, 82 
float, 82 
folyamok típusa, 110 
fraction, 82 
function, 82 
indexed, 82 
integer, 82 
list, 82 
matrix, 297 
not, 82 
or, 82 
polinom, 134 
power, 152 
procedure, 82 
product, 152 
series, 82 
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set, 82 
string, 82 
strukturált típusok, 83 
sum, 152 


típuskonverziók, 47, 85 
table, 82, 295 
uneval (kiértékeletlen kifejezés) , 
82 
title, 465 
titlefont, 465 
toeplitz, 568 
topologikus mátrix, 612 
többváltozós polinomok, 138-140 
tömb belső reprezentációja, 305 
trace, 566, 579 
transform, 403 
translate, 403 
transpose, 579 
trigonometrikus egyenletek, 480 
trigonometrikus egyszerűsítés, 355— 
358 
trigonometrikus függvények, 51, 337, 
343, 347 
trigsubs, 355 
true, logikai konstans, 49, 321 
tubeplot, 444 
tulajdonságok 
algebrája, 322 
hálója, 330 
hierarchiája, 323, 330 
hozzáadása, 319 
implementálása, 324 
lekérdezése, 319 
listája, f?property, 324 
osztályozása, 324 
type, 83 
typematch, 83 


unames, 69, 78 

unapply, 203 

unassign, 71 

unconstrained, 465 

undefined, 280 

uneval (kiértékeletlen kifejezés), 82 
uniform, 469 

union, 289 


Tárgymutató 


Unix cső (pipe), 111 
unprotect, 49, 78 
update, 42 
userinfo, 96 


üres 
halmaz, ( ), 288 
lista, [], 291 
sorozat, NULL, 286 
tábla, 304 


változók, 66 
értéke, 74 
dimenzió nélkül, 503 
interfész változók, 98 
környezeti változók, 60, 78-79 
kötött változók, 66 
kiértékelése, eval, 72-76 
kiküszöbölése, eliminate, 491 
lokális, ill. globális, 189, 197 
neve, 76 
szabad változók, 66 
típusa, type, 84 
tulajdonságai, 86—91 
value, 208, 220, 228, 280 
van der Pol egyenlet, 527—529, 545, 
546, 552 
vandermonde, 566-568 
variációs módszer, 611 
vecpotent, 583 
vectdim, 583 
VECTORKC(...), 573 
vector, 297, 566 
vektoranalízis, 615—623 
vektoraritmetika, 570—575 
vektorműveletek, 583 
angle, 583 
basis, 583 
colspace, 583 
colspan, 583 
crossprod, 583 
curl, 583 
diverge, 583 
dotprod, innerprod, 583 
GramSchmidt, 583 
intbasis, 583 
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laplacian, 583 
norm, 583 
normalize, 583 
nullspace, 583 
potential, 583 
rowspace, 583 
rowspan, 583 
sumbasis, 583 
vecpotent, 583 
vectdim, 583 
végtelen rekurzió, 68 
véletlen 
mátrixok, randmatrix, 570 
polinomok, randpoly, 206 
számok, random, 240 
számok, rand, 206 
vektorok, randvector, 570 
verboseproc, 130, 201 
vi (szövegszerkesztő), 35 
view, 381, 394, 397, 432, 466 


Warning (figyelmeztetés), 186-189, 
476 

Waterloo Maple Inc., 29 

whattype, 81-83, 152 

Wilf-Zeilberger-féle összegzési mód- 
szer, 249 

win, 378 

wireframe, 426, 468 

with, 100 

WRITE, 110 

writebytes, 112 

writedata, 110 

writeline, 109, 111 

writeto, 102, 103, 199 

wronskian, 568 


X Window rendszer, 5 
xmaple, 5, 34 
xtickmarks, 466 

xy, 427, 468 

xyz, 427, 468 


ytickmarks, 466 


z, 427, 468 
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2-transzformáció, 503 

Zeta, 50, 51, 58 

zérus ekvivalencia probléma, 175 
zérusmátrix, 298 

zgrayscale, 427, 468 

zhue, 427, 468 

zip, 205—206 

zoomolás (ábra kinagyítása), 397 
ztrans, 505 
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Nem könnyű a Maple-ről jó könyvet írni. A Maple mindenekelőtt szoftver termék, s 
mint ilyet meg kell tanulni kezelni. Így azután nagy a kísértés felhasználói kézikönyv 
megírására. Igen ám, de a Maple kitűnő segédeszköz is matematikai, mérnöki problémák 
megoldására, csak éppen el kell sajátítani hozzá egy speciális gondolkodásmódot. Végül a 
Maple szemléltető eszköz a jó előadó kezében, valamint a tapasztalatgyűjtés, a 
kisérletezés eszköze az érdeklődő diák számára. 


André Heck könyvének középpontjában maga a Maple rendszer áll. A szerző 
kisérletező alkat, lankadatlanul kutatja a rendszer képességeit, feszegeti teljesítményének 
határait. Mélyre ás az egyes témakörök felkutatásában, nem riad vissza a technikai 
részletek felderítésétől sem. Hogyan érthetnénk meg a Maple egyszerűsítő eljárásainak 
működését a kifejezések belső ábrázolásának ismerete nélkül? Hogy szembesülhetnénk a 
rendszerbe integrált matematikai tudás szintjéről anélkül, hogy betekintenénk a futás 
során végrehajtott lépések sorozatába? És miközben megismerkedünk a Maple 
eljárásaival, az eljárások paramétereivel, a problémamegoldás technikáit, a rendszer 


szemléltetési képességének megismerését mintegy melléktermékként sajátítjuk el. 


André Heck könyve alapmű. Olvasása mindenki számára ajánlott, aki meg akar 
ismerkedni a világ egyik legfejlettebb számítógép-algebrai rendszerével, a Maple-lel. 


Maróti György 


IA André Heck: Bevezetés a Maple használatába 
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